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Utilizado na programação de jogos, 
o código de máquina proporciona 
uma ação rápida e contínua. 

Antes de empregá-lo, porém, você 
deve saber como ele afeta 

o desempenho do seu computador. 


O BASIC constitui sem dúvida a mais 
difundida e popular linguagem de pro- 
gramação. Universalmente. conhecido, 
ele é fácil de aprender e pode ser adap- 
tado a diferentes máquinas. Seus pro- 
gramas, contudo, ocupam grandes espa- 
ços de memória e permitem apenas um 
movimento de cada vez. Assim, se um 
canhão atira, num jogo de guerra, o res- 
to da ação tem que esperar, mesmo que 
seja por uma fração de segundo. 

O BASIC usa palavras da linguagem 
humana, tiradas do inglês, e operações 
semelhantes às da aritmética, fáceis de 
compreender. Mas seu computador não 
pensa em inglês nem entende os símbo- 
los aritméticos. Ele opera baseado em 
impulsos elétricos que representam nú- 
meros. E essa conversão é a causa de sua 
lentidão ao trabalhar com o BASIC. 

Código de máquina é uma linguagem 
computacional composta apenas de nú- 
meros equivalentes âqueles que o com- 
putador utiliza. Assim, quando você 
emprega esse código não deve esperar 
que o computador responda em lingua- 
gem humana. 

Consideremos um exemplo extraído 
dos computadores compatíveis com o 
Sinclair Spectrum; o código de máqui- 
na se parecerá com isto: 


B9 28 08 
Em BASIC o equivalente é: 


100 IF A=C THEN GOTO 190 

O código de máquina consiste, desse 
modo, numa série de números de dois 
dígitos. A letra B da linha acima é, na 
realidade, um símbolo. Ela representa 
o número 11, em notação hexadecimal. 

Esses números hexadecimais são in- 
troduzidos na memória do computador. 
Instruções de operação, dados, núme- 
ros, letras, palavras e endereços de me- 
mória são representados por sinais de 
dois digitos. E o computador identifica 


[5555555555 EEE E 


CÓDIGO DE MÁQUINA 






a diferença entre essas informações pe- 
la ordem em que eles ocorrem no pro- 
grama. Por exemplo, o primeiro núme- 
ro em qualquer programa precisa repre- 
sentar uma instrução. Se, por engano, 
você digitar um número qualquer nesse 
ponto, representando um dado ou um 
endereço de algum dado, o computador 
tentará interpretá-lo como uma instru- 
ção válida. A digitação desses números 
exige, portanto, uma precisão absoluta; 
caso contrário, o programa não funcio- 
nará. 


VANTAGENS DO CÓDIGO DE MAQUINA 


Quando você digita uma linha em 
BASIC, o computador tem que transpô- 
la para sua própria linguagem, antes de 
executá-la. Este é um processo trabalho- 
so que toma muito tempo, pois uma ins- 
trução em BASIC raramente é traduzi- 
da para um só comando ou declaração 
em código de máquina. Ela resulta, com 
fregiiência, em vários códigos de ope- 
ração. 





E O QUE É CÓDIGO DE MÁQUINA? 








HE VANTAGENS EM RELAÇÃO AO BASIC. 


TE COMO COMPREENDER CÓDIGO DE 


OPERAÇÃO E LINGUAGEM ASSEMBLER. 


Quando se executa um programa 
completo escrito em BASIC, cada linha 
tem que ser interpretada sequencialmen- 
te. O computador não armazena os re- 
sultados dessa tradução; se a mesma li- 
nha for executada novamente, o com- 
putador terá que interpretá-la outra vez. 

Sempre que o computador encontra 
uma instrução em BASIC, executa as se- 
guintes tarefas: 





* reconhecer a instrução em BASIC; 
e traduzir essa instrução para uma sé- 
rie de outras em código de máquina; 
e executar as instruções, uma a uma; 


* passar para a próxima linha do pro- 
grama em BASIC, 


Repetido muitas vezes, esse proces- 
so torna-se lento e moroso. É possível, 
porém, compilar um programa em BA- 
SIC, isto é, traduzi-lo integralmente pa- 
ra código de máquina, de uma só vez, 
antes de executá-lo, armazenando a tra- 
dução. A compilação é mais eficiente 





que a interpretação, mas os programas 
resultantes são ainda bastante lentos. 

Em contrapartida, a tradução do 
programa em código de máquina dire- 
tamente para a operação interna do 
computador quase não consome tempo. 
Nesse caso, há uma simples conversão 
de um número em outro, e não a tradu- 
ção de um comando de linguagem em 
vários outros de código de máquina. Os 
programas tornam-se, assim, mais cur- 
tos e eficientes. 

Os programas abaixo fazem a mes- 
ma coisa, usando BASIC e código de 
máquina. Compare suas velocidades re- 
lativas. 





10 CLEAR 200,31000 

20 DEFUSRO=31000 

30 FOR N=31000 TO 31015 

40 READ A 

50 POKE N,A 

60 NEXT 

70 cLSO 

80 PRINT €0,"ISTO ESTA EM BASIC 


90 FOR N=1 TO 500:NEXT 

100 FOR N=1056 TO 1535 

110 POKE N, PEEK (N+34000) 

120 NEXT 

130 FOR N=1 TO 1000:NEXT 

140 cLSO 

150 PRINT €0,"ISTO ESTA EM CODI 
GO DE MAQUINA.” 

160 FOR N=1 TO 1000:NEXT 

170 N=USRO (0) 

180 FOR N=1 TO 2000:NEXT 

190 DATA 206,136,240,142,4,32,1 
66,192,167,128,140,6,0,38,247,5 
7? 


Atenção: o programa abaixo está es- 
crito em BASIC para computadores 
com o sistema DOS (disquete) e não se- 
rá aceito pelo BASIC nível II normal 
(cassete). 

Ao ligar a máquina, responda com o 
número 60000 à pergunta “Mem. usa- 
da?”, ou ainda ''Memory size?" (para 
computadores com 48 Kbytes de memó- 
ria apenas). 


10 cLS 

20 DEFUSRO=-4536 

30 FOR N=-4356 TO -4523 
40 READ A 

50 POKE N,A 

60 NEXT N 

70 CLS 

80 PRINT "ISTO ESTA EM BASIC” 
90 FOR I=1 TO 500:NEXT 
100 FOR N=15360 TO 16383 
110 POKE N,65 

120 NEXT N 

130 FOR N=1 TO 1000:NEXT 


140 
150 


CLS 

PRINT "ISTO ESTA' EM 
GUAGEM DE MAQUINA” 
FOR N=1 TO 1000:NEXT 
N=USRO (0) 

FOR I=1 TO 2000:NEXT 
DATA 33,0,60,17,1,60,1,255, 
3,54,65,237,176,201 


10 CLEAR 29999 
20 FOR n=30000 
30 READ a 

40 POKE n,a 

50 NEXT n 
60 PRINT 
70 FOR n-16384 
80 POKE n,PEEK 
90 NEXT n 

100 CLS 

110 PRINT "Isto esta em Codigo 
de Maquina” 

120 PAUSE 100 

130 RAND USR 30000 

140 STOP 

150 DATA 33,0,0,17,0,64,1,0,24 
+237,176,201 


a] 


10 CLEAR200,&HDFFF 

20 DEFINTA-Z 

30 AD=8HE000:DEFUSR=AD 
40 FOR I=0TOIO 


LIN- 


160 
170 
180 
190 


To 30011 


"Isto esta em BASIC” 
TO 22527 
(n-16384) 


50 READAS 

60 POKE AD+I,VAL("&H"+AS) 

70 NEXT 

80 DATAÕE,98,ED,6B,0,1,06,FF,ED 
+B3,C9 

90 cLS 

100 PRINT "Isto esta em BASIC” 
110 FOR I=1 TO 1000:NEXT 

120 SCREEN 2 

130 PSET (0,0) 

140 FOR 1-1 TO 6144 

150 OUT 152,RND(1)*255 

160 NEXT 1 

170 CLS 

180 SCREEN O 

190 PRINT"Isto esta em código d 


e máquina” 

200 FOR 1=0 TO 1000:NEXT 
210 SCREEN 2 

220 PSET(0,0) 

230 FOR I=1 TO 25 

240 A-USR(B) 

250 NEXT 

260 GoTo260 


[é] LS] 


5 HGR : HOME VTAB 24 

10 FOR I = 800 TO 836 

15 READ N 

20 POKE I,N 

25 NEXT 

30 PRINT "Isto esta em BASIC” 
35 FORI = 1 TO 300: NEXT 

40 FOR 1 = 8100 TO 14000 

45 POKE 1; RND (1) * 256 











50 NEXT 

55 TEXT : HGR : HOME : VTAB 24 
PRINT "Isto esta em linguagem 
de maquina” 

60 FORI = 1 TO 3000: 

65 CALL 800 

70 DATA 169,0,133,20,133,22,1 

69,32 


NEXT 


80 DATA 133,21,169,193,133,23 
,160,255 
90 DATA 177,22,145,20,136,208 
,249,165 
100 DATA 21,201,63,208,1,96,2 


30,21,230,23,76,46,3 


Como ê vai ver, tudo que o pro- 
grama faz é encher a tela de caracteres 
ao acaso (“lixo”, na gíria dos progra- 
madores). Entretanto, a velocidade com 
que a versão em linguagem de máquina 
faz isso é incomparavelmente maior do 
que a do programa em BASIC. 


ee eai 


A grande dificuldade do código de 
máquina surge quando se quer escrevê- 
lo ou depurá-lo de erros. Poucas pessoas 
conseguem lembrar-se de todos os có- 
digos numéricos e instruções. Para com- 
plicar ainda mais, os códigos de opera- 
ção (opcodes) não são distinguíveis dos 
outros números que alimentam o com- 
putador. Assim, você não consegue en- 
tender um trecho de programa, a não ser 
que o acompanhe desde o começo — o 
que não ajuda quando se está procuran- 
do erros no programa. 

Os códigos numéricos de operação, 
além disso, diferem consideravelmente 
entre si, conforme o microprocessador 
que é usado no computador, de modo 
que traduzir programas em código de 
máquina de um tipo de computador pa- 
ra outro pode ser bastante difícil. 

Uma forma de contornar esses obs- 
táculos é subir um pouco mais de nível, 
e escrever o programa em uma lingua- 
gem mais fácil de se utilizar do que o có- 











digo de máquina. Essa linguagem é co- 
nhecida como Assembly, ou linguagem 
Assembler (que vem do inglês, monta- 
gem). 

Em Assembler, os códigos operacio- 
nais são representados por abreviações 
mnemônicas (isto é, fáceis de lembrar). 
Por exemplo, a operação de carregar 
(load, em inglês) uma memória com um 
número, tem a abreviatura LD. Uma 
instrução de desvio (jump) pode ser cha- 
mada de J, JP, ou JMP, conforme a sin- 
taxe do Assembler em uso. Com algum 
treino, é possível ler programas em As- 
sembly tão facilmente quanto em BA- 
SIC, embora entendê-los seja algo mais 
complicado. 

A desvantagem da linguagem Assem- 

bler é que o computador não pode uti- 
lizá-la diretamente, como no caso do 
código de máquina, Antes disso, o pro- 
grama precisa ser montado por um As- 
sembler, ou tradutor, que é um outro 
programa escrito em linguagem de má- 
quina, ou mesmo em BASIC. 
o processo de montagem é bem 
mais simples, quando comparado com 
a interpretação de linhas em BASIC, A 
linguagem Assembler é equivalente ao 
código de máquina, ou seja, cada ins- 
trução em Assembly corresponde a uma 
instrução em código de máquina, As- 
sim, a tradução do programa se proces- 
sa palavra por palavra, número por 
número, etc. diretamente para código de 
máquina. 

O Assembler também traduz o pro- 
grama como um todo, antes que o com- 
putador o execute, ao invés de 
interpretá-lo linha por linha, enquanto 





DA O 
STA X + 
ANDB 4 127 

, as 





o programa está rodando. Isto dá van- 
tagens adicionais de velocidade de exe- 
cução. 

Alguns computadores, como o Ap- 
ple II, já vêm com um programa embu- 
tido, chamado monitor, que permite a 
entrada de códigos de máquina e dados 
em hexadecimal. Computadores com 
programas Assembler embutidos em sua 
ROM, entretanto, já são mais raros. No 
Brasil, o TK-2000, da Microdigital, é um 
exemplo. Para os outros computadores 
(linha TRS-80, TRS-Color, MSX, Sin- 
clair Spectrum e ZX-81), existem pro- 
gramas  Assembler disponíveis 
comercialmente, em fita ou disquete. 
Você poderá utilizar também, as versões 
de Assembler para cada máquina, que 
serão fornecidas mais adiante. 

Mas, se você não tem acesso a um 
“programa Assembler, pode fazer uma 
montagem manual, Mesmo para os pro- 
gramas mais simples, é mais fácil escre- 
vê-los em Assembly, e depois traduzi-los 
manualmente para código de máquina 
em hexadecimal, usando as tabelas for- 
necidas com os manuais de programa- 
ção Assembler. 

Tudo isto pode parecer muito abor- 
recido; mas, antes de decidir que é isso 
mesmo, experimente esses programas 
em código de máquina. Eles são intro- 
duzidos via declarações DATA em pro- 
gramas BASIC, Os dados ( DATA ) es- 
tão listados no fim de cada programa. 





10 CLEAR 200,31000 

20 DEFUSRO=31000 

30 FOR N=31000 TO 31020 

40 READ A 

50 POKE N,A 

60 NEXT 

70 N=USRO(O) 

80 POKE 32767,RND(256)-1 

90 FOR N=1 TO 100:NEXT 

100 coro 70 

110 DATA 142,4,0,206,136,184,16 
6,192,184,127,255,138,129,167,1 
28,140,6,0,38,242,57 





As restrições na configuração da má- 
quina para rodar o programa abaixo são 
as mesmas do primeiro programa. 


20 DEFUSRO- 4536 

30 FOR N=-4536 TO 

40 READ A 

50 POKE N,A 

60 NEXT N 

70 N-USR(0) 

80 POKE -4534,RND(20) 

90 coTo 70 

100 DATA 33,0,0,17,0,60,1,0,4, 
237,176,201 


4525 


10 CLEAR 29999 

20 FOR n=30000 TO 30020 

30 READ a 

40 POKE n,a 

50 NEXT n 

60 RAND USR 30000 

70 Goto 60 

80 DATA 17,0,88,46,0,237,95, 
71,58,140,92,128,230,63,103,1 
+0,3,237,176,201 


o] 


10 CLEAR200,&HDFFF 

20 DEFINTA-Z 

30 AD=.HE000:DEFUSR=AD 
40 FOR I=0TOIO 

50 READAS 

60 POKE AD+I,VAL("&H"+AS) 
70 NEXT 

80 DATAÕE,98,ED,6B,0,1,06,FF,ED 
+B3,C9 

90 FOR I=0 TO 1000:NEXT 
100 SCREEN 3 

110 PSET(0,0) 

120 A=USR(B) 

130 Goro 120 

200 FOR I=0 TO 1000:NEXT 
210 SCREEN 3 

220 PSET(0,0) 

240 A-USR(B) 

260 goTo 240 


[eb [cá] 


Um aviso para quem for utilizar o 
programa acima: o programa em lingua- 
gem de máquina altera alguns endere- 
ços importantes da memória de traba- 
lho do micro. Por isso, é impossível 
listá-lo depois de rodar uma vez. Assim, 
você deve digitar o programa e gravá- 
lo em fita ou disquete, antes de rodá-lo. 

Para rodar no TK-2000, é necessário 
fazer as seguintes modificações: todos 
os valores 17, que aparecem dentro das 
declarações DATA, devem ser mudados 
para 20, e todos os valores 18, para 21. 

Deste modo ele não se autodestrói. 
10 FOR I = 800 TO 840 


20 READ N 

30 POKE I,N 

40 NEXT 

50 GR 

60 CALL 800 

70 DATA 169,0,133,17,169,193, 
133,18,160 

80 DATA 40,162,40,177,17,41,1 
5,32,100 

90 DATA 248,138,32,0,248,136, 
208,242,202 


100 DATA 208,239,169,254,197, 
18,208,1,96,230,18,76,40,3 

Agora, apenas para comparar, tente 
escrever um programa similar em BA- 
SIC. Acreditamos que você entenderá 
nossas razões. E mais tarde, veremos o 
que acontece aqui. 
































Programar jogos pode se revelar uma 
atividade fascinante. Mas não é certa- 
mente das mais fáceis. Por isso, você de- 
ve começar com coisas simples e ir avan- 
çando pouco a pouco. Esse procedimen- 
to lhe ensinará a pensar de maneira ló- 
gica, melhorando suas qualidades de 
programador. É o que vamos aprender 
nesta série de lições, até chegar ao de: 
senvolvimento de jogos profissionais e 
complexos. 

A primeira coisa que você precisa 
aprender para programar jogos, afora 
a linguagem BASIC, é a técnica de ani- 
mação, pois a maioria dos jogos mais 
interessantes é do tipo “videogame”, is- 
to é, tem algum tipo de ação. 

Para criar a ilusão de movimento, o 
programador usa praticamente as mes- 
mas técnicas empregadas na elaboração 
de desenhos animados. Ele cria duas ou 
mais imagens e as alterna rapidamente 
— cerca de 24 vezes por segundo. 

Existe, porém, uma diferença impor- 

tante. Na animação de um desenho, o 
projetor é responsável pela eliminação 
das imagens desnecessárias. O mesmo 
não acontece com a animação por com- 
putador: neste caso, qualquer segmen- 
to de um desenho que você ““projete”” 
permanecerá na tela, a não ser que vo- 
cê imprima alguma coisa sobre ele, pois 
o computador não pode colocar, simul- 
taneamente, duas imagens na mesma 
posição. 
Por exemplo, se a linha 10 diz ao 
computador para colocar um 4 em um 
determinado lugar, qualquer linha im- 
pressa posteriormente — digamos um B 
—, no mesmo local, apagará o 4. 
Mas, e se não houver nada que você 
queira imprimir no lugar do caractere 
indesejado? Então você deve se lembrar 
de incluir no seu programa uma linha 
que coloque um espaço em branco na 
posição de interesse. Caso isso não seja 
feito, seu vídeo logo estará repleto de in- 
cômodos pedaços de braços, pernas e 
corpos! 

Há grandes diferenças entre os com- 
putadores na maneira de se obter os ca- 
racteres (sinais) gráficos na tela. Os ca- 
racteres gráficos padronizados variam 
muito em tipo e disposição, assim como 
a maneira como são impressos na tela, 
e como são movimentados. 












Uma animação muito simples, que 
ilustra os princípios da produção de efei- 
tos de movimentação na tela do micro, 
é a do pequeno “inseto rastejante”” (ve- 
ja abaixo). Nas páginas seguintes mos- 
traremos como conseguir esse efeito pa- 
ra diversos tipos de computadores. 


3) 
< 000< 
5) 


-0- 
-o- 


12 
Do 
1 


Para criar a figura do inseto na tela, 
programe o TRS-Color ou compatível 
(por exemplo, o Prológica CP-400), co- 
mo segue abaixo. A declaração PRINT 
O (pronuncia-se “print arroba” ou 
“print em") é a maneira que o BASIC 
do Color tem para exibir um ou vários 
caracteres em um ponto específico da te- 
la. O número que se segue após o sinal 
O é a posição na tela, que começa de 
0, no canto superior direito, e aumenta 
de um em um da esquerda para direita 
e de cima para baixo. Como a tela do 
Color tem apenas 32 colunas, a primei- 
ra linha tem posições (O indo de 0a 31. 
A posição 32 já se situa na primeira co- 
luna da segunda linha e assim por 
diante. 

5 CLS 

10 PRINT 6238, 
20 PRINT €206,")))” 

30 PRINT 6241,"<” 

40 PRINT 6270,")))” 

Este programa é uma forma bastan- 
te elaborada de criar uma imagem mui- 
to simples, mas ele ilustra alguns pon- 
tos interessantes: 

Em primeiro lugar, ele lhe dá uma 
idéia a respeito das posições relativas na 
tela. O meio do inseto está, aproxima- 
damente, no centro do vídeo, na locali- 
zação 239. Como você vê, estamos usan- 
do caracteres “'normais”” (isto é, dispo- 
níveis no próprio teclado padrão, como 
aletra O, o sinal de parênteses, etc.) pa- 
ra compor a figura do “bicho”. 

Além disso, ele mostra o que acon- 
tece quando fazemos com que o com- 
putador imprima mais que um caracte- 
re em uma única posição de tela — ele 
simplesmente vai em frente e coloca os 
próximos caracteres nas posições subse- 
quentes (de numeração maior). Isto ex- 


"000" 


Se você quer dar mais vida aos seus y 
jogos, comece a trabalhar 

com os caracteres gráficos mais 
simples, que já vêm programados na 
memória do seu computador. 


plica por que as “antenas"” da linha 30 
estão em 241. As posições 238-240 já es- 
tão ocupadas pelo corpo do inseto. 
Existe uma maneira melhor de dese- 
nhar o inseto, que é condensar o pro- 
grama acima em uma única linha. E, se 
você ainda não descobriu, o TRS-Color 
tem uma abreviação para PRINT: o ca- 
ractere **?””, Quando o programa é lis- 
tado, a máquina mostrará PRINT o in- 
vés de 7”, 
o programa simplificado fica assim: 
20 PRINT €238,"000<": PRINT e206 
+")))”: PRINT 6270,")))” 








Se você acrescentar mais duas Panos 
obterá alguma animação: 












20 PRINT €238,"000<":PRINT 
+" (((": PRINT 8270," (((” 
30 coro 10 

A execução deste programa pj 
uma imagem tremida e pouco nítida 
não se parece nem um pouco com ani- 
mação. A razão disso é que as imagens 
estão sendo trocadas rápido demais. Se 
você inserir um laço FOR...NEXT no 
programa, ele fará com que o compu- 
tador pare e conte, deixando a anima- 
ção mais clara. Qualquer número pode 
ser usado com os laços FOR... NEXT (li- 
nhas 15 e 25) e não apenas 15. Outros 
números resultarão em uma espera 
maior ou menor. 

Experimente adicionar estas linhas: 






































15 FOR L=1 TO 15 | 
17 NEXT L y 
25 FOR L=1 TO 15 í 
27 NEXT L + 


Agora você tem um inseto que esper- 
neia incessantemente, um tanto sem ra- 
zão; apesar disso, a tela nos mostra uma | 
animação convincente. 


GRÁFICOS DE BAIXA RESOLUÇÃO | 


Você pode usar os caracteres gráficos 
de baixa resolução do seu computador | 
para criar figuras animadas mais inte- 
ressantes. O Manual do Usuário mos- 
tra quais são esses caracteres. Cada um 
deles tem um código (um valor de 128 












a 143 para os micros da linha TRS- 
Color). Para mostrá-los no vídeo você 
usa a função CHRS seguida do código 
do caractere entre parênteses. 

Por exemplo, para imprimir o carac- 
tere representado pelo código 138 no 
meio da tela, digite: 


CHR$ (138) 


poODIo] +» 


10 PRINTE 239, 
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Como construir o seu satélite. 


O programa seguinte utiliza caracte- 
res gráficos de baixa resolução para ani- 
mar um satélite rotatório (a fig. 1 mos- 
tra os dois desenhos que são alternados 
no programa). 

10 CLEAR 500:CLS 

20 PRINT €174,CHAS (141) +CHRS (14 
1): PRINTE178,CHRS (143) 

30 PRINT €206,CHRS (140) +CHRS(13 
2)+CHRS (141) 

40 PRINT €236,CHRS (137) +CHRS (12 
9) +CHRS (129) +CHRS (129) +CHRS (129 
J+CHRS (129) +CHR$ (141) 

50 PRINT €268,CHRS (135) +CHRS (13 
2) +CHRS (132) +CHRS (132) +CHRS (132 
)+CHRS (133) +CHRS (135) 

60 PRINT €300,CHRS (143): PRINTE3 
03,CHRS (133) :PRINT €305,CHRS (14 
3) +CHRS (143) 

70 FOR X=1 TO 20 

80 NEXT X 

90 PRINT €173,CHRS(141):PRINTE1 
77 ,CHRS (141) 

100 PRINT €205,CHR$(139)+CHRS (1 
40)+CHR$ (140) +CHRS (137) 

110 PRINT €236,CHRS (138) +CHR$ (1 
30) +CHRS (130) +CHRS (130) +CHRS$ (13 
0) +CHRS (130) +CHRS (143) 

120 PRINT €268,CHRS$(139)+CHRS (1 
36)+CHR$ (136) +CHRS$ (136) +CHRS (13 
6)+CHRS (137) +CHRS (143) 





HE MOVIMENTE AS FIGURAS NO VÍDEO 








COMO NUM DESENHO ANIMADO 
APRENDA A USAR 
CARACTERES GRÁFICOS 


130 PRINT €300,CHR$ (137): PRINTE 
303,CHR$ (143) :PRINT 6305,CHR$ (1 
39)+CHRS (141) 
140 FOR X=1 TO 20 
150 NEXT X 
160 Goto 10 

Não se preocupe com a linha 10 do 
programa. CLEAR 500 reserva espaço 
na memória para as cadeias de caracte- 
res dos códigos CHR$ e CLS. Examine 
os sinais gráficos representados pelos có- 
digos após CHRS$ no programa e tente 
entender como a espaçonave foi cons- 
truída. A instrução * + CHRS$ ( )' sig- 
nifica “PRINT CHRS$ ( ) na próxima 
posição de tela”. 


LULU) 


Eis aqui o programa que anima o in- 
seto, movendo-o pela tela: 
10 CLS 
20 FOR N=0 TO 28 
30 PRINT €192+N,")))":PRINT 822 








4+N,"000<": PRINT 8256+N,")))” 
40 FOR X=1 TO 10 
50 NEXT X 


60 PRINT €192+N,”  ":PRINT 622 
4+n,” ":PRINT 6256+N,” 
70 PRINT €192+N," (((":PRINT 622 
4+N, "000<”: PRINT 6256+N,"(((” 
80 FOR X=1 TO 10 
90 NEXT X 
100 PRINT €192+N,”  ":PRINT €2 
24+N," ":PRINT 6256+N,” 
110 NEXT N 
120 Goto 20 

Existem três laços FOR...NEXT no 
programa. Os dois que utilizam X dimi- 
nuem a rapidez de impressão fazendo o 
computador contar até dez; o que usa 
N faz com que o inseto se mova na tela. 

Você pode não ter entendido por que 
a linha 20 mostra FOR N = 0 TO 28 se 
existem 32 posições disponíveis em ca- 
da linha da tela. A razão para isso é que 
o inseto tem quatro espaços de compri 
mento, e, se houvesse mais que 28 na li- 
nha 20, a antena apareceria no lado 
oposto do vídeo, uma linha abaixo. Is- 
to acontece devido ao modo com que as 
posições de tela são numeradas. A po- 
sição 32, por exemplo, é a primeira da 
segunda linha, a partir do topo da tela. 

As linhas 60 e 100 parecem não estar 


imprimindo nada; elas são as linhas EEE 


““apagadoras” descritas anteriormente. 


[[L][[[[[W[wW[W[W[>>>>> 5555555555" 
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Para os micros da linha TRS-80 os 
programas acima podem ser modifica- 
dos com facilidade, bastando alterar os 
números após os comandos PRINT &, 
já que nesses micros uma linha tem 64 
colunas, ão invés das 32 da linha Color. 

O meio da tela fica mais ou menos 
na posição 450, Subtraindo 64 dessa po- 
sição temos 386 para a posição inicial 
das perninhas de cima, e somando 64, 
obtemos 514 (para as perninhas de bai- 
xo). Finalmente, 453 nos dá a posição 
das antenas. O programa final fica 
assim 















PRINTE386, 
3) 


10 PRINT 8450,"000< 
")))":PRINTES14 

15 FOR L=1 TO 15 

17 NEXT L 

20 PRINT €450,"000<": PRINTE386, 
"(((":PRINTOS14,"(((” 

25 FOR L=1 TO 15 

27 NEXT L 

30 coro 10 


LEAR RT 


Estude agora com atenção tudo o que 
está dito na seção sobre o uso de carac- 
teres gráficos no TRS-Color. Ela se apli- 
ca exatamente aos micros da linha 
TRS-80, que têm apenas caracteres grá- 

-ficos de baixa resolução. 





Os truques para desenhar figuras e 
movimentá-las são iguais aos ensinados 
para o TRS-Color, ou seja, basicamen- 
te, o comando PRINT Q, e a função 
CHR$ usada em conjunto com os códi- 
gos numéricos dos caracteres gráficos. 

As duas únicas diferenças são as se 
guintes 


— O conjunto de caracteres gráficos 
do TRS-80 é bem maior, pois cobre os 
códigos de 129 a 191, Cada caractere é 
a combinação de seis pontos em uma 
grade de três de altura por dois de lar 
gura (o TRS-Color possui caracteres 
gráficos em uma grade de 2 x 2, ou se- 
ja, com combinações de quatro pontos 
por caractere). 





— Como dissemos acima, o número 
de posições O na tela também é maior 
1024 (dezesseis linhas de 64 colunas 
cada), 


Os ficos de baixa resolução 
no TRS-80 são potencialmente mais ri 
cos e detalhados do que o Color (com 
apenas uma desvantagem para o'primei- 
ro: não podemos escolher a cor dos ca- 
racteres gráficos no TRS-B0, que tem o 
vídeo monocromático). 

Experimente fazer um programa 
igual ao do Color, para traçar o satélite 
(combinação de vários CHR$), e depois 
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O corredor em duas posições. 











faça algo mais difícil; animar um cor- 
redor de maratona. A definição da fi- 
gura do corredor em caracteres gráficos 
da linha TRS-80 pode ser vista na fig. 2. 
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ES EEE 40,17 já estão ocupadas pelo corpo do 


Abaixo vemos como programar o pe- 
queno “monstro rastejante” para qual- 
quer micro da linha Sinclair (por exem- 
plo, o TK-85 ou o TK-90X). Para co- 
meçar, tente criá-lo numa posição es- 
tática 
LO PRINT AT 10, 
RINT AT 9,15;")))" 

O PRINT AT 11,15;"9))" 
40 PRINT AT 10,18 ! 

O programa usa a declaração PRINT 
AT, que serve para colocar em algum 
ponto da tela um caractere ou conjunto 
de caracteres. Os números que se se 
guem à declaração PRINT AT represen- 
tam o número da linha onde ficará a 
figura (que vai de O a 21), e o número 
da coluna (que vai de O a 31), Assim, 
PRINT AT 10,6; A”, por exemplo, 
pede ao computador para escrever a le- 
tra A na posição definida pela linha 10 
e pela coluna 6 da tela (um quadricula- 
do imaginário, como em um jogo de 
“batalha naval”) 

Ele mostra o efeito de ordenar ao 
computador que imprima mais que um 
caractere numa mesma posição da tela: 
ele simplesmente avança e imprime os 
caracteres seguintes nas posições vizi- 
nhas. Esta é a razão pela qual as “'ante- 
nas” do inseto na linha 40 estão em 
10,18. As localizações 10,15; 10,16 e 








15; "000" 











inseto. 

Uma maneira mais conveniente de 
compor o inseto consiste em condensar 
as instruções acima em uma única linha; 
desta forma (só vale para o TK-90X): 


"o00<" 
bob o ad 


Adicione agora mais duas linhas e vo- 
cê terá animação: 

20 PRINT AT 10,15;"000<";AT 9 

SEP ((CPGAT 11,15; MCCC 
30 GOTO 10 

Quando executar esse programa, vo- 
cê verá que ele produz uma imagem 
pouco nítida, Isso acontece porque as 
imagens são trocadas muito rapi- 
damente. 

A melhor maneira de desacelerar o 
processo é usar um laço FOR...NEXT 
que faz com que o computador conte até 
dez (ou qualquer outro número que vo- 
cê queira). Antes de imprimir a imagem 
seguinte. Experimente, então, adicionar 
estas linhas ao seu programa (no TK-85 
use 2 ao invés de 10): 


15 FOR L=1 
17 NEXT L 
25 FOR M=1 TO 10 
27 NEXT M 





10 PRINT AT 10,15 ;AT 9 


115;")))"GAT 11,15; 








To 10 





Você pode variar a duração da pau- 
sa simplesmente mudando *1 TO 10º pa- 


ra*“1 TOS" ou *1 TO 20", por exemplo. 
O inseto criado até agora pode pare- 
cer inútil e estúpido, pois esperneia co- 
mo louco mas não se move. Mais 
adiante veremos como essa situação se 
modifica (seção MOVIMENTO). 


[o RAL 


Uma animação mais interessante po- 
de ser produzida utilizando os caracte- 
res gráficos padrão da linha Sinclair. Te- 
mos um exemplo na fig. 2. 

O programa completo é dado mais 
abaixo; no entanto, se você não está ha- 
bituado aos símbolos gráficos, será in- 
teressante criar, inicialmente, uma figu- 
ra estática, compondo uma linha de ca- 
da vez, deste modo: 
1 PRINT AT 5,15; 
2 PRINT AT 6,14; 








e assim por diante 

Encontrar esses caracteres gráficos é 
relativamente fácil. Para obter aqueles 
da linha 2 acima, por exemplo, tecle 
CAPS SHIFT (SHIFT no TK-85) e 9, 
simultaneamente. Isso o coloca no mo- 
do gráfico indicado pelo G piscando na 
tela. ão, no TK-90X, pressione 
CAPS SHIFT e 6 juntos para obter uma 
versão invertida — preto no lugar do 
branco — do simbolo da tecla 6; depois 
CAPS SHIFT e 8 e 6 sozinhos. No 




















TK-85 pressione SHIFT e T; SHIFT e 
SPACE; SHIFT e Y. Finalmente, tecle 
9 para deixar o modo gráfico antes de 
inserir as aspas no fim da linha. 

Aqui temos o programa completo pa- 
ra formar a figura: 


10 PRINT AT 5,14;"LJOlJ";AT 6 
Ta A = ar 74; 
AT 8,14 nur po 

20 PRINT AT 5,14;"LJOCI";AT 6, 









14;" af AT 7,14;"Py a !": 
AT 8,14; E 
30 corto 10 


É possível que você sinta necessida- 
de de inserir novamente um laço 
FOR...NEXT depois da linha 10 e ou- 
tro após a linha 20 para desacelerar a 
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Agora que você já sabe animar uma 
figura, podemos passar ao programa 
que faz com que ela se mova pelo vídeo: 


10 FOR N=0 TO 27 

20 PRINT AT 10,N;"000<";AT 9, 
NG" (((TGAT II,NGPCC(” 
30 PRINT AT 10,N;” 
N;” "AT 11,N;"o 
40 PRINT AT 10,N;"000<";AT 9, 
N;")))"GAT 11,N;")))” 

50 PRINT AT 10,N;"000<";AT 9, 
ss ";AT 11,N;” ad 


";AT 9, 


70 Goto 10 


Este programa também usa um laço 
FOR...NEXT, porém com uma finali- 
dade completamente diferente da do 
exemplo acima. Lá o computador fazia 
uma contagem, por frações de segundo, 
antes de imprimir uma imagem. Agora 
ele é responsável pela movimentação da 
imagem, que assume uma posição de ca- 
da vez na superfície da tela. 

E por que a linha 10 mostra “O TO 
27", se a tela do Sinclair tem, no total, 
32 posições? Para descobrir, modifique 
a linha 10 para: 


10 FOR N=0 TO 32 


Outra dúvida pode ser em relação às 
linhas 30 e 50. Experimente apagá-las e 
você logo descobrirá sua utilidade. 


+11 EEE 


O programa que movimenta a “tatu- 
rana” usa exatamente os mesmos carac- 
teres que os outros computadores. O 
que muda é o comando para posicioná- 
lo, que nos computadores da linha MSX 
(por exemplo o HotBit, da Sharp) rece- 
be o nome de LOCATE. Esse comando 
posiciona o cursor sobre a tela, em uma 
posição definida pelos dois números que 
se seguem ao comando LOCATE. O 
primeiro número refere-se à coluna, e o 
segundo, à linha. Assim, por exemplo, 
LOCATE 12,4 coloca o cursor na colu- 
na 12 e na linha 4, Qualquer comando 
PRINT que seja dado após isto escre- 
verá o caractere (ou caracteres) a partir 
da posição definida pelo LOCATE. 
Agora, digite o programa: 

5 cLS 

10 LOCATE 18,10:PRINT "000" 

20 LOCATE 18,9:PRINT ")))” 

30 LOCATE 21,1 
40 LOCATE 18,11:PRINT ")))” 
42 FOR I=1 TO 30 

47 NEXT I 

50 LOCATE 18,10:PRINT "000" 
60 LOCATE 18,9:PRINT "(((” 
70 LOCATE 21,10:PRINT "<” 
B0 LOCATE 18,11:PRINT "(((” 
82 FOR I=1 TO 30 

87 NEXT I 

90 coTo 10 











Quando o programa é executado, vo- 
cê pode observar a figura do “inseto” 

















vibrando rapidamente. Ela é criada pe- 
la sobreposição dos dois conjuntos de 
caracteres, que estão nas linhas com o 
comando PRINT. Ao mesmo tempo, o 
comando GOTO, na última linha, faz 
com que o programa se repita indefini- 
damente, pois retorna sempre ao seu ini- 
cio. 

O movimento das patinhas da ““ta- 
turana” é bastante veloz, e quase não dá 
para perceber o efeito da animação. Por 
isto, precisamos dar um jeito para dimi- 
nuir a velocidade. A maneira mais fácil 
de se fazer isto é utilizarmos a declara- 
ção FOR...NEXT, que cria um laço de 
repetição 'no vazio”, isto é, apenas pa- 
ra gastar um pouco de tempo (explica- 
remos na próxima lição de programação 
BASIC como se usa este tipo de laço). 

Assim, introduza a linha: 


45 FOR T=1 TO 100 : NEXT 


A seguir, rode o programa e observe 
como o efeito de movimentação das pa- 
tas tornou-se muito mais lento. Isso foi 
possível porque o laço criado na linha 
45 funciona como um contador — nes- 
te caso, contando até 100, quando en- 
tão, ao terminar a contagem, prossegui- 
rá executando o programa a partir da li- 
nha 50. 

Pode-se variar a duração dessa pau- 
sa simplesmente mudando-se o número 
100 para outro qualquer. Quanto maior 
for esse valor numérico, maior será o re- 
tardo de tempo provocado. 





a 


O próximo passo é alterar o progra- 
ma de forma que o corpo do inseto se 
movimente pela tela. Para isto, utiliza- 
mos a declaração LOCATE, já descrita. 

Neste caso, usaremos uma variável 
para fazer com que a função LOCATE 
mude continuamente a posição do cur- 
sor, de modo que os PRINT's que pro- 
duzem a imagem dêem a impressão de 
deslocamento. Para fazer variar o valor 
desta variável que afeta o LOCATE, 
usamos um outro laço FOR...NEXT 
mais externo âquele que anima o bichi- 
nho: 


10 FOR N=0 TO 36 

20 LOCATE N,15:PRINT "000<” 
30 LOCATE N,14:PRINT "(((” 
40 LOCATE N,16:PRINT "(((” 
50 LOCATE N,15:PRINT ” 

60 LOCATE N,14:PRINT ” t 
70 LOCATE N,16:PRINT ” 
80 LOCATE N,15:PRINT "000<” 
90 LOCATE N,I4 
100 LOCATE N,1 
110 LOCATE N,15:PRINT " 
120 LOCATE N,1 
130 LOCATE N,1 
140 NEXT N 





O que fizemos foi simplesmente tro- 
car o comando GOTO na linha 90 do 
programa anterior pelos comandos 
FOR...NEXT, que aumentam de um em 


um o valor da variável P, cada vez que 
o programa se repete. Como Fé argu- 
mento da instrução LOCATE (indexan- 
do o número de linha, ou o eixo X), is- 
to faz a figura se movimentar um passo 
para a direita, a cada ciclo do programa. 

As linhas 50, 60, 70, 110, 120 e 130 
apagam as posições antigas do inseto. 
Retire-as e veja o que acontece. 

Quando você roda o programa, o in- 
seto atravessa a tela e pára em sua mar- 
gem direita. Para fazê-lo voltar à origem 
e começar o “'passeio” novamente, ex- 
perimente digitar a seguinte linha adi- 
cional ao programa acima: 


160 coTo 10 


DRA A ST 


Os computadores da linha MSX tem 
um grande conjunto de caracteres grá- 
ficos à disposição do programador do- 
tado de instinto exploratório. Eles são 
digitados a partir do próprio teclado, e 
podem ser usados para criar figuras e 
desenhos mais elaborados. 

Para ter acesso a estes caracteres, vo- 
cê deve utilizar as teclas GRAPH, CO- 
DE e SHIFT, juntamente com as demais 
teclas do teclado. No manual do seu 
computador podem ser encontradas 
“mapas” do teclado, que indicam as te 
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clas associadas a cada caractere gráfico 
existente. 

Agora, tente digitar alguns caracte- 
res gráficos. O símbolo de espadas do 
baralho, por exemplo, pode ser obtido 
pressionando-se as teclas GRAPH e Ç 
(cedilha). O simbolo do naipe de ouro 
pode ser obtido pressionando-se as te- 
clas SHIFT, GRAPH e Ç simulta- 
neamente, 

O programa abaixo faz a animação 
gráfica de um helicóptero visto de cima, 
demonstrando como podem ser usados 
os caracteres gráficos dos MSX 














5 cLs 
10 LOCATE 13,5:PRINT ” 
20 LOCATE 13,6:PRINT - 
30 LOCATE 13,7:PRINT ? 
40 LOCATE 13,8:PRINT Ná 
50 LOCATE 13,9:PRINT » 
60 LOCATE 13,10:PRINT B 
70 LOCATE 13,11:PRINT » 
80 LOCATE 13,12:PRINT E 
90 LOCATE 13,13:PRINT R 
100 LOCATE 13,5:PRINT 
110 LOCA. 2 13,6:PRINT 
120 LOCATE 13,7:PRINT 
130 LOCATE 13,8:PRINT 
140 LOCATE RINT 
150 LOCATE : PRINT 
160 LOCATE : PRINT 7 
170 LOCATE PRINT " 
180 LOCATE : PRINT E 





190 Goto 10 





Os possuidores de micros compatíveis 
com a linha Apple II e derivados, bem 
como os que têm um Microdigital 
TK-2000, podem rodar os mesmos pro- 
gramas listados acima para os micros da 
linha MSX. Algumas modificações, po- 
rém, devem ser feitas, fi às diferen- 
ças dos modelos: 











* todos os comandos CLS (usados 
para limpar a tela) devem ser substitui- 
dos pelo comando equivalente HOME 















































































































































Como construir um helicóptero. 


* nos micros da linha Apple não há 
a instrução LOCATE, mas ela pode ser 
substituida por duas outras, que são 
HTABe VTAB (tabulação horizontal e 
vertical, respectivamente). 

Essas duas funções controlam o po- 
sicionamento horizontal e vertical do 
cursor, antes de dar um PRINT. O co- 
mando HTAB é acompanhado de um 
número entre 1 e 40, que determina a co- 
luna de posicionamento; já o comando 
VTAB faz o mesmo com a linha (de 1 
a 21). 

Assim, por exemplo, onde está escri- 
to, no programa para o MSX 








20 HTAB 18:VTAB 10:PRINT "000" 


substitua por: 


20 LOCATE 18,10:PRINT "000" 


O programa do helicóptero não po- 

de ser introduzido em micros da linha 
Apple, pois estes não possuem caracte- 
res gráficos. O mesmo não acontece com 
o TK-2000, cujos caracteres estão dis- 
poniveis através do teclado, ao se pres- 
sionar as teclas <CONTROL> e B, 
simultaneamente, ou por meio da fun- 
ção CHRS (442), através de programa 
Consulte o manual do TK-2000 e iden- 
tifique os códigos dos caracteres usados 
nesse programa. 
Se você quiser inventar novas figuras, 
basta usar os gráficos da tabela existen- 
te no manual ou os caracteres padroni- 
zados do teclado, ou os dois juntos. Ca- 
so seu computador seja diferente dos 
mencionados acima, proceda da seguin- 
te maneira: desenhe as figuras em papel 
quadriculado e faça seu próprio progra- 
ma, utilizando os caracteres gráf 
poníveis no seu computador. 
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Bm" AFUNÇÃORNO E COMPARAÇÕES COM IF ... THEN 
= COMO SÃO CRIADOS NÚMEROS IM DOIS JOGOS DE ADIVINHAÇÃO 

O MENTÓRIOS PARA VOCÊ PROGRAMAR 
E APRENDA A USAR VARIÁVEIS EM FAIXAS DE GERAÇÃO 
E A DECLARAÇÃO INPUT — — DENÚMEROS ALEATÓRIOS 





A 





Pense em um número ao acaso: é assim, 
aleatoriamente, que muitos 
jogos são criados pelo computador. 


Ninguém aprende a jogar futebol 
praticando apenas uma jogada de cada 
vez, para só entrar numa partida quan 
do todos os lances possíveis estiverem 
assimilados. Se alguém escolhesse esse 
método, teria de esperar a vida inteira, 
pois o número de jogadas possiveis é 
praticamente infinito 

O mesmo, felizmente, não acontece 
com a programação de computadores, 
que pode ser aprendida de modo gra 
dual. Assim, os manuais que acompa- 
nham os computadores ensinam uma 
função ou comando de cada vez. Você 
pode aprender por ele, se quiser. Mas a 
forma mais divertida de fazer isso é co- 
meçar a jogar desde o começo, apren- 
dendo na prática. 

O jogo mais fácil de ser programado 
em um micro doméstico é aquele em que 
o computador “inventa” um número 
aleatório (ao acaso), e o jogador tenta 
adivinhá-lo 


ERR) 


Os computadores domésticos têm um 
gerador de números aleatórios (ou ran 
dômicos) que permite inventar jogos 
Ele é operado, em BASIC, pela função 
RND. Em alguns computadores, en 
tretanto, os números produzidos não 
são muito úteis na sua forma original 
— são todos frações decimais entre O e 
0.99999999. Para verificar isso, digite 
este programa, teclando primeiramente 
NEW para limpar da memória qualquer 
programa já existente 


10 LET X=RND(0) 
20 PRINT X 
30 Goto 10 


10 LET X=RND 
20 PRINT X 
30 Goto 10 





10 LET X 
20 PRINT 
30 GOTO 10 


RND (1) 





(Lembre-se de teclar <ENTER> ou 
< RETURN > - dependendo do seu com- 
putador - após cada linha do programa.) 

Quando você executar esse programa 
(use comando RUN), vai obter uma se- 
quiência de longos números decimais, 
muito distante de um jogo de adivinha- 
ção (para saber por que é assim, veja o 
quadro Perguntas e Respostas na pági- 
na 13). 

Então, como conseguir que o compu- 
tador produza somente números intei- 
ros? A resposta é muito simples: adicio- 








nando a função INT (uma abreviação 
da palavra inglesa integer, que quer di- 
zer inteiro) a estas linhas 


10 LET X=INT (RND*6) 


10 LET X = INT ( 
20 PRINT X 
30 coro 10 


RND (1) * 6) 


Isso vai gerar números inteiros entre 
O e 5. Nos computadores da linha 
TRS-80, não é preciso utilizar a função 
INT, pois a função RND a realiza se re- 
ceber um número inteiro positivo como 
argumento; 














IH 


10 LET X=RND(6)-1 
20 PRINT X 
30 coro 10 





(Lembre-se sempre de pressionar 
<RETURN> ou <ENTER> após di- 
gitar cada linha.) 

Qualquer que seja o computador que 
estiver usando, você não está limitado 
a trabalhar com números entre 0 e 5, po- 
dendo escolher igualmente 10 ou 10 000 
como número máximo: o computador 
sempre sorteará um valor compreendi- 
do entre O e o número máximo es- 
colhido. 


PAGUE AA 


Ao escrever O programa acima, além 
de selecionar um número aleatório, vo- 
cê deu um nome a ele (X). Daí em dian- 
te, no programa, toda vez que o X for 
colocado, o computador “'saberá”” que 
você se refere aquele número aleatório. 

Esse nome, que permite ao compu- 
tador identificar um valor, de tal for- 
ma que possa compará-lo com outro 
número, fazer operações aritméticas 
com ele, etc., é chamado de variável. A 
variável corresponde, grosso modo, ao 
rótulo de uma caixinha individual na 
memória do computador, onde armaze- 
namos valores. 





EC 





atu 


Em nosso joguinho, após ter gerado 
o número aleatório, o passo seguinte se- 
rá avisar o computador de modo a fazê- 
lo aceitar seu palpite. Para isso, você de- 
ve utilizar a declaração INPUT. Ela diz 
ao computador para ficar esperando até 
que alguma informação tenha sido di- 
gitada pela pessoa que está usando o 
programa. 

A declaração INPUT sozinha, entre- 
tanto, não tem sentido. Precisamos for- 
necer ao computador um nome de va- 
riável para que ele saiba como identifi- 
car o dado a ser digitado e armazenar 
o seu valor na memória. Vamos supor 
que queremos entrar um dado na variá- 
vel G (de guess, ou palpite, em inglês). 
Poderia ser perfeitamente um outro no- 
me qualquer, envolvendo uma ou mais 
letras combinadas, tal como PALPITE, 
se você achar interessante. 

Assim, a declaração completa fica da 
maneira como segue (não a digite 
ainda): 





[é ly aa ES ES 


INPUT G 


Agora que o computador tomou co- 
nhecimento do seu palpite, pode com- 
pará-lo com o número secreto gerado 
(que está guardado na variável X). Isso 
é feito de uma forma muito simples, 
equivalente à frase: 


SE X=G ENTÃO ESCREVA"MUITO BEM!” 


Em programação BASIC fica assim: 


[é ónus aa ES ES 


IF X=G THEN PRINT "MUITO HEM!” 

A declaração IF ... THEN, sem dú- 
vida, é muito útil. Você vai usá-la mui- 
tas vezes na programação. 


= “HOJE E 
= “QUINTA-FEIRA” 


As + es 





Os micros das linhas TRS-80, TRS- 
Color e MSX têm uma extensão a essa 
declaração que é o IF... THEN .. 
SE (em bom português, SE. - ENTÃO 

SENÃO). Neste caso, o programa- 
dor pede para o computador fazer algu- 
ma coisa a mais, caso a condição de teste 
(por exemplo, se os números são iguais) 
não seja satisfeita. Nos computadores 
que não têm a declaração ELSE — co- 
mo é o caso dos compatíveis com a li- 
nha Apple e com as linhas Sinclair 
ZX-81 e Spectrum — se os dois núme- 
ros não forem iguais o programa pas- 
sará automaticamente para a linha se- 
guinte àquela onde está o comando IF. 








AGEM DO PROGRAMA 


Agora digite o programa abaixo (o si- 
nal <> significa “é maior que e me- 
nor que" ou diferente de): 


20 LET X=RND(6)-1 

30 PRINT "O COMPUTADOR ESCOLHEU 
UM NUMERO ENTRE O E 5. VOCE PO 
DE ADIVINHA-LO?” 

40 INPUT G 

60 IF G=X THEN PRINT "MUITO BEM 
!"ELSE PRINT "QUE AZAR - VOCE E 
RROU!” 


Para os micros compatíveis com o 
ZX-81, digite em maiúsculas. 


20 LET X=INT (RND*6) 

30 PRINT "O Computador escolh 
eu um numero entre 0 e 5. Ten 
te adivinha-lo.” 

40 INPUT G 

60 IF G=X THEN PRINT 
bem!” 

80 IF G<>X THEN PRINT "Que 
azar - Voce errou!” 


[eb ico] ht 


20 LET X=INT(RND(1)*6) 

30 PRINT"O Computador escolheu 
um numero entre 0 e 5. Tente a 
divinhá-lo.” 

40 INPUT G 

60 IF G=X THEN PRINT 
es 


"Muito 


“Muito bem 


8o IF G<>X THEN PRINT "Que azar 
- Você errou!” 


Rode este programa e você verá que 
já dá para jogar, mas ainda não é m 
to divertido. Para começar, a tela vai 
cando um tanto congestionada e, o que 
é pior, o jogo acaba logo após a primei- 
ra tentativa! 

Para resolver o primeiro problema, 
você só precisa acrescentar: 


anais 


10 cLS 
50 cLS 


[ILS] 


10 HOME 
50 HOME 





A declaração CLS quer dizer “limpe 
a tela” (clear screen). Para os compu- 
tadores da linha Apple, a declaração 









equivalente é HOME, que significa ''vá 
para casa” (no caso, o cursor vai para 
o alto da tela quando esta fica limpa). 
Assim, somente as informações novas 
aparecem no vídeo. Lidar com o segun- 
do problema é um pouco mais difícil. 
Uma forma de resolvê-lo seria colocar 
um GOTO na linha 90, de modo a rei- 
niciar o jogo automaticamente, Mas is- 
so faria com que a tela limpasse brus- 
camente, e o jogador não poderia ver a 
tempo a mensagem: 


[ló ya aacSES 


90 Goro 1º 


PVE 


Uma maneira melhor é oferecer ao 
jogador a opção de um novo jogo ape- 
nas no caso de ele o desejar. Pode pare- 
cer um pouco complicado, mas, na prá- 
tica, é bastante simples. 

Comece digitando o programa: 


10 cLs 
20 LET X=RND(6)-1 


30 PFINT "O COMPUTADOR ESCOLHEU 
UM NUMERO ENTRE O E 5. VOCE PO 
DE ADIVINHA-LO?” 

40 INPUT G 

50 cLs 

60 IF G=X THEN PRINT "MUITO BEM 


!"ELSE PRINT 
RROU!” 

90 PRINT "VOCE QUER TENTAR OUTR 
A VEZ?” :PRINT"SE QUISER, DIGITE 
*S' E PRESSIONE<CENTER>" 

100 INPUT AS 
110 IF AS="S" 
120 coro 100 


Para o programa abaixo rodar cor- 
retamente nos compatíveis com o 
ZX-81, digite tudo em maiúsculas e 
substitua a linha 110 por: 

110 IF A$="S” THEN GOTO 10 


"QUE AZAR - VOCE E 


THEN GOTO 10 


10 cLS 

20 LET X=INT (RND*6) 

30 PRINT "O Computador escolh 
eu um numero entre 0 e 5. Ten 
te adivinha-lo.” 

40 INPUT G 

50 cLs 

60 IF G=X THEN PRINT "Muito 
bem!” 

70 IF G=X THEN GOTO 90 

80 IF G<>X THEN PRINT "Que 
azar - Voce errou!” 

90 PRINT "Voce quer tentar ou 
tra vez? Se quiser, digit 


e Se pressione ENTER” 


100 INPUT AS 
110 IF AS="5" 
Goro 10 

120 Goto 100 


[eb [c5] 


10 HOME 

20 LET X = INT ( RND (1) * 6) 
30 PRINT "O Computador sorteou 
um numero entre 0 e 5. Sera qu 
e voce consegue advinhar 7?” 


OR AS="s” THEN 


40 INPUT G 

50 HOME 

60 IF G = X THEN PRINT "Muito 
bem !" 

70 IF G< >X THEN PRINT"OG 
ue azar ! - Voce errou.” 


90 PRINT "Quer brincar de novo 
? Se quiser, tecle 'S' e apert 
e a tecla RETURN.” 


100 INPUT AS 
110 IF AS = "5" THEN GOTO 10 
120 corto 100 


LIST 


100 PRINT 
209 PRINT 
196 PRINT 
306 PRINT 
506 PRINT 


sy 


10 cLs 

20 LET X=INT(RND(1)*6) 

30 PRINT"O Computador escolheu 
um numero entre 0 e 5. Tente a 
divinhá-lo.” 

40 INPUT G 

50 cLs 

60 IF G=X THEN PRINT "Muito bem 
1” 

70 IF G=X THEN GOTO 90 

80 IF G<>X THEN PRINT "Que azar 
- Você errou!” 




















Como se especificam os intervalos de 
números aleatórios? 

As funções RND nos micros da linha 
Sinclair, RND(1) no Apple Il, TK-2000 
e MSX, e RND(0) nos compatíveis 
com o TRS-BO e Color, geram núme: 
ros aleatórios distribuídos entre O e 
0.9999999. Se você quiser um nú- 
mero aleatório distribuído em uma fai 
xa maior de números, multiplique o 
número obtido através das formas 
acima por uma constante. Por exem- 
plo, para obter um número entre O e 
39.99999999, basta multiplicar a sal: 
da da função RND por 40. 

Para gerar números inteiros, use a 
função INT. Um número inteiro entre O 
e 39 é produzido através da expressão 
INT (função RND original * 40). Se vo- 
cê quiser números distribuídos entre 1 
e 40 adicione 1 à expressão anterior. 
Nos micros da linha TRS-80, para ge- 
rar um número aleatório entre 1 e 40, 
use RND(40) 



























Alguns computadores utilizam as pala- 
vras RAND, RANDOM ou RANDOMI- 
ZE. Para que servem? 

Para evitar a repetição da sequên- 
cia de números aleatórios gerada pelo 
computador. Os micros da linha 
TRS-B0 têm a declaração RANDOM, e 
os da linha ZX-81, a RAND. Nestes úl- 
timos, RAND 1 (ou RANDOMIZE 1, no 
caso do Sinclair Spectrum e compati- 
veis) assegura que a sequência aleató- 
ria seja constante. Quando usamos 
RAND ou RANDOMIZE sem argumen- 
to, ou seguidos de O, a sequência nun- 
ca se repete. 




























90 PRINT "Você quer tentar outr 


a vez? Se quiser, di 
gite S e pressione RETURN” 

100 INPUT AS 

110 IF A$="S” OR AS$="s” THEN GO 
TO 10 

120 coro 100 


Como você pode notar, primeiro se 
pergunta ao jogador (linha 90) se ele 
quer jogar novamente. Depois, para avi- 
sar o computador que espere por uma 
resposta, usa-se a declaração INPUT na 
linha 100. 

Mas, desta vez existe uma diferença 
importante. Depois da linha 20, o joga- 
dor deu entrada a um número. Agora 
ele vai entrar um S (para “'sim”') ou um 
N (para ''não”), ou seja, uma letra não 
e um número. 
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Isso significa que, na linha 100, ao in- 
vés de INPUT A você deverá usar IN- 
PUT AS. O cifrão (também chamado de 
“dólar'), designa o chamado string 
(cordão) e A$ é uma variável alfanumé- 
rica (string variable) 

Por que o $ é necessário? Para enten- 
der isso é preciso conhecer a maneira co- 
mo o computador armazena dados e tra- 
balha com entradas, o que veremos mais 
adiante. Por enquanto, o importante é 
lembrar o seguinte: quando o computa- 
dor deve esperar um número, você usa 
INPUT A, INPUT B, INPUT X ou 
qualquer outra letra; quando se trata de 
uma letra ou palavra, você deve usar IN- 
PUT AS, INPUT BS, INPUT XS$ ctc. 

A linha 120 foi incluída de forma 
que, se o jogador não deseja outra par- 
tida imediatamente, o computador es- 
pera até que ele queira, repetindo o pro- 
cesso até que a resposta seja igual a S. 
Isto acontece devido ao retorno constan- 
te à linha 100 até que a tecla S seja pres- 
sionada, quebrando o ciclo 


ED 


A função RND tem centenas de usos 
em programação. Imagine, por exem- 
plo, que você deseje ensinar ao seu fi- 
lho ou irmão a tabuada do nove. Você 


poderia fazer o seguinte: 


10 PRINT "QUANTO E 1 VEZES 97” 
20 INPUT A 

30 IF A=9 THEN PRINT “CORRETO!” 
40 PRINT "QUANTO E 2 VEZES 97” 
50 INPUT B 

60 IF B=18 THEN PRINT “CORRETO!” 








Mas, desse jeito, você teria um pro- 
grama muito longo que não resolveria 
nem mesmo o problema de como pro- 
ceder se uma das respostas estiver erra- 
da! Devemos usar a função RND, en- 
tão, para produzir um programa que se- 
ja mais compacto e faça as perguntas 
corretamente, em sequência aleatória 
Outra recomendação importante: traba- 
lhe primeiro na parte principal do pro- 
grama, deixando os enfeites para de 
pois. Assim, experimente agora estas li- 
nhas (lembre-se de digitar o comando 
/ antes!): 


10 LET N=RND(12) 











20 PRINT "QUANTO E ";N VEZES 
a” 
30 INPUT A 

"CORRETO 


wu 40 IF A=N*9 THEN PRINT 


) 


Digite tudo o que vem abaixo apenas 
em maiúsculas, se for usar um compa- 
tível com ZX-81 


10 LET N=INT (RND*12+1) 


20 PRINT "Quanto e ";N;” veze 
s 9?" 

30 INPUT A 

40 IF A=N*9 THEN PRINT "Corr 
eto!” 

10 LET N = INT ( END (1) * 12 
+ 1) 

20 PRINT "QUANTO E ";N;"VEZES 
92” 


30 INPUT A 
40 IF A=NX*O9 THEN 
ERTO !” 


PRINT "C 


10 LET N=INT(RND(-TIME)*12+1) 
20 PRINT "Quanto é ";N;" vezes 
oiee 

30 INPUT À 

40 IF A=N*9 THEN PRINT "Correto 


[Dto to to [Lo to) 





Simbolos de computador utilizados em 
cálculos de aritmética elementar; 

o asterisco (*), e não o x, é empregado 
para indicar multiplicação 
a barra (/) significa “div 
a flechinha para cima indica 

“elevado à potência de... (em alguns 
computadores é um sinal circunflexo; 
em outros, dois asteriscos **). 

Em compensação, os sinais que indicam 
as operações de soma € 

subtração são seus velhos conhecidos: 
o mais (+) e o menos (—) da 
aritmética elementar. 











o por”; 


















Im 








Note a função TIME sendo usada co: 
mo argumento da função RND. Este é 
um artifício para gerar sempre números 
aleatórios diferentes nos micros da linha 
MSX, pois TIME informa ao computa 
dor o valor do tempo passado, em se 
gundos, desde que o aparelho foi ligado 

Este programa usa o gerador RND de 
forma semelhante à do jogo de adivi 
nhação. Na linha 10, determina-se uma 
variável para o número aleatório que o 
computador escolhe. Ela foi chamada 
de N, mas poderia ser outra letra ou pa 
lavra, desde que fosse usada sempre da 
mesma forma. Na parte direita da linha 
10, o programa diz ao computador pa 
ra escolher um número inteiro entre 1 
e 12. Nos micros da linha Sinclair, é ne 
cessário somar 1, porque seus números 
aleatórios começam a partir de zero. 

Na linha 20, pede-se ao jogador que 
multiplique por 9 o número que o com- 
putador escolheu desta vez. À linha 40 
diz ao computador para multiplicar o 
número aleatório por 9 e comparar o re 
sultado cor” a resposta tlada pelo joga 
dor (ou aluno). Se esta estiver correta, 
o computador mandará a mensagem de 
“CORRETO!” para a tela. Execute o 
programa e faça-o rodar várias vezes, 
para ver se funciona. Para que ele repi- 
ta automaticamente as questêes, acres: 
cente a linha 








50 GOTO 10 


Mas, pensando melhor, por que não 
fazemos as coisas de uma forma mais 


elegante, como se segue? 








10 PRINT “OI. QUAL E O SEU NOME 








20 INPUT 
30 
40 PRINT “OLA, ";AS:PRINT"EU TE 


NHO ALGUMAS PERGUNTAS PARA VOCE 





50 FOR X=1 TO 3000:NEXT X 

60 CLS 

70 LET N=RND(12) 

80 PRINT JANTO E VEZES 
92" 

90 INPUT À 

100 IF A=N49 THEN GOTO 150 
110 CLS 

120 PRINT A;"?” 

130 PRINT "TENTE OUTRA VEZ 





140 Goto 80 
150 PRINT "MUITO BEM, 
PRINT"AQUI VAI MAIS UMA 


160 FOR X=1 TO 2000:NEXT X 
170 Goto 60 





OR 





Digite tudo o que vem abaixo apenas 
em maiúsculas, se for usar um compa 
tível com ZX-81: 


10 PRINT "Oi. Qual e seu nome 
2" 

20 INPUT AS 

30 CLS 

40 PRINT "Ola, ";A$;".","Eu t 





enho algumas perguntas para v 
oce.” 

50 PAUSE 200 

60 CLS 

70 LET N=INT (RND*12)+1 

80 PRINT "Quanto e ";N;” veze 
s 9?" 








90 
100 
110 
120 
130 
140 
150 


+"Aqui 


160 
170 


10 
e?" 
20 
30 
ao 


INPUT A 

IF A=N*9 THEN GOTO 150 
cLS 

PRINT A;” 7” 

PRINT "Tente outra vez!” 
Goro 80 

PRINT "Muito bem, 
vai mais uma:” 
PAUSE 150 

Goro 60 


nas; r.” 


PRINT "Ola.Qual e o seu nom 


INPUT AS 


HOME j 
"oi ";AS: PRINT "Eu L as 


PRINT 








enho algumas perguntas para voc 
e. 

50 FOR X=1 TO 6000: NEXT X 
60 HOME 

70 LETN = 
+13 

80 PRINT "Quanto e " 
Gr" 

90 INPUT A 

100 IF A = N* 9 THEN GOTOIS 
0 





INT ( RND (1) * 10 


1" vezes 





110 HOME 

120 PRINT A;"?” 
130 PRINT "Errado. 
vez” 

140 coro 80 

150 PRINT "Muito bem 
NT "Aqui vai outra.” 
160 FOR X = 1 TO 4000; NEXT X 
170 Goto 60 


| 


10 PRINT "Oi. Qual é o seu nome 


Tente outra 


";AS: PRI 


20 INPUT AS 

30 cLS 

40 PRINT "Olá, ";A$;".","Eu ten 
ho algumas perguntas para você: 


50 FOR X=1 TO 2500:NEXT X 
60 cLS 
70 LET N=INT(RND(-TIME)*12)+1 


80 PRINT "Quanto é ";N;” vezes 
o” 

90 INPUT A 

100 IF A=N*X9 THEN GOTO 150 

110 cLS 


120 PRINT A;"?” 

130 PRINT "Tente outra vez.” 
140 coToeso 

150 PRINT "Muito bem, 
"Aqui vai outra:” 
160 FOR X=1 TO 1500:NEXT X 
170 Goto 60 


"GAS", 


As linhas 30, 60 e 110 evitam que a 
tela fique repleta de mensagens do com- 
putador ou de respostas erradas. As li- 
nhas 50 e 160 fazem o computador es- 
perar algum tempo antes de formular 
a próxima pergunta. As declarações 
FOR...NEXT serão explicadas na pró- 
xima lição de BASIC. 

No programa para o Sinclair, as vir- 
gulas nas linhas 40 e 150 servem para es- 
paçar as mensagens na tela. Nos outros 
programas, as declarações PRINT ex- 
tras fazem o mesmo. Para evitar que o 
programa seja interminável, faça o se- 
guinte: 





3 EST 


NO LET AS 
20 LET BS 


Je LET CS = 08 + As 


* QUINTA-FEIRA 





Pressione a tecla BREAK 


Acione as teclas STOP e ENTER. 


[ab] [có] 


Pressione as teclas CONTROL e €, si- 
multancamente, e depois RETURN. 


hay 


Pressione as teclas CONTROL e STOP, 
simultaneamente. Mudando os noves 
do programa para cincos, seis ou setes, 
você poderá testá-lo com outras tabua- 
das, Será que você conseguiria modifi- 
car o programa para colocar esses nú- 
meros como variáveis, que seriam defi- 
nidas logo no começo por outra decla- 
ração INPUT? 





é Iy 











Muitas vezes, os iniciantes encon- 
tram dificuldades para interromper um 
programa em execução e voltar para a 
listagem. Isso acontece especialmen- 
te durante uma série de INPUTs, quan- 
do o computador enche a tela de men- 
sagens, não importa o que você digite. 

A seguir, abordaremos alguns pe- 
quenos truques que o ajudarão a sair 
desses aparentes impasses. Não exis- 
tem problemas sem solução para 
quem lida com computadores. 


Pressione simultaneamente as te- 
clas CONTROL e SPACE (para acionar 
a função BREAK), Se isso não der re- 
sultado, é porque o programa está pa- 
rado numa declaração. INPUT. Neste 
caso, se houver aspas na parte de bai- 
xo da tela, use a tecla de recuo do cur- 
sor e DELETE, para remover as aspas 
à esquerda. Depois disso, e se não hou- 
ver aspas, pressione as teclas STOP e 
ENTER, e acione ENTER de novo, para 
listar o programa automaticamente. 


[e] LS] 


Você deve acionar a tecla CTRL, 
mantê-la pressionada e, a seguir, pres- 
sionar a tecla C. Usaremos a notação 
CTRL-C para essa operação, assim co 
mo em qualquer outra ocasião em que 
duas teclas devam ser acionadas simul- 
taneamente CTRL-C não funcionar ex- 
perimente CTRL-RESET, Após obter na 
tela o 'J', que é o sinal de prontidão, 
digite LIST. 





Pressione a tecla BREAK, e de 
pois digite o comando LIST. Se não 
funcionar, pressione a tecla RESET na 
parte de trás do computador. 


o] 


Acione agora simultaneamente as 
teclas CONTROL e STOP. 





IT 





ESCREVA 
ESFORCO 


Você comete erros quando escreve 
cartas importantes? Se isso 
acontece, aqui está um programa 
que permite produzir cartas 
padronizadas com cópias 
personalizadas para muitas pessoas. 


Escrever um grande número de car- 
tas similares (por exemplo, pedidos de 
emprego, cartões de Natal, etc.) é uma 
tarefa longa e tediosa, quando reali- 
zada manualmente. 

O programa apresentado neste arti- 
go resolve num instante esse tipo de 
problema. Ele é um modelo simplifi- 
cado de um editor de textos, que per- 
mite entrar com uma carta padroni- 
zada no computador e produzir, caso 
necessário, cópias ligeiramente diferen- 
tes entre si. Alguns computadores pes- 
soais, como os da linha MSX, por 
exemplo, têm recursos para acentua- 
ção correta de textos em português, 
letras minúsculas e maiúsculas no te- 
clado e na tela, etc. Já os computa- 
dores compatíveis com a linha Sin- 
clair ZX-81 são bastante dificeis de 























EM À SUA IMPRESSORA 
= DIAGRAMAÇÃO DE UMA CARTA 

E PADRÃO 

E COMO ENTRAR O PROGRAMA IM MELHORE SEU TEXTO 
HE APRENDA A ADAPTAR O PROGRAMA IH IMPRESSÃO DE CÓPIAS 





usar com processamento de textos, 
pois dispõem de pouquissimos recur- 
sos para isto. Assim, não apresenta- 
mos aqui uma versão para máquinas 
desse tipo. 

Ao contrário de um programa com- 
pleto de processamento de textos, que 
costuma ser muito complexo e toma- 
ria horas de digitação para ser colo- 
cado no computador, o programa 
aqui apresentado tem bem menos re- 
cursos. Por exemplo, não dá para ver 
na tela o aspecto final da carta a ser 
impressa. Mas não se preocupe, ele 
não é tão limitado assim: tem recur- 
sos para evitar a divisão de palavras 
ao | de uma linha, inserir uma 
linha em branco entre dois parágra- 
fos, etc. 

Qualquer tipo de impressora serve 
para produzir as cartas (lembre-se, en- 
tretanto, que se você usou acentua- 
ção no texto, é necessário que a sua 
impressora seja capaz de reproduzi- 
la, o que nem sempre acontece). Se 
você quiser uma melhor qualidade de 
impressão, como é o caso de cartas 
mais “profissionais”, vai precisar, evi- 
dentemente, de uma impressora mais 
sofisticada (e com fita nova!). Esta 
pode ser do tipo matricial, com capa- 
cidade de imprimir em “'qualidade car- 











ta” (dupla sensibilidade de pontos), 
ou uma impressora (ou máquina de 
escrever) acoplada ao computador, 
usando o sistema de margarida, ou 
outro. Essas máquinas são caras, e 
nem todo mundo pode tê-las. Assim, 
talvez você possa usar a de um ami- 
go ou de seu trabalho. As caracteris- 
ticas das impressoras para micros se- 
rão discutidas em um artigo poste- 
rior. 


COMO "ENTRAR" O PROGRAMA 


O programa consiste de duas partes: o 
programa propriamentedito, na primei- 
raparteda listagem, co texto da carta, que 
deve ser armazenado no programa, atra- 
vés de uma série de declarações DATA. 

Comece digitando o programa princi- 
pal, listado a seguir para cada tipo de má- 
quina. Não digite as declarações DATA 
presentes no programa. Em seguida, gra- 
veo programa assim digitado em fita cas- 
sete ou disquete, usando o comando SA- 
VE (em alguns computadores, esse c: 
mando chama-se CSAVE): consulte o 
manual do computador para ver como 
usá-lo. Assim, o programa gravado pode- 
rá ser usado para qualquer tipo de carta, 
depois. Se você quiser preservarem a fita 
ou disco o programa contendo algum mo- 
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delo particular de carta, grave-o separa- 
damente, com outro nome (programa 
mais dados). 

Antes de imprimir sua carta, você 
deve fazer alguns ajustes, dependendo 
da impressora utilizada. 

Em primeiro lugar, verifique quan- 
tos caracteres por linha sua impresso- 
ra aceita (geralmente são 40, 80, 120 
caracteres por linha). Então, modifi- 
que o programa de forma a seguir 
essa largura de linha, permitindo uma 
margem adequada de ambos os la- 
dos. No programa, a variável TL re- 
presenta o comprimento total dispo- 
nível na impressora, e LL, o compri- 
mento da linha a ser digitada. Assim, 
você pode alterar os valores atribuí- 
dos no programa a essas variáveis, an- 
tes de imprimir as cartas, 


Modifique a linha 20 (dando a TL 
o valor da largura de linha disponível 
na impressora) e a linha 30, de modo 
que o valor de LL contenha a largura 
da linha da carta. Do jeito que está 
no programa, a linha 40 mostra na 
tela como sairá a carta, antes de im- 
primi-la. No momento da impressão, 
modifique a variável P, nessa linha, 
de O para 2. 





Modifique a linha 10 de maneira 
que PL seja a largura da impressora, 
e LL, a largura que você deseja para 
a carta (no exemplo dado, essas lar- 
guras estão muito pequenas para im- 
pressoras mais profissionais). 


Nesse computador não dá para im- 
primir a carta primeiro no vídeo, an- 
tes de mandá-la para a impressora, 
a não ser que você modifique todas 
as declarações tipo LPRINT existen- 
tes, para PRINT, e vice-versa. Na li- 
nha 10, as variáveis PL e LL devem 
ser modificadas conforme a sua im- 
pressora (ou, para impressão em vi- 
deo, para LL=35 e PL=40). 





Modifique a linha 30 de maneira 
que TL e LL contenham as larguras 
de linha disponíveis na impressora e 
na carta, respectivamente. Se você qui- 
ser ver na tela, primeiro, como sairá 
a carta, mude o valor de P para 0, 
TL e LL para 39. 


e SD 


Sua carta consistirá de uma série 
de declarações DATA, uma linha de 
texto por declaração. Digite-as como 
mostrado no exemplo na última pági- 
na deste artigo. 

As instruções DATA devem come- 
çar na linha 1000 do programa, e con- 
ter inicialmente o seu endereço. A pri- 
meira tarefa do programa será procu- 
rar a linha mais longa do endere 
e imprimi-lo à direita do cabeçalho. 
Depois disso, as declarações DATA de- 
verão conter o texto propriamente di- 
to da carta. O computador alinhará 
esse texto junto à margem esquerda 
da carta, conforme os padrões mais 
modernos para cartas comerciais. 





Cada linha da carta deve começar 
com aspas, logo após a declaração 
DATA. Alguns simbolos de edição po- 
dem ser incluídos no texto. Eles têm 
por objetivo orientar a forma estética 
de impressão. Aqui vai o significado 
de cada símbolo de edição para nos- 
so programa: 

Aqui vai o significado de cada sim- 
bolo de edição para nosso programa: 





* O simbolo & significa: “esta li- 
nha é parte do meu endereço, coloque- 
a do lado direito da página”. 





* O cifrão, $, quer dizer: “comece 
um novo parágrafo, deixando uma li- 
nha em branco acima dele”. 


* O & comercial (ampersand): “co- 
mece uma nova linha na margem es- 
querda, mas não deixe uma linha em 
branco antes” (ele é útil para compor 
o endereço do destinatário da carta). 








e O asterisco (*) significa: “centre 
esta linha”, 


Se você deseja colocar algumas li- 
nhas em branco indique-as com uma 
série de cifrões entre aspas, um para 
cada linha em branco. Quando você 
atingir o final da carta, os computa- 
dores do tipo abaixo necessitam de 
uma linha adicional: 


Entre um número de linha adicional, 
seguido por DATA $ 

Entre outra linha adicional, seguida 
por DATA. 














ELHORANDO SUA CARTA 


Visto que tudo está escrito em BA- 
SIC, você poderá, se quiser, gravar 
novamente o programa, com as decla- 
rações DATA incluídas. 

Posteriormente, se você quiser me- 
lhorar a carta, ou produzir uma nova 
versão, O primeiro passo será carregar 
o programa correspondente, a partir 
do disco ou cassete (usando o coman- 
do LOAD, ou CLOAD, conforme o 
tipo de computador), e editar o pro- 
grama usando o editor BASIC da for- 
ma habitual. Grave-a novamente, se 
quiser preservar essas mudanç e 
so contrário, terá que redigi 
quando carregar o programa original 
novamente. 


a REST 


Para imprimir sua carta basta exe- 
cutar o programa: ele se encarregará 
de ativar e desativar a impressora. Se 
você tentar fazer isso sem que a im- 
pressora esteja conectada (quando ela 
está ligada, a luz que indica a cone- 
xão com o computador, normalmente 
rotulada LINHA ou LINE, permane- 
ce acesa), o computador ficará para- 
do, esperando que a impressora entre 
em funcionamento. Neste caso, inter- 
rompa a execução do programa, pres- 
sionando a tecla BREAK ou sua equi- 
valente. A forma de ver a carta no 
vídeo, antes de imprimi-la, já foi in- 
dicada. 

O tipo de papel a ser usado depen- 
de de sua impressora. Algumas acei- 
tam folhas soltas, caso tenham o rolo 
compressor de borracha: essas folhas 
são melhores para uma correspondên- 
cia mais formal. A maioria das im- 
pressoras, entretanto, usa formulário 
contínuo, deslocado pelos picotes na 
margem (remalina). Depois de impres- 
sa a carta, retire as remalinas com 
uma guilhotina ou abrindo os pico- 
tes, acertando com uma tesoura ou 
lâmina afiada. 

No caso de utilizar papel timbrado, 
não é necessário incluir o seu endere- 
ço na carta. Assim, digite o texto nor- 
malmente, começando da linha 1000, 
mas sem entrar as linhas que come- 
çam por & Para imprimir cópias 
repetidas da mesma carta, execute o 
programa novamente, tantas vezes 
quantas forem necessárias. 











10 CLEAR 200 
20 TL=80 
30 LL=56 


40 P=0 

50 SP=(TL-LL)/2:HW=TL/2 

60 PRINT &-P,CHR$(13) 

70 IFP=2 THEN SPS=STRINGS(SP,” 

”) ELSE SP=0:HW=16 

200 READAS:AS=AS+" ” 

210 IF A$S=""GOTO 290 

220 OS=LEFTS(AS,1) 

230 IF 0$="4” THEN ML=0:GOSUB 4 

00:GoTO 290 

240 IF 05="S” THEN RL=0:PRINTA 

P,CHR$S(13);CHRS(13);SPS;:ST=2:G 

oTo 280 

250 IF 05$="*" GOSUB800:RL=HW-LE 

N(A$)/2:GOTO 280 

260 IF 0$="4&" THEN RL=0:PRINTE- 

P,CHRS(13);SPS;:ST=2:GOTO 280 

270 sT=1 

280 GOSUB 600 

290 GoTo 200 

400 IF LEN(AS)>ML THEN ML=LEN(A 

s) 

410 N=N+1:READ AS: IF LEFTS(AS,1 

)="4" Goto 400 

420 IF ML>LL THEN CLS:PRINT "ER 

RO NO FORMATO. ENDERECO MUITO L 

ONGO PARA O TAMANHO DE LINHA 

ESCOLHIDO.” : END 

430 RESTORE: FOR J=0 TO N-1:REA 

D AS:PRINT4-P, STRINGS (LL-ML,” " 

);SPS;:PRINT4-P,MID(AS-2) ;CHAS( 

13); 

440 NEXT:RETURN 

600 WL=0 

610 IF ST+WL>LEN(AS) THEN 630 

620 IF MIDS(AS,ST+WL,1)<>” " TH 

EN WL=WL+1:GOTO 610 

630 IF WL>LL THEN CLS:PRINT 

RO NO FORMATO. ..";AS:PRINT” ... 

CONTEM UMA PALAVRA GRANDE DEMAI 

S!": END 

640 IF RL+WL-1>LL THEN PRINT 4- 

P,CHR$ (13) ;SP$;:RL=0 

650 WL=WL+1 

660 PRINT 4-P,MIDS(AS,ST,WL) 

L=RL+LEN (MIDS (AS, ST, WL)) 

670 ST=ST+WL:IF ST<LEN(AS)+1 GO 

To 600 

680 RETURN 

800 IF LEN(AS)>LL THEN CLS:PRIN 

T"ERRO NO FORMATO. NAO POSSO 
CENTRALIZAR”, AS: END 

810 PRINT 4-P,CHR$ (13); 

820 IF HW>LEN(AS)/2 THEN PRINT 

4-P, STRINGS (HW-LEN(AS)/2," "); 

830 ST=2:RETURN 


10 LET LL=32: LET PL=32 
15 LET LL=LL+1: LET T=(PL-LL) 





"ER 





20 LET D=0 
30 READ AS: 
40 LET C=0 
50 IF C=L THEN GOTO 30 

60 LET C=C+1l: LET D=Dtl: IF € 
>l THEN GOTO 100 

70 IF AS(C)="4" THEN GOTO 


LET L=LEN AS 







” THEN GOTO 


85 IF AS(C)="&" THEN GOTO 


8so 

90 IF AS(C)="S" THEN LPRINT 
CHR$ 13;CHRS 13;: LET D=0: 
Goro 900 

95 LET A$=" "+AS: LET L=L+ 
100 IF AS(C)=" " THEN GOTO 
800 

110 LPRINT AS(C) 

115 IF D>LL THEN LET D=0 
120 GoTo 50 

500 LET NL=0: LET TA=LL: LET 
BE=0 


510 LET LE=LEN A$-1: IF LEDLL 
THEN PRINT FLASH 1;"Erro no 
formato - Endereco muito gran 
de.”: STOP 

520 IF LEDBE THEN LET BE-LE 
530 LET NL=NL+1: READ AS: IF 
AS(1)-="4” THEN GOTO 510 

540 RESTORE 1000 


550 LET TR=T+LL-BE: FOR G=1 TO 


NL: FOR H=1 TO TR: LPRINT ” *; 
: NEXT H: READ AS: LPRINT AS(2 
TO ): NEXT G 

560 GOTO 30 

700 LET TA=(LL-L)/2+T: IF TA<T 
THEN PRINT CHRS 13: PRINT 


FLASH 1;"Erro no formato - Nao 
posso cen-tralizar.”: STOP 





710 LPRINT CHRS 1 FOR n=1 
TO ta: LPRINT " * NEXT n: 
LPRINT AS(2 TO L): GOTO 20 
800 LET SL=LL-D-1: LET CC=C+1: 


LET X-1 

810 IF CC=L THEN GOTO 825 

820 IF AS(CC)<>" " THEN LET 
CC=CCt+l: LET X-X+1: GOTO 810 
825 IF X>=LL THEN PRINT CHR$ 
13: PRINT FLASH 1;"Erro no Fo 
rmato - Palavra muito grande.” 
: STOP 

830 IF SL>=X THEN GOTO 110 
850 LPRINT CHR$ 1 LET D=0 
900 FOR B=1 TO T; LPRINT " ";: 
NEXT B: GOTO 50 


| 


5 cLs 

10 LET LL=35:LET PL=40 

15 LET LL=LL+1I:LET PL=(PL-LL)/2 
20 LET D=0 

30 READ AS:LET L=LEN(AS) 

40 LET C=0 

50 IF C=L THEN GOTO 30 

60 LET C=C+1:LET D=D+1:IF Cl T 
HEN GOTO 100 

65 BS=MIDS(A$S,C,1) 

66 IF B$="=" THEN STOP 

70 IF B$="&” THEN GOTO 500 

80 IF B$="*" THEN GOTO 700 

85 IF B$="4" THEN GOTO 850 

90 IF B$="$" THEN LPRINT CHR$(1 
3) :LPRINT CHR$(13):LET D=0:GOTO 
900 

95 LET AS=" "+AS:LET LeL+l 

100 IF MIDS(AS,C,1)=" " THEN GO 
TO 800 

110 LPRINT MIDS(AS,C,1]); 

115 IF D>LL THEN LET D=0 

120 Goto 50 

500 LET NL=0:LET TA=LL:LET BE=0 
510 LET LE=LEN(AS)-1:IF LEDLL T 





















HEN PRINT "ERRO NO FORMATO - En 
dereço muito longo” 

520 IF LE>BE THEN LET BE-LE 

530 LET NL=NL+1:READ AS$:IF MIDS 
(A$,C,1)="4” THEN GOTO 510 

540 RESTORE 1000 

550 LET TR=T+LL-BE:FOR G=1 TO N 
L:FOR H=1 TO TR:LPRINT " ";:NEX 
T H:READ AS:F=LEN(AS) -1:LPRINT 
RIGHTS (AS,F) :NEXT G 

560 GOTO 30 

700 LET TA=(LL-L)/2+T:IF TA<T T 
HEN LPRINT CHR$(13):PRINT "ERRO 
NO FORMATO - Não posso central 
izar”: STOP 

710 LPRINT CHR$(13):FOR N=1 TO 
TA:LPRINT ”" ";:NEXT N:F=LEN(AS) 
-1:LPRINT RIGHTS (AS,F);:GOTO 20 
800 LET SL=LL-D-1:LET CC=C+I:LE 
Tx-l 

810 IF CC=L THEN GOTO 825 

820 IF MIDS(AS,CC,1)<>" " THEN 
LET CC=CC+1:LET X=X+1:GOTO 810 
825 IF X>=LL THEN LPRINT CHR$ (1 
3):PRINT "ERRO NO FORMATO - Pal 
avra muito qgrande”:STOP 

830 IF SL>=X THEN GOTO 110 

850 LPRINT CHR$(13):LET D=0 

900 FOR B=1 TO T:PRINT” :NEXT 
B:GOTO 50 


[ILS] 


100 HOME 
110 ONERR GOTO 430 

120 TL = B0;LL = 60:P = 1:D$ « 
CHRS (4) 
130 sP = 











(TL - LL) / 2:HW = TL 


PRINT D$;"PR$”;P 
PRINT CHR$ (13) 
READ AS:AS = AS + CHR$ (3 
IF AS = "" THEN 160 

OS = LEFTS (A$,1) 

IF OS - "4" THEN ML = 0: G 
OSUB 260: GOTO 250 

200 IF OS = "$” THEN RL = 
RINT CHR$ (13); CHR$ (13); 
( SP);:ST = 2: GOTO 240 
210 TF OS = "x" THEN 
O:RL = HW - LEN (AS) 
240 

220 IF OS = "A" THENBL=O0:P 
RINT CHR$ (13); SPC( SP);:ST = 
2: Goro 240 

230 sT = 1 

240 GOSUB 310 

250 GOTO 160 





Pp 
SPC 






GOSUB 40 
/ 2: GOTO 


260 IF JLEN (AS) > ML THEN ML 
= LEN (AS) 

270 N = N+ 1: READ AS: IF LEF 
TS (AS,1) = "4” THEN 260 

280 IF ML > LL THEN PRINT DS; 
"PR$0”: HOME PRINT : PRINT "E 


RRO DE FORMATO! O ENDERECO": PR 
INT "E MUITO LONGO PARA O TAMAN 
HO DA LINHA”: END 

290 RESTORE : FOR J = 1 TON: 
READ AS: PRINT SPC( LL - ML + 
SP + 1); RIGHTS (AS, LEN (A$) - 
1); CHRS (13); 
300 NEXT : RETURN 

















30 WL = 0 


320 IF ST + WL> LEN(AS) THE 
N 340 

330 IF MIDS (AS,ST + WL,1) < 
>” ” THEN WL = WL+I: GOTO 3 
20 

340 IF WL > LL THEN PRINT DS; 
"PR$0”: HOME PRINT "ERRO DE F 
ORMATO! ": PRINT A$;"... CONTEM 
UMA PALAVRA MAIOR QUE A LINHA! 
”": END 

350 IF RL + WL- 1 >LL THEN 


PRINT CHR$ (13); SPC( SP);:RL 
e 
360 WL = WL+1 














































370 PRINT MIDS (AS,ST,WL);:RL 
= RL + JLEN ( MIDS (AS,ST,WL)) 

380 ST = ST + WL: IF ST < LEN 

(AS) + 1 THEN 310 

390 RETURN 

400 IF JLEN (AS) > LL THEN PR 

INT D$;"PR$0”: HOME : PRINT "ER 

RO DE FORMATO! NAO SE PODE CENT 

RALIZAR ";A$: END 

410 PRINT CHR$ (13); 

420 IF HW > LEN (AS) / 2 THEN 
PRINT SPC( HW - LEN (AS) / 

2):ST = 2: RETURN 

430 PRINT : PRINT DS;"PR$0": E 

ND 
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A ARTE DE FAZER 


LAÇOS 


HE DESENHE NÚMEROS COM LAÇOS 


FOR... NEXT 


E | ONASCEREO PÔR-DO-SOL NO 


m APRENDA A CRIAR EFEITOS 
SONOROS 


HORIZONTE DO VÍDEO 
m CALEIDOSCÓPIOS 








Os comandos FOR e NEXT servem 
para provocar repetições de um 
trecho de programa em 

BASIC. Muito versáteis, eles são 

“pau para toda obra” e podem 

ser empregados em quase tudo, desde 
jogos até programas comerciais. 


Um laço é uma estrutura de progra- 
mação usada em operações repetitivas. 
Ele é usado quando se quer que o com- 
putador conte até um certo número, exe- 
cutando, ao mesmo tempo, alguma ou- 
tra operação. Além disso, o laço pode 
ser aplicado na repetição do mesmo pa- 
drão gráfico em diferentes posições na 
tela. A combinação de instruções FOR 






dades ven dd 


- o 


e NEXT na linguagem BASIC é usada 
na programação de diversos tipos de 
laços 









Assim, você aprenderá a criar “pin- 
turas à cas” usando laços 
FOR em programas muito pe- 








quenos. Esses laços serão igualmente 
úteis na programação de jogos e em pro- 
gramas de todos os tipos. 























[DU RR OD o 


Um laço FOR... NEXT em BASIC 
é um mecanismo que faz com que o 
computador repita uma mesma opera- 
ção certo número de vezes, 

Suponha, por exemplo, que você qui- 
sesse saber as raízes quadradas de todos 
os números de 1 a 100. Você poderia di- 
zer ao computador: 


PRINT SQR(1) 
PRINT SQR(2) 
PRINT SQR(3) 


- e assim por diante. 

E a cada pergunta o computador da- 
ria a resposta. Mas, além de impor um 
enorme trabalho de digitação aos seus 
dedos, esta não é uma técnica particu- 
larmente eficiente de uso do computa- 
dor. Tente assim: 


—ITIT 


10 FOR N=1 TO 100 
20 PRINT N,SQR(N) 

30 NEXT N 

40 PRINT "E ACABOU.” 


Esse programa faz com que o com- 
putador imprima 1 e sua raiz quadrada, 
2 sua raiz quadrada, 3 e sua raiz qua- 
drada.., e assim sucessivamente até atin- 
gir 100, no momento em que o apare- 
lho pára. 

Como ele faz isto? Quando o com- 
putador encontra um FOR, ''sabe” que 
as linhas seguintes serão repetidas. As- 
sim, ele as executa até encontrar o 
NEXT, volta à linha da instrução FOR 
e repete o processo. 

Enquanto trabalha, o computador 
também está contando. A primeira vez 
em que passa pela linha 20 ele calcula 
a raiz quadrada de 1, na segunda, a de 
2, e assim por diante. 

Quando tiver trabalhado com o 
maior número da instrução FOR, ele 
deixará automaticamente o laço e con- 
tinuará a execução do programa pela 
instrução seguinte ao NEXT — no nos- 
so caso o PRINT da linha 40. 


[as 


Ao executar um laço FOR... NEXT, 
o computador pode contar em unidades 
diferentes de 1. Para isso, usamos a de- 
claração STEP (isto é “'passo” ou '*de- 
grau”) junto com a declaração FOR. 
Veja o exemplo: 


CG anas 


10 FOR*N=1 TO 30 STEP 2.7 
20 PRINT N,SQR(N) 
30 NEXT N 





O computador não se atrapalha com 
o fato de que 30 não se divide em um 
número exato de passos, como você pe- 
diu. Ele vai o mais perto que pode e en- 
tão pára. 

O número de linhas entre o FOR e o 
NEXT tampouco o preocupa. Você po- 
de colocar o FOR na linha 10e o NEXT 
na 90 — ou mesmo 9000 — que ele não 
se esquecerá delas. Lembre-se, porém, 
de que o computador executará as linhas 
do laço a cada passagem. 


Jo OM PA ARA 


O laço FOR... NEXT tem dezenas de 
usos em programação. A mais simples 
delas é gastar tempo. 

Se você rever a seção Você sabe ta- 
buada? na primeira lição de BASIC, en- 
contrará um bom exemplo, Nesse caso, 
tudo o que acontece entre cada FOR e 
o seu NEXT é que o computador ''con- 
ta” um número, Essa contagem é mui- 
to rápida (o tempo exato pode ser da or- 
dem de centésimos ou milésimos de se- 
gundo). Mas, enquanto espera que ele 
conte até 1000, você terá uma pausa bem 
perceptível. E se você executar: 





10 FOR N=1 TO 1000000 
20 NEXT N 


« terá tempo, provavelmente, para to- 
mar um café antes que ele termine, 


APELO SONORO 


Programadores de jogos freqiente- 
mente tornam essas pausas menos can- 
sativas, inserindo nelas algumas notas 
musicais. Tente este exemplo: 


10 FOR 1=255 TO 155 STEP -1 
20 SOUND 1,1 
30 NEXT I 


10 FOR n=29 TO 10 STEP -1 
20 SOUND .015,n 
30 NEXT n 


5 SOUND 7,56:SOUND 8,15 
10 FOR 1=255 TO O STEP -1 
20 SOUND 0,1 

30 NEXT I 


10 FORN= 1 TO 100 
20 PRINT PEEK ( - 16336). 
30 NEXT N 


O Apple II padrão não têm coman- 
dos intrínsecos para a produção de efei- 
tos sonoros. Desse modo, o efeito con- 
seguido é apenas uma série de cliques 
Já o TK-2000 tem o comando SOUND 
ara rodar o programa acima no 
TK-2000, substitua as linhas 10 e 20 
assim: 











10 FOR I=80 TO 15 STEP -2 
20 SOUND 1,30 


Este é um exemplo do efeito de som 
que os programadores usam em jogos 
para dizer “Você falhou” ou “O alie- 


























om 
Os 
e: 











nígena aterrisou”. Ao mesmo tempo, 
quando se faz uma contagem regressi- 
va, a declaração STEP existente no la- 
ço FOR... NEXT deve ser seguida de 
um número negativo, destinado a dimi- 
nuir sua fregiência 


[a O [So 


Apenas por divertimento — e valio- 
sa experiência em programação — você 
pode usar laços FOR... NEXT para 
criar variedades de efeitos gráficos 
Aqui está uma amostra: 



















7 cLs 0 


10 
20 
30 
40 
50 
60 


10 
20 
30 


FOR N=0 TO 63 
LET M=RND(32)-1 
LET C=RND(9)-1 
SET (N,M,C) 
NEXT N 

Goro 10 


FOR n=0 TO 21 
LET m=RND*31 
INK RND*7+1 





Os comandos ou palavras-chave em 
BASIC, tal como PRINT, GOTO, 
STEP, etc., precisam ser digitados 
sempre em letras maiúsculas? 

Sim, quase sempre. É preciso con: 
siderar, no entanto, as especificidades 
das diversas linhas. Alguns computa- 
dores, como os compatíveis com o 
ZX-81 e o Sinclair Spectrum não dei- 
xam margem a dúvidas, pois as pala 
vras-chave são entradas por inteiro, em 
maiúsculas, ao se pressionar a tecla 
correspondente, 

Outros computadores, como os 
compatíveis com a linha TK-2000 e os 
Apple Ile Apple Il Plus, não têm minús 
culas (e nem aceitam comandos que 
não sejam em maiúsculas, caso você 
tenha essa opção em sua máquina). 

Finalmente, os compatíveis com as 
linhas MSX e TRS-80 aceitam coman- 
dos em minúsculas, mas convertem in- 
ternamente para maiúsculas todos os 
comandos em BASIC 











40 PRINT AT nm; 
50 NEXT n 
60 coTo 10 





10 SCREEN 3 

20 R=RND(-TIME) 

30 FOR N=0 TO 191 STEP 4 
40 LET M=RND(1)*255 

50 LET C=RND(1)*15 

60 PSET(M,N),C 

70 NEXT N 

ao goto 30 


5 GR 

10 FORN=0 TO 39 

20 LET M = RND (1) * 40 
30 COLOR= RND (1) * 15 
40 PLOT M,N 

50 NEXT N 

60 Goto 10 


A linha 10 define a altura do desenho 
que será colocado no vídeo e diz ao 
computador para imprimi-lo linha por 
linha. 

A linha 20 define a largura e, soma- 
da à linha 40, ordena ao computador 
que imprima pequenos quadrados alea- 
toriamente naquela largura disponível. 

A linha 30 escolhe, ao acaso, as co- 
res dos quadradinhos. 




















Inicialmente, forma-se na tela uma “colcha de retalhos” 


VARIAÇÕES SOBRE UM MESMO TEMA 


Experimentar variações desse tema de 
elaboração de gráficos vai ajudá-lo a se 
familiarizar com laços FOR... NEXT e 
com a função RND 

Aqui temos mais duas para cada má 
quina. Não se esqueça de digitar o co- 
mando NEW entre elas, para evitar que 
os programas se misturem 








- que 


T 


O TRS-80 comum e seus compatíveis 
não selecionam a cor do ponto gráfico; 
por isso o programa não tem muita gra- 
ça. Se você quiser ver como é, substitua 
na versão abaixo a linha 40 e retire a li- 
nha 30 








40 SET (N,M) 








ntinua a-se repetir. Esta é a versão para o TK-90X 


B cLSO 

10 FOR N=1 TO 60 
20 FOR M=0 TO 31 
30 LET C=RND(9)-1 
40 SET (N,M,C) 
45 NEXT M 

50 NEXT N 


60 Goto 10 


Tente também a seguinte variação 
para o TRS-Color 


8 cLSO 
10 LET 
20 FOR 


N=RND (60) 
M=0 TO 31 
30 LET C=RND(9)-1 
40 SET (N,M,C) 
45 NEXT M 

60 Goto 10 


10 FOR n=0 TO 21 
20 FOR m=0 TO 31 
30 INK RND*7+1 

40 PRINT AT n,m;"a” 
45 NEXT m 

50 NEXT n 

60 Goto 10 


Da mesma forma, o ZX-81 não tem 
cor. Para rodar o programa, retire a li- 
nha 30 e use apenas letras minúsculas, 
quando digitá-lo 

Para o TK-90X, tente ainda a seguin 
te variação do programa. O que acon 
tece de diferente? 


10 LET n=RND*21 
O FOR m=0 TO 31 
30 INK RND*7+1 
40 PRINT AT n,m;” 
45 NEXT m 

69 Goto 10 








10 SCREEN 3 








fito E E E A 


Pôr-do-sol, de autoria do laço FOR... N 


20 R=RND(-TIME) 

30 FOR N=0 TO 191 STEP 4 
40 FOR M=0 TO 255 STEP 4 
50 LET C=RND(1)*15 

60 PSET(M,N),C 


65 NEXT M 

70 NEXT N 

80 goto 30 

10 GR 

20 LET N = RND (1) * 40 
30 FORM = 0 TO 39 

40 COLOR= BND (1) * 15 
50 PLOT M,N 

60 NEXT M 

80 GoTO 20 


Antes de ir adiante, aqui está uma pe- 
quena experiência que você deveria ten- 
tar — apenas no TK90X e no CP400. 
Apague a linha 45 dos dois primeiros 
programas e rode-os novamente com a 
seguinte modificação: 





55 NEXT M 
Você descobriu mais uma caracteris- 
tica importante dos laços FOR. 






NEXT: quando se tem dois ou mais | 
ços no mesmo programa, estes devem fi- 
car ou “aninhados” um no outro ou se- 
parados. Se eles se cruzam, o programa 
não funciona. 


(apo Re jea 


Este programa usa um laço FOR... 
NEXT para criar um padrão de “'pôr- 
do-sol”. A primeira parte do programa 
define um ponto no meio da tela. Em 
seguida, ele desenha linhas luminosas 





CT para o TK-2000. 


que irradiam desse foco. 

A segunda parte desenha uma série 
de linhas na metade inferior do vídeo, 
partindo de pontos fixos no ““horizon- 
te”. Isso cria um belo efeito de perspec- 
tiva que pode ser aproveitado em pro- 
gramas futuros. 


20 PMODE 3,1 

30 PCLS 3 

40 COLOR 2 

50 SCREEN 1,0 

60 FOR N=1 TO 80 

70 LINE(127,95)-(256-RND(256),9 
6-RND(96)), PSET 

80 NEXT N 

90 COLOR 4 

100 FOR N=95 TO 191 STEP 12 


110 LINE (127,95)-(0,N),PSET 
120 LINE (127,95)-(255,N), PSET 
130 NEXT N 
140 FOR N=0 TO 255 STEP 10 
150 LINE(127,95)-(N,191),PSET 
160 NEXT N 
170 GoTO 170 
5 BORDER O: PAPER O: INK 6: 
cLs 


10 FOR n=l TO 80 

20 PLOT 127,75 

30 DRAW INT (RND*250)-125, INT 
(RND*97) 

40 NEXT n 

45 INK 5 

50 FOR n=75 TO O STEP -15 

60 PLOT 127,75 
70 DRAW -127,-n: 
DRAW 127,-n 

80 NEXT n 

100 FOR n=-127 TO 127 STEP 20 

110 PLOT 127,75 

120 DRAW n,-75 

130 NEXT n 


PLOT 127,75: 





A versão do Apple II para o Caleidoscópio. 


20 SCREEN 2 

30 cLs 

40 COLOR 11 

50 R=RND(-TIME) 

60 FOR N=1 TO 80 

70 LINE (127,95)-(256-RND(1)*25 
6,96-RND(1)*96) 

80 NEXT N 

90 COLOR 6 

100 FOR N=95 TO 191 STEP 12 
110 LINE (127,95)-(0,N) 

120 LINE (127,95)-(255,N) 
130 NEXT N 

140 FOR N=0 TO 255 STEP 10 
150 LINE (127,95)-(N,191) 
160 NEXT N 

170 coTo 170 


10 HGR 

20 HCOLOR= 5 

30 FORI - 1 TOB0 
40 HPLOT 139,79 TO 
279, BND (1) * 79 
50 NEXT I 

60 HCOLOR= 6 

70 FOR I = 79 TO 159 STEP 10 
80 HPLOT 139,79 TO 0,1 

90 HPLOT 139,79 TO 279,1 


RND (1) * 


100 NEXT I 

110 FOR I = O TO 279 STEP 20 
120 HPLOT 139,79 TO 1,159 
130 NEXT I 


ada psi dl 


Finalmente, temos um programa es- 
petacular que funciona em quatro de 
nossas máquinas. 


3 PMODE 3,1 
6 PCLS 














AURA 2 a 5 1 AO RE 1) E PS DE 











No TK-80X o Caleidoscópio é mais grosseiro e intenso 


9 SCREEN 1,0 

10 FOR L=0 TO 255 STEP 2 

15 COLOR RND(4) 

20 LINE(0,0)-(L,191),PSET 

30 LINE (255,0)-(255-L,191),PSE 


40 LINE(0,191)-(L,0), PSET 
50 LINE (255,191)-(255-L,0),PSE 


60 NEXT L 
70 coro 10 


10 FOR n=0 TO 255 STEP 3 
15 INK RND*B 
20 PLOT 0,0: 
30 PLOT 255,0: DRAW -n,175 
40 PLOT 0,175: DRAW n,-175 
50 PLOT 255,175: DRAW -n,-175 


DRAW n,175 





USE O LAÇO CERTO 

Existem muitas oportunidades para 
usar os comandos FOR... NEXT em la- 
ços, mas também muitas ocasiões em 
que você não deve empregá-los. 

Quando você quiser, por exemplo, 
forçar o programa a realizar um núme 
ro fixo de repetições, sem interrupção 
em quaisquer fáses do processamen. 
to, use um laço FOR... NEXT 

Em contrapartida, se você quiser 
que uma sequência de programa seja 
executada até que uma determinada 
condição seja atingida, para em segui- 
da “sair” de dentro do laço, use uma 
declaração diferente, no lugar de 
FOR... NEXT. O comando mais reco: 
mendável em casos assim é o GOTO, 
em BASIC. 





60 NEXT n 
70 Goto 10 


3 R=RND(-TIME) 

6 cLs 

9 SCREEN 2 

10 FOR L=0 TO 255 STEP 2 
15 COLOR RND(1)*15 

20 LINE (0,0)-(L,191) 

30 LINE (255,0)-(255-L,191) 


40 LINE (0,191)-(L,0) 

50 LINE (255,191)-(255-L,0) 
60 NEXT L 

70 Goto 10 

10 HGR 

20 FORN= 0 TO 279 STEPS 


30 HCOLOR= BND (1) * 6+1 
40 HPLOT 0,0 TO N,159 

50 HPLOT 279,0 TO 279 - N,159 
60 HPLOT 0,159 TO N,0 

70 HPLOT 279,159 TO 279 - N,0 
80 NEXT N 

90 Goto 20 


Cada um dos quatro segmentos des- 
ses padrões começa com um ponto em 
um canto do vídeo. O que o laço FOR... 
NEXT faz é contar até o outro lado do 
vídeo, enquanto um padrão de linhas é 
desenhado entre os dois pontos criados 
dessa forma. 

A explicação exata de como os grá- 
ficos funcionam está em um capítulo 
posterior, mas apague as linhas 30 e 40 
e você terá uma idéia geral do que 
acontece. 

Você pode experimentar, ainda, di- 
gitando algumas das linhas responsáveis 
pelo desenho, variando as cores, mu- 
dando os STEP na linha 10 e excluin- 
do o GOTO na linha final. Em minutos 








« mas seu padrão de formas e cores é sempre cambiante. 


você pode criar centenas de padrões di- 
ferentes, um verdadeiro caleidoscópio 
de formas e cores. 

Ao fazer tudo isso, você não estará 
só criando belas imagens no vídeo. Vo- 
cê estará também se familiarizando com 
uma das mais úteis *'ferramentas” do 
programador. 











Como devo proceder para manter 
um registro de todas as variáveis usa- 
das em meus programas, sem me per- 
der entre tantos Xs e Ys? 

Uma forma de evitar o uso desorde 
nado de variáveis em um programa é 
dar-lhes nomes que lembrem o que elas 
representam (nomes mnemônicos). Por 
exemplo, se uma variável é usada pa 
ra armazenar o número de espaçona- 
ves abatidas em um jogo, podemos 
“batizá-la” de NAVES 

É fácil manter um registro de variá 
veis num programa curto. No caso de 
programas mais longos, convém expli- 
citar mais claramente certas funções. 
Assim, utilize FOR LINHA = ...e FOR 
COLUNA = ... (se você estiver colo: 
cando coisas na tela) em vez de FOR 
X=..eFORY =... 

Alguns computadores, como o 
TRS-80 e o Apple Il, reconhecem ape 
nas as duas primeiras letras de uma va- 
riável, descartando as demais. Neste 
caso, tente utilizar iniciais que funcio 
nem como abreviaturas adequa: 
mo T para “tempo” 
inha”, e assim por 















































COMO O COMPUTADOR É CAPAZ 


DE REPETIR TRECHOS DE UM PROGRAMA 


4 capacidade de repetir de forma 
controlada o mesmo trecho de um 
programa pode ser encontrada em to- 
das as linguagens de programação. 
No BASIC, a programação de laços 
é muito facilitada pelos comandos 
FOR, STEP e NEXT, explicados nes- 
ta lição; porém eles não são es- 
senciais 

É possível programar laços de re- 
petição de outro modo, simplesmen- 
te usando-se uma variável contado- 
ra e uma linha com a declaração (ou 


comando) NF, 

Dessa forma, a programação dire- 
ta de repetições exemplifica de mo- 
do mais claro e objetivo a maneira 
que o computador usa, internamen- 
te, para repetir trechos de um 
programa. 

Suponhamos que o programador 
queira imprimir dez vezes a mesma 
mensagem na tela, usando o coman- 
do PRINT. Inicialmente, é preciso 
definir e igualar a O uma variável con- 
tadora (por exemplo, NJ). Em segui- 


da, a cada repetição do laço, essa va- 
riável é incrementada, somando-se o 
número 1 ao valor anterior (este nú- 
mero corresponde, no caso, ao valor 
STEP no comando FOR). Finalmen- 
te, uma linha adicional do programa 
deve testar se esse-valor de N é maior 
do que 10. Se não for, o laço será re- 
petido por meio de um comando GO- 
TO e enviará o programa para trás. 
Se for maior do que 10, o programa 
terminará ou prosseguirá para outro 
trecho. 






























Os videogames para microcomputa- 
dores, como o Space Invaders, não te- 
riam nenhuma graça se a movimentação 
e os disparos do canhão laser não pu- 
dessem ser controlados pelo jogador si- 
multaneamente com o desenrolar do jo- 
go. Esse tipo de controle através do te- 
clado ou do joystick é uma característi- 
ca de todos os jogos de ação, mesmo os 
mais simples. 

O elemento mais importante dessa 
técnica de programação é como fazer 
para que o computador perceba auto- 
maticamente quando uma tecla qual- 
quer é pressionada, sem que seja neces- 
sário acionar todas as vezes as teclas 
<ENTER> ou <RETURN>. Feito 
isso, o programa pode tomar decisões 
sobre que gráfico animar, que “disco 
voador” destruir, etc. Outro aspecto es- 
sencial é que, enquanto o jogador não 
acionar os controles de jogo, o compu- 
tador poderá se dedicar à movimenta- 
ção contínua de gráficos e figuras sobre 
a tela, usando as técnicas aprendidas na 
última lição de programação de jogos. 


Em princípio, todos os micros usam 
o mesmo método para detectar se uma 
tecla foi pressionada. Mas, como os co- 
mandos do BASIC para essa função não 
foram padronizados, há uma grande va- 
riabilidade entre os diversos tipos de 
computadores. 


Para a maioria dos computadores 
que utilizam o interpretador da lingua- 
gem Microsoft BASIC (adotada nos mi- 
cros da linha TRS-80, Sinclair e MSX), 
a função utilizada para detectar se uma 





Jogos de ação dependem da capacidade 
do jogador em controlar os 
movimentos na tela. Veja como fazer 
isso e aprenda a disparar mísseis, 
integrando tudo num jogo divertido, 





tecla foi pressionada chama-se INKEYS. 
Ao encontrar essa função em um pro- 
grama, o computador executa uma 
“varredura” do teclado, para ver se al- 
guma passou do estado de desligada pa- 
ra ligada, e retorna o caractere ao pro- 
grama através da função INKEYS. Se 
nada foi pressionado, a função volta 
vazio”, 








com um valor 
Por exemplo: 







































20 cLs 

30 LET AS=INKEY$:IF A$="" THEN 
coro 30 

40 PRINT €269,"OPA!” 


20 cLS 
30 IF INKEY$="" THEN GOTO 30 
40 PRINT AT 11,14;"Ai!” 


ay 


20 cLS 

30 LET AS=INKEYS:IF A$="" THEN 
Goto 30 

40 LOCATE 18,11:PRINT "Ui !” 











E 
UMA TECLA FOI PRESSIONADA 
DISPARE SEU MÍSSIL 

E COMO CONTROLAR UMA 
FIGURA EM MOVIMENTO 


Execute o programa e pressione qual- 
quer tecla, à exceção de <CAPS 
SHIFT> ou <SYMBOL SHIFT 1> 
(nos Sinclair), <BREAK> ou 
<SHIFT> (nos TRS-80) ou <CTRL 
STOP> ou <SHIFT> (no MSX). O 
computador vai exibir um ““grito de 
dor” no meio da tela. O programa fun- 
ciona da seguinte maneira: 

A linha 20 limpa a tela. A linha 30 
faz com que o computador espere até 
que uma tecla seja acionada para conti- 
nuar o programa. Note que não há es- 
paços entre as aspas. Por causa disto, 
a linha 30 quer dizer: “Se 
INKEY$ = nada, ou se nenhuma tecla 
está sendo pressionada, cheque nova- 
É muito importante ter o 
IF...THEN GOTO 30 porque de outra 
forma o computador verificaria apenas 
uma vez o teclado e só por uma fração 
de segundo. 

Assim que uma tecla é acionada, 
INKEY$é igualado à tecla. Por exem- 
plo, se “3” é pressionado, então 
INKEY$= 3”. Isso basta para que a 
linha 40 imprima “Ai!” na tela, 

Na maioria dos jogos você deve pres- 
sionar uma tecla para mover um tanque, 
uma missil, etc. Se você mudar a linha 
40, verá como isto é feito (no TK-85 use 
um “D” maiúsculo): 


40 IF A$="D” THEN PRINT €264,"H 
UM, ISSO E BOM!” ELSE PRINT €26 
9, "OPA!" 


40 IF INKEY$="d” THEN PRINT 
AT 11,9;"Hum, isso e bom!”": 
STOP 

50 PRINT AT 11,14;"Ai!” 


ha 


20 cLS 

30 LET AS=INKEYS:IF AS="" THEN 
coro 30 

40 IF AS="D" OR AS="d" THEN LOC 
ATE 10,11:PRINT “mmm isso é 
bom !”:END 

50 LOCATE 18,11:PRINT "Ui !" 








A linha 40 agora verifica se a tecla 
“D” foi pressionada, ou seja, se 


APRENDA A DETECTAR SE 


CONSTRUA BLOCOS GRÁFICOS 
DESTRUA O INIMIGO 

BASES DE MÍSSEIS 

À AUTO-REPETIÇÃO 

COMO MONTAR ALVOS MÓVEIS 


INKEYSé igual a “D” ou a “d”. Se não 
for, o programa para os micros da linha 
Sinclair, que não têm a declaração EL- 
SE, vão ignorar a linha 40 e passar pa- 
ra a linha 50, Qualquer outra tecla di- 
ferente de '“'D” mostrará, quando pres- 
sionada, a segunda mensagem de “'rea- 
ção emocional”. Nos micros de outras 
linhas, o IF...THEN...ELSE permite 
programar em uma única linha as duas 
alternativas. 

Existem mais duas exigências impor- 
tantes nesse programa. A primeira é que 
o “D” ou “d” precisa estar entre aspas, 
ou o computador o interpretará como 
uma variável. A segunda vale apenas pa- 
ra o TK-90X: nessa linha de micros, 
deve-se usar um “'d”” minúsculo; caso 
contrário você deve pressionar <CAPS 
SHIFT > e “'d” para que o programa 
funcione. 

Tanto nesse programa quanto no an- 
terior é possível notar que todos os com- 
putadores utilizam exatamente a mesma 
técnica de investigação do teclado. Ape- 
nas a maneira de colocar uma mensa- 
gem no meio da tela é diferente para ca- 
da um. 


PS UE 


Agora você verá que a partir da de- 
tecção do pressionamento de uma tecla 
usando o IF INKEYS$ = “tecla” é mui- 
to fácil disparar um míssil ou mover 
uma base de foguetes. Este programa 
dispara um míssil de uma base quando 
a tecla “F” é acionada: 








20 CLS 

30 PRINT 8397," que" 

40 LET K$=INKEYS:IF K$=""THEN G 
oTO 40 

50 IF K$="F” THEN LET M=334 ELS 
E GOTO 40 

60 PRINT €M,"1” 

70 PRINT QM+32," " 

80 LET M=M-32 

90 IF M>0 THEN GOTO 60 

100 Goro 20 





10 cLS 
20 PRINT 6797," 444" 
30 KS=INKEYS : IF K$="" GOTO 30 














JF Ke"p” THEN M=374 ELSE 
Goro 30 

PRINT eM,CHRS (94) ; 

PRINT eM+64," "; 

M=M-64 

IF M>0 GOTO 50 

Goro 10 


Para rodar também no ZX-81, digi- 
te o programa abaixo apenas com letras 
maiúsculas: 

cLs 

PRINT AT 21,14;" mta” 

IF INKEYS="" THEN GOTO 40 
IF INKEYS<>"£” THEN GOTO 40 
LET y=20 

PRINT AT y,15;"1" 

LET y=y-1 

PAUSE 1 

PRINT AT y+1,15;" " 

IF y>0 THEN GOTO 60 


cLs 
LOCATE 17,20:PRINT "ly" 
40 LET KS=INKEYS:IF K$="" THEN 
goto 40 
50 IF KS="F” OR K$="£” THEN LET 
M=20 ELSE GOTO 40 
60 LOCATE 18,M:PRINT” 
70 LOCATE 18,M+1:PRINT ” * 
80 LET M-M-1 
90 IF M>0 THEN GOTO 60 
100 Goto 20 


A linha 30 imprime uma base de mis- 
seis formada de três símbolos (no Sin- 
clair e no MSX, três símbolos gráficos), 
na parte mais baixa da tela (última 
linha). 

Na linha 40, LET K$=INKEYS é 
muito importante, visto que você quer 
checar se a tecla foi pressionada várias 
vezes durante o programa. Esta não fun- 
cionaria sem essa declaração. O compu- 
tador se recorda do valor de 
INKEYS$ apenas por uma fração de se- 
gundo e, se você não checar 
INKEYS suficientemente rápido, ele po- 
de esquecer que a tecla foi pressionada. 

Mas, você pode também fazer com 
que ele se lembre do que foi teclado dan- 
do um nome, KS$, à tecla que foi pres- 
sionada e checando mais tarde (versão 
para a linha TRS), ou dando um novo 
comando INKEYS. 

A linha 50 verifica se “F” foi pres- 
sionado. Se não, o programa volta à li- 
nha 40 e continua a varrer o teclado. 
“M” é a posição do míssil depois de ter 
sido disparado. 

A linha 60 imprime o míssil na tela 
ea linha 70 se encarrega de apagá-lo de 
suas posições anteriores. 

A linha 80 faz o míssil se deslocar pa- 





ra cima na tela, e a linha 90 evita que 
o computador tente imprimir o míssil 
numa posição fora do vídeo, o que pro- 
vocaria uma mensagem de erro. A pri- 
meira posição de tela tem o número 0, 
e o computador não pode imprimir na- 
da em uma posição de número menor 
que 0. Quando M=0 o programa é rei- 
niciado. A técnica a ser utilizada para 
fazer o missil subir vai depender, ago- 
ra, do formato da tela do computador 
utilizado. 


A linha 80 subtrai um número cons- 
tante N da posição anterior do missil 
(variável M), de maneira que ele avan- 
ça uma linha em direção ao topo da te- 
la a cada vez que é impresso. Esse nú- 
mero vale 32 para os micros compatíveis 
com o TRS-Color, pois há 32 colunas 
na tela do computador. Já para o 
TRS-80, o número é 64. 


A linha 80 subtrai | da posição ante- 
rior do míssil, pois o comando de posi- 
cionamento utilizado, o PRINT AT, 
identifica as coordenadas (linha, colu- 
na) onde serão exibidos os gráficos. As- 
sim, a coluna é mantida constante, pa- 
ra o míssil subir “reto”, na coluna 15 
eo que varia é Y, ou a altura dele (lem- 
bre-se de que Y =0 está no topo da te- 
la, e não embaixo. 


yu 


O comando de posicionamento é o 
LOCATE, que dá as coordenadas para 
posicionamento. A linha 80 tem por 
função diminuir em 1 o valor anterior 
do míssil (variável M), para que ele se 
desloque para cima, na mesma coluna 
(constante 18). 


Da forma que está, o programa da 
base de mísseis é bastante limitado pa- 
ra um jogo de “artilharia”, mas, impri- 
mindo movimento lateral à base conse- 
guiremos melhorá-lo um pouco. Veja- 
mos como fazer i 


20 cLS 

30 LET P=397 

40 PRINT €P,CHR$ (143) +CHRS (140) 
+CHR$ (128) +CHRS (140) +CHRS (143) 
50 LET K$=INKEYS: IF K$="" THEN 
goto 50 

60 IF KS="E” 
o 90 

















THEN LET P=P-1:GOT 





70 IF KS$="D” THEN LET P=P+1:GOT 
o 90 

80 GOTO 50 

90 IF P<384 OR P>411 THEN GOTO 
50 


100 Goto 40 


A linha 30 determina a posição ini- 
cial da base, e a linha 40 coloca o míssil 
naquela posição. 

A linha 50 verifica o teclado, fazen- 
do o computador esperar até que uma 
tecla seja pressionada. 

A linha 60 investiga se “L” foi pres- 
sionado. Se foi, ela move a base uma 
posição para a esquerda, subtraindo 1 
do número que determina a posição da 
base. A linha 70 confere se “R” foi 
pressionado e nesse caso muda a posi- 
ção da base adicionando 1 à coordena- 
da. A linha 90, finalmente, verifica se 
o programa está dizendo ao computa- 
dor para colocar a base fora da tela — 
em caso afirmativo, o programa retor- 
na à linha 50. 





cLs 

P=797 
PRINTEP, CHRS (32) +CHRS (184) + 
CHRS (191) +CHRS (180) +CHRS (32) 
KS=INKEYS IF K$="" GoTo 50 
IF KS="L” THEN P=P-1 

IF KS="R” THEN P=P+1 

Goro 50 

IF P<767 OR P>828 GOTO 50 
100 goto 40 


O programa para o TRS-80 funcio- 
na de modo idêntico ao programa para 
o TRS-Color. Note que os caracteres 
gráficos têm símbolos diferentes, bem 
como as coordenadas de posicionamen- 
to dos comandos PRINT & 


Para rodar também no ZX-81, digi- 
te o programa abaixo apenas com letras 
maiúsculas. Além disso, ponha os co- 
mandos LET da linha 80 em duas linhas 
separad: 


cLs 

LET x=15 
LET y=13 
PRINT AT y 
IF INKEYS="" THEN 
LET 1lx=x: LET ly=y 
PRINT AT ly,lx;” 














Goto 70 





100 IF INKEYS="q” THEN STOP 
110 IF INKEYS="w” THEN LET y= 
y-1 

120 IP INKEY$-="2º THEN LET y= 
v+1 

130 IF INKEYS="a” THEN LET x= 
x1 

140 IF INKEYS="s” THEN LET x= 
x+1 





Posso escolher qualquer tecla para 
operar os controles de um jogo no mi- 
crocomputador? 

Sim. Tudo o que você tem a fazer 
é mudar os caracteres nas linhas do 
programa que testam qual foi a tecla 
pressionada e detectada por INKEYS. 
Mas cuidado: o que parece ser bastan- 
te lógico na teoria às vezes funciona 
mal na prática. Por exemplo, usar as te- 
clas E, D,C, B para representar esquer- 
da, direita, em cima e embaixo, dificul- 
ta as ações do jogador. Por isso, 
costumam-se usar as teclas de movi- 
mentação do cursor, principalmente 
nos computadores onde elas estão 
aglomeradas no mesmo ponto do tecla- 
do, ou presentes em pares complemen- 
tares. Outra dica é usar À e Z, para mo- 
vimentar para cima e para baixo, e K 
e L para direita e para esquerda, pois 
ocupam posições opostas no teclado. 
Já a barra de espaços é muito boa pa- 


ra efetuar disparos, pois o polegar po- 
de se apoiar nela. 











150 IF x<l OR x>29 THEN LET x 
-lx 

160 IF y<l OR y>20 THEN LET y 
ty 

170 corto 60 


As linhas 40 e 50 estabelecem a posi- 
ção inicial da base de mísseis, na 13º li- 
nha da tela, e quinze espaços à esquer- 
da. A linha 60 mostra a base na tela. 

A linha 70 faz o computador esperar 
até que alguma tecla seja impressa. Se 
foi, a base é movida. 

As linhas 80 e 90 “perseguem” a ba- 
se de misseis em movimento, colocan- 
do três espaços em branco sobre sua úl- 
tima localização; de modo a apagá-la. 
Como a linha 60 está dentro do laço de 
repetição e sempre vem antes da linha 
90, a base é sempre impressa em sua no- 
va posição antes que a posição antiga se- 
ja apagada. 

A linha 100 termina o programa se 
a letra Q (de quit, em inglês, que signi- 
fica abandone) for pressionada. 

A linha 110, por sua vez, verifica se 
a tecla “*W' foi acionada, subtraindo 
1 do valor de ““Y” em caso afirmativo. 
O efeito disso é a movimentação da ba- 
se uma linha para cima. 

As linhas 120 a 140 operam de for- 
ma similar. A linha 120 move a base pa- 
ra baixo se ““Z” é pressionado. 

A linha 130, move para a esquerda, 








caso “A” seja acionado, e a 140 para 
a direita, ao se pressionar “S”. A linha 
150 evita que a base seja colocada fora 
das laterais da tela. 

A linha 160 impede que a base saia 
por cima ou por baixo da tela, Neste ca- 
so, fazer Y = LY resolve o problema. A 
linha 170 fecha o laço, reiniciando to- 
do o processo. 


sy 


30 cLS 
40 LET X-=17 
50 LET Y=20 
60 LOCATE X,Y:PRINT "din ” 
:IF A$="" THEN GOTO 





80 LET LX=X:LET LY=Y 

90 LOCATE LX,LY:PRINT” 1 
100 .IF AS=-CHR$(27) THEN END 
110 IF AS=CHR$(28) THEN X-X+1 
120 IF A$-CHR$(29) THEN X=X-1 
130 IF AS=CHR$(30) THEN Y=Y-1 
140 IF AS-CHR$(31) THEN Y=Y+1 
150 IF X<O OR X>36 THEN X=LX 
160 IF Y<O OR Y>20 THEN Y=LY 
170 coro 60 


O programa para a linha MSX é bas- 
tante compacto e elegante. A linha 60 
coloca a base em posição inicial (três ca- 
racteres gráficos), que é definida nas li- 
nhas 40 e 50, ou seja, na linha 20 e na 
coluna 17 (no meio da última linha da 
tela). A linha 70 detecta se alguma tecla 
foi pressionada. 

Se alguma tecla foi pressionada, o 
programa armazena em LX e LY as 
coordenadas da última posição da base 
(Xe Y), para usá-las posteriormente (li- 














Por que o meu programa “bomba” 
(isto é, falha) se, num jogo qualquer, 
a figura que está sendo movimentada 
atinge a borda da tela? 

Provavelmente porque um dos va- 
lores que controlam o posicionamento 
da impressão do gráfico na tela tornou- 
se muito grande ou muito pequeno, ex- 
cedendo os limites da tela. Portanto, 
verifique de novo as linhas que fazem 
essa tarefa, caso você obtenha alguma 
mensagem de erro do computador, 
neste sentido. Por precaução, é sem- 
pre recomendável testar os valores de 
posicionamento antes de imprimir algu- 
ma coisa na tela: se eles excederem os 
limites, podem ser corrigidos para fica- 
rem dentro da tela. 








nha 80), e apaga a base nessa posição, 
por meio da linha 90. 

As linhas 100 a 140 detectam se a te- 
cla apertada foi uma das seguintes: fle- 
cha para cima, flecha para baixo, flecha 
para esquerda e flexa para direita (teclas 
de controle do cursor), que são identi- 
ficadas pelos seus códigos respectivos 
(29, 28, 30 e 31). O jogo termina quan- 
do a tecla CLEAR (código 26) tiver si- 
do pressionada. 

As linhas 150 e 160 verificam se as 
bordas da tela foram ultrapassadas. Se 
foram, retornam à posição da base pa- 
ra as últimas coordenadas (LX e LY). 

Finalmente, a linha 60 faz o ciclo se 
repetir, para a próxima pressão à tecla. 


FAÇA O SEU JOGO 


Agora você já tem alguns blocos a 
partir dos quais podem ser montados 
rios jogos. O exemplo abaixo mostra co- 
mo -los para desenvolver um jogo 
bem simples, em que um canhão móvel 
dispara mísseis em direção a um alvo 
(uma estrela); 











20 cLS 

30 FOR N=1 TO 100:NEXT N 

40 LET P0=430 

50 LET B$=CHR$ (143) +CHR$ (140) +C 
HR$ (128) +CHRS (140) +CHRS (143) 

60 LET A=RND(30) +64 

70 PRINT 6A,"x" 

80 LET LP=PO 

90 PRINT €PO,BS 

100 IF PEEK(340)=247 THEN LET P 
O=Po-1 

110 IF PEEK(338)=247 THEN LET P 
O=Po+1 

120 IF RO<415 OR PO>444 THEN LE 
T PO=LP 

130 LET K$=INKEY$S 

140 IF K$="F” THEN LET M=P0-30 
ELSE GOTO 80 

150 PRINT eM,"1"; 

160 PRINT eM+32," "; 

170 LET M=M-32 

180 IF M=A THEN GOTO 20 

190 IF M>0 THEN GOTO 150 ELSE P 
RINT EM+32," "; 

200 Goto 80 





20 CLS 

30 FOR N=1 TO 100:NEXT N 

40 Po=800 

50 B$=CHR$ (32) +CHRS (184) + 
CHRS (191) +CHRS (180) * 
CHRS$ (32) 

60 A=RND(60)+2 

70 PRINTEA,"*"; 

80 LP=PO 

90 PRINTEPO, BS; 


100 IF PEEK(14344)<>0 THEN PO= 
Po-1 

IF PEEK(14368)<>0 THEN 
Po+1 

120 IF Po<767 
PO=LP 
K$=INKEYS 
IF KS="F” 
coro 80 
PRINTEM, CHRS (94) ; 

160 PRINTEM+64," "; 

170 M=M-64 

180 IF M=A GOTO 20 

190 IF M>0 THEN GOTO 150 
PRINT eM+64," "; 
coro 80 


10 Po= 


OR P0>828 THEN 


130 
140 THEN M=P0-62 ELSE 


150 


ELSE 


200 


Para rodar também no ZX-81, digi- 
te o programa abaixo apenas com letras 
maiúscu! 

20 cLS 

30 PAUSE 25 
40 LET x-15: 
50 LET B$= 
60 LET a=INT (RND*28)+2 
70 PRINT AT 2,a;"*" 

80 LET xx=x 
90 PRINT AT y 











:BS 
” THEN LET x= 


100 IF INKEYS="z 

= 

110 IF INKEY$="x" THEN LET x= 
x+1 

120 IF x<0 OR x>27 THEN LET x 
=xx 

140 IF INKEYS<>"£” THEN GOTO 
Bo 

145 LET m=y-1 

150 PRINT AT m,x+2;"1” 

160 PRINT AT mt+l,x+2;" " 

170 LET m=m-1 

180 IF m=2 AND x+2=a THEN 
Goro 20 


190 IF m<>1 THEN GOTO 150 
195 PRINT AT m+1,x+2;" ” 
200 goto 80 





60 LET A=INT(RND(1)*36)+2 

70 LOCATE A,0:PRINT "*" 

80 LET XX=X 

90 LOCATE X,Y:PRINT BS 

95 LET AS=INKEY$S:IF A$S="" THEN 
Goro 95 


100 IF AS=CHR$(28) THEN LET X-X 
+ 

110 IF A$=CHR$(29) THEN LET X=X 
ea 

120 IF X<O OR X>35 THEN LET X=X 
x 

130 IF AS<> ” ” THEN GOTO 80 
140 LET M=Y-1 

150 LOCATE X+2,M:PRINT “E” 

160 LOCATE X+2,M+1:PRINT ” ” 
170 LET M=-M-1 

180 IF M=0 AND X+2=A THEN GOTO 
20 








190 IF M<>0 THEN GOTO 150 
200 LOCATE X+2,M+1:PRINT” " 
210 coTo 80 


Quando você executar o programa, 
verá uma estrela perto do topo da tela 
As teclas Z e X movem a base de fogue 
tes para a esquerda e a direita, e a tecla 
F dispara o míssil para destruir a estre 
la em sua posição 

Pense no programa como tendo três 
partes: uma, até a linha 70; outra, da 80 
até a 120; e a última, da 130/140 até a 
200. 

As linhas que vão de 130/140 até 200 
são similares ao programa anterior que 
dispara o míssil. 

As variáveis e os GOTO foram mu- 
dados, mas a única linha adicionada foi 
a 180. Ela verifica se o míssil e a estrela 
estão no mesmo lugar. O programa re 
começa em caso positivo 

A porção central, da linha 80 a 120, 
é uma versão compacta do programa 











“Movimentos Sobre a Tela”. Os PEEK 
no programa para o CP400 verificam se 
Z ou X foram acionados e alteram PO 
de maneira apropriada 

A primeira parte do programa tem 
várias funções. A linha 30 provoca uma 
pequena pausa antes que o programa 
continue. Isso é importante quando a li- 
nha 180 fecha o laço no fim do progra- 
ma. As linhas 40 e SO determinam a po: 
sição inicial da base e definem sua 
forma 


so IMENTAÇÃO 


Pressionar a tecla que move a base 
para a direita ou para a esquerda toda 
vez que se precisa deslocar figuras é bas- 
tante cansativo. Então, usualmente 
montamos um mecanismo de auto- 
repetição 

Alguns micros, como os da linha 
MSX, possuem auto-repetição em todas 





s; por isso o programa dado aci- 
ma não necessita qualquer modificação: 
basta ficar pressionando a tecla de co- 
mando para baixo, que a base se move 
automaticamente. 

Já para os computadores que não dis- 
põem desses recursos, temos que nos sa- 
tisfazer com o INKEYS$, mesmo. Mas é 
difícil programar movimentos contínuos 
usando INKEYS. 

Um modo de se resolver esse proble- 
ma é ilustrado a seguir 








20 cLS 

30 LET BLS$=CHRS (128) 

40 LET P0=238 

50 PRINT €PO,BLS 

60 LET LP=PO 

70 IF PEEK(340)=247 THEN LET PO 
=P0-1:GOTO 120 

80 IF PEEK(338)=247 THEN LET PO 
=P0+1:GOTO 140 

90 IF PEEK(338)=251 THEN LET PO 
=P0-32:GOTO 150 

100 IF PEEK(342)=253 THEN LET P 
O=P0+32:GOTO 150 


110 Goro 70 

120 IF(LP AND 31)=0 THEN LET PO 
=LP 

130 GoTo 150 

140 IF(PO AND 31)=0 THEN LET PO 
=LP 

150 IF PO>510 OR PO<O THEN LET 


PO=LP:GOTO 70 

160 PRINT ELP,” "; 
170 PRINT €PO,BLS; 
180 Goto 60 





20 CLS 

30 BL$=CHRS (191) 

40 P0=540 

50 PRINTEPO,BLS; 

60 LP=PO 

70 IF PEEK(14344)<>0 THEN 
PO+1:GOTO 120 

80 IF PEEK(14368)<>0 THEN 
PO-1:GOTO 140 

90 IF PEEK(14352)<>0 THEN PO= 

P0-64:GOTO 150 

IF PEEK(14400)<>0 THEN PO= 

PO+64:GOTO 150 

110 GoTo 70 

120 IF (LP AND 

130 GOTO 150 

140 IF (PO AND 

150 IF P0>1022 

LP:GOTO 70 

PRINTELP," "; 

PRINTEPO, BLS; 

Goro 60 


Po= 


Po= 


100 


63)=0 THEN PO=LP 


63)=0 THEN PO=LP 
PR PO<O THEN PO= 


160 
170 
180 


Ao executar este programa você terá 
um bloco posicionado no centro da te- 
la. O programa permite que você o mo- 
va para cima e para baixo, para a direi- 
ta e para a esquerda. 

















"APRENDA ACONT 
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COM UM DEDO SÓ 


Os computadores contam em binário, 
como se tivessem milhões de mãos com 
um dedo só. Para aprender a programar 
em código de máquina, você deve 
conhecer esse sistema. 








Um dos problemas de se aprender có 
digo de máquina é que você precisa en 
tender um pouco da teoria dos números 
Não é uma tarefa tão difícil quanto po 
de parecer. Se você sabe contar até 16, 
não terá qualquer dificuldade. Mas, ini- 
cialmente, é preciso aprender a contar 
até 2 


US 


Mesmo a pessoa mais avessa a mate 
mática não tem qualquer dificuldade pa 
ra dizer as horas ou acompanhar o re 
sultado de uma partida de futebol. O 
uso dos números faz parte do dia-a-dia 
de tal forma que nunca nos preocupa 
mos com a maneira com que eles fun- 
cionam 

No mundo ocidental usamos habi- 
tualmente um sistema numérico basea 
do no número 10, Isto significa que co- 
meçamos uma contagem usando os nú- 
meros de 0 a 9. Se precisarmos de uma 
grandeza maior do que 9 (por exemplo, 
10), usamos os dígitos disponíveis. As- 
sim, colocamos o 1 na “casa” da es 
querda e o O à sua direita 

Este é chamado um sistema de nume- 
ração de base 10 ou decimal, porque o 
valor do dígito é multiplicado por 10 a 
cada posição que contamos, a partir da 
direita. Por exemplo, o número 3275 va: 
les + 7x10 + 2x 10x 10 + 3x 10x 
10x 10 ou seja 5 + 10 + 200 + 3000, Ca: 
da dígito multiplica seu valor absoluto 
por 10 a cada vez que é movido uma po 
sição mais à esquerda. Todo sistema que 
usa esse método para representar núme: 
ros é chamado de posicional 

Tudo isso parece óbvio porque faze 
mos esses cálculos todos os dias, sem 
pensar muito neles. Entretanto, existem 
outros sistemas de numeração, diferen 
tes do decimal, como por exemplo, os 
que são usados nos modernos micros 


SISTEMAS ANTIGOS E NOVOS 


Os antigos babilônios tinham um sis- 
tema de numeração baseado no núme 
ro 60. Os vestígios disso podem ser vis 
tos nas nossas medidas de tempo e de 
ângulos: existem 60 segundos em cada 
minuto, 60 minutos em cada hora, as- 








sim como 60 minutos de arco em um 
grau e 6 vezes 60 graus — ou seja, 360 

num círculo completo 

Você pode contar até 59 segundos, 
mas, se adicionar mais um segundo a es- 
se número, terá um minuto e recomeça 
rá a contar os segundos do 0. E quando 
tiver 59 minutos e 59 segundos, um se- 
gundo a mais fará uma hora, sendo ze, 
rados os minutos e segundos 

Resquícios de numeração em outras 
bases podem ser encontrados em velhos 
sistemas de medidas da Inglaterra. Exis- 
tem 8 pintas em cada galão, 12 polega- 


das em cada pé e 16 onças em cada li 
bra. Outra base que ocorre com fre- 
qiiência é o número 12. Temos 12 pole 
gadas em um pé, 12 unidades em uma 
dúzia e 12 dúzias em uma grosa. A base 
12 era muito usada tanto para dinheiro 
como para bens, devido à facilidade 
com que se tlivide por 2, 3, 4ou 6. Cer- 
tas coisas tinham que ser divididas en 
tre várias pessoas, e a base 12 tornava 
as transações muito mais simples. O nú- 
mero 10, ao contrário, só é divisível por 
2e5. Vemos, portanto, que muitas ve- 
zes é conveniente usar outra base que 
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o — O SISTEMA DECIMAL TODAS AS BASES 
EE OUTROS SISTEMAS NUMÉRICOS IM O SISTEMA BINÁRIO 
E COMO CONTAR EM BASE 9 E BITS E BYTES 
E CONTAS EMDIFERENTES BASES IH COMO O COMPUTADOR 
e E CONVERSOR PARA FAZ SOMAS 
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não 10. Uma libra de peso, por exem 
plo, pode ser dividida em onças por su- 
cessivas divisões ao meio. 


CONTANDO COM NOVE DEDOS 


o há nenhuma razão que impeça 
o uso de um sistema baseado em qual- 
quer número escolhido ao acaso. Se ti- 
véssemos nascido, todos, com 1 dedo a 
menos em uma das mãos, provavelmen- 
te usaríamos um sistema “nonário” ou 
seja, de base 9. Contaríamos normal- 








Os dez dedos das mãos levaram 

o homem a contar usando a base 10. 
Auxiliares de cálculo simples, como o 
úbaco, ou contador, são um 

modelo mecânico de nossos dedos. 


mente até 8 e, para obter o número se- 
guinte, colocaríamos o | numa posição 
mais à esquerda e o O na posição à di 
reita. Ou seja, o decimal 9 seria repre- 
sentado no sistema nonário pelo núme- 
ro 10. 

Da mesma forma, se somássemos 1 
a 18, teríamos 20; e 100 se somássemos 
la 88. 

Como se pode ver pelo exemplo aci- 
ma, as regras da aritmética se aplicam 
sempre, não importando qual seja a fa 
se do seu sistema de numeração. Voc 
pode tentar operações simples num sis- 
tema de base 7 ou 8, e assim por diante. 
Qualquer que seja a base, as regras ma- 
temáticas são sempre válidas. 

No nosso sistema nonário, a cada ca- 
sa para a esquerda que o número deslo- 
ca, seu valor absoluto é multiplicado por 
nove, Dessa forma, 3275 em nonário é 
igualaS + 7x9 + 2x9x9 + 3x 9x 
9x9, ou seja, 2417 em decimal. Você 
deve ter notado que não existe o núme- 
ro 9 no sistema nonário, Ele é represen- 
tado por 10. Assim, seria correto dizer 
que, em nonário, 3275 é igual a 5 + 
7x10 + 2x 10x 10 + 3x 10x 10x 10. 

Com um pouco de agilidade mental 
você pode fazer alguns cálculos simples 
em nonário. Por exemplo; 99 x 9 dá 891 
em decimal. Em nonário, o número 99 
é representado por 120; isto é: 1x 9x9 

+ 2x9, ou 81+18. E 9 é 10. 

Assim, em nonário, 99 x 9 se traduz 

por 120x 10 ou 1200, que é 1x 9x 9x9 
+ 2x9x9, 891 em decimal. 

Qualquer adição, subtração, multi- 
plicação ou divisão de números noná- 
rios funcionará normalmente. Confira 
você mesmo. Só é preciso um pouco de 
cautela. Lembre-se que 16 em decimal 
é 17 em nonário. 


PROBLEMAS DAS BASES ACIMA DE 10 


Lidar com sistemas numéricos de ba- 
se maior que 10 é um pouco mais difícil 






























do que vimos até agora. Para manejá- 
los mais facilmente, temos que inventar 
novos números. 

Dessa maneira, se você quisesse em- 
pregar um sistema de base 12, teria de 
inventar números para representar o 10 
eo 11, Em duodecimal, 10 representa 
1x 12,ou 12.E 11 significa 1x 12 + 1, 
ou seja, 13 em decimal. 

O modo mais fácil de aumentar a fai- 
xa dos números é utilizar o alfabeto. O 
10 pode ser A, co 11, B. A2 seria, as- 
sim, 122; e BA, 142. 


Ri TRT RE 


Fazer contas em bases de numeração 
que não sejam decimais pode ser bastan- 
te difícil e cansativo. Assim, apresenta- 
mos aqui um programa que faz contas 
em qualquer base até 36. Quando você 
rodá-lo, ele vai perguntar em que base 
quer trabalhar. Você deve responder em 
decimal. 

A seguir, ele pede um número. Este 
deve ser digitado na base que você sele- 
cionou. Se foi a base 8, não deve haver 
nenhum número acima de 7. E se você 
escolheu uma base acima de 10, os nj- 
meros acima de 9 deverão ser digitados 
por meio letras do alfabeto, sempre 
maiúsculas. 10 será A, 11, B, 12,C, e 
assim por diante. 

Então, o computador perguntará que 
operação você deseja (+, —, * ou /Te- 
presentando respectivamente soma, sub- 
tração, multiplicação e divisão). Após 
isso, você deverá digitar outro número, 
na mesma base do anterior. Se a sua 
operação é divisão, e a resposta não é 
um inteiro, o computador lhe dirá que 
a operação não será realizada. “Divisão 
não exata”, será a mensagem no vídeo 
Se não, a operação e seu resultado apa- 
recerão na tela na base que você esco- 
lheu para operar. 


























10 CLS 
20 INPUT"BASE (ATE 36)";B 


30 INPUT"NUMERO (INTEIRO) ";AS 
40 INPUT"SINAL ";S$ 
50 INPUT"NUMERO (INTEIRO) ";B$S 


60 PS=A$:GOSUB 210 
70 XS=STRS (DE) 
80 P$=B$:GOSUB 210 


a 


——— 





90 Y$=STRS(DE) 





100 IF S$="*" THEN X=VAL (XS) *VA 
L(Ys) 
110 IF S$="/" THEN X=VAL (X$) /VA 
L(ys) 
120 IF SS="+" THEN X=VAL (XS) +VA 
L(ys) 
130 IF S$="-" THEN X=VAL (XS)-VA 
L(ys) 
140 IF X<>INT(X) THEN N$="IMPOS 


SIVEL”:GOTO 190 
150 U=B*INT(X/B):IF X-U>9 THEN 
NS=CHRS (55+(X-U) ) +NS:GOTO 170 
160 NS$=MIDS (STRS$ (X-U) +NS,2) 
170 X=INT(X/B) 

180 IF X>0 GoTO 150 
190 PRINT €257,AS+” 


P+Sg+ "+B$ 


Pe ";NS 
END 


200 





UM MODELO PARA NÚMEROS EM 
DIFERENTES BASES 

Às vezes é muito difícil visualizar co: 
mo funciona um sistema de numeração 
de base diferente ao de base 10. Afi 
nal, não é fácil ter que cortar fora al 
guns dedos, ou fazer crescer dedos adi 
cionais nas mãos, de modo que você 
parece obrigado a se satisfazer com o 
que tem! Mas seria possível, por exem 
plo, grudar dois dedos um no outro com 
fita adesiva, para contar na base 9, ou 
usar dois palitinhos extras de conta- 
gem, para trabalhar na base 12 

Uma solução mais inteligente seria 
construir o seu próprio ábaco, ou cal 
culadora de continhas, similar àqueles 
mostrados nas fotos que acompanham 
esta lição. Um ábaco convencional 
(mesmo aqueles de brinquedo, para 
criança) pode ajudar e agilizar as con 
tas no sistema de base 10: assim, vo- 
cé pode criar um ábaco com tantas bo 
linhas em cada vareta da moldura quan 
tas quiser. Não é necessário nem mes 
mo construir uma moldura cheia de ara 
mes, mas simplesmente arranjar uma 
série de sulcos paralelos, para conter 
as bolinhas e fazê-las rolar para cima 
ou para baixo 

Não se esqueça de que o número de 
continhas em cada fileira é um a me: 
nos do que a base em que você quer 
trabalhar. Assim, na base 10, você pre 
cisa de 9 contas, e na base 2, de ape 
nas uma. Nenhuma bolinha equivale ao 
número zero, em qualquer sistema de 
numeração, Uma bolinha afastada das 
demais significa o número 1, e assim 
por diante. Quando a operação exigir 
mais de 9 bolinhas no sistema decimal, 
zere a fileira de volta, e suba uma boli- 
nha na fileira seguinte (é a operação de 
“vai-um""). 














210 
220 
230 
240 
o 


DE=0 

IN=0 

Y=ASC (RIGHTS (P$,1)) 

IF Y<58 THEN D=Y-48:GOTO 26 


250 
260 
270 
280 


D=Y-55 

DE=DE+D*B" IN 
P$=LEFTS (PS, LEN(P$S)-1) 
IN=IN+1 

290 IF LEN(P$)>0 THEN GOTO 230 
300 RETURN 


Este programa, como está, roda ape- 
nas nos compatíveis com o TRS-Color. 
Para rodá-lo nos modelos TRS-80, mo- 
difique a linha 190 para: 


190 PRINTES13,AS+” 






nessa ro 


+ BS+ "= ";N$ 
10 POKE 23658,8 

20 INPUT "Base (ate 36) ";b 
30 INPUT "Numero (inteiro) "; 
LINE as 

40 INPUT "Sinal "; LINE sS 
50 INPUT "Numero (inteiro) "; 
LINE b$ 

60 cLS 

70 LET p$=aS: GOSUB 180 


80 LET x$=STR$ dec 


90 LET p$-b$: GOSUB 180 
95 LET y$-STRS dec 

100 LET 2$-x$+s$+y$: LET x-VAL 
z5 

110 IF X<DINT x THEN LET n$=" 


Impossivel realizar a operacao 
«"; GOTO 160 

120 LET n$="" 

130 LET u=INT (x/b): LET u-u*b 
: IF x-U>9 THEN LET nS=CHR$ ( 
55+(x-u))+n$: GOTO 140 

135 LET n$=STR$ (x-u)+n$ 

140 LET x=INT (x/b) 

150 IF x>0 THEN GOTO 130 

160 PRINT AT 10,0;a$ts$+b$;"= 
";n$ 

170 STOP 

180 LET dec=0 

190 LET indice=0 

200 LET y=CODE pS(LEN p$) 





210 IF y<58 THEN LET d=y-48: 
Goro 220 

215 LET d=y-55 

220 LET dec=dec+d*b"indice 


230 LET pS=p$(1 TO (LEN p$)-1) 
240 LET indice=indice+1 

250 IF LEN p$>0 THEN GOTO 200 
260 RETURN 

10 cLs 

20 INPUT "BASE (ATÉ 36)";B 

30 INPUT "NUMERO (INTEIRO) ";AS 
40 INPUT "SINAL ";8$ 

50 INPUT "NUMERO (INTEIRO) ";B$ 
60 PS=AS:GOSUB 210 


70 XS$=STRS$ (DE) 

80 P$-B$:GOSUB 210 
90 YS=STR$(DE) 
100 IF S$="*" 
L(Ys) 


THEN X=VAL (X$) *VA 


110 IF S$="/" THEN X=VAL (XS)/VA 
L(ys) 

120 IF s$="+" 
L(ys) 

130 IF s$=" 
L(ys) 

140 IF X<>INT(X) THEN N$-"Opera 
ção impossível”:;GOTO 190 

150 U=B*INT(X/B):IF X-U>9 THEN 
N$=CHRS (55+(X-U) ) +NS:GOTO 170 
160 N$=MIDS (STRS (X-U) +NS,2) 

170 X=INT(X/B) 

180 IF X>0 GOTO 150 


THEN X=VAL (X5) +VA 





” THEN X=VAL (X$)-VA 


190 LOCATE 0,12:PRINT AS+" "+55 
FP CABS4M Mqrarçr DANS 

200 END 

210 DE=0 

220 IN=0 


230 Y=ASC(RIGHTS(PS,1)) 

240 IF Y<58 THEN D=Y-48:GOoTO 26 
0 

250 D=y-55 

260 DE=DE+D*B" IN 

270 PS=LEFTS(PS, LEN(PS)-1) 

280 IN=IN+1 

290 IF LEN(P$)>0 THEN GOTO 230 
300 RETURN 














Ep DOU AV e LO DI Dé 


LES a 


= 

















VA 190 HTAB 10: VTAB 15: PRINT AS humana, o computador só consegue fa- 
$ 1º "5884" "aBBa” = "NS zer cálculos em decimal, dentro de um 
VA TOME so RE E programa escrito em BASIC, apesar de 
va 20 INPUT "BASE (ATE 36) =D";B 220 IN = O enrva ço pa a Dinários 
30 INPUT "NUMERO (INTEIRO) =>" 230 Y = ASC ( RIGHTS (P$,1)) ERA Roo Anatcuçoes no dE uBic as nas 
à AS 240 IF Y< 58 THEND-yY- 48: racódigo de máquina durante a execu- 
40 INPUT "OPERACAO (+,-,*,/) = GOTO 260 ção do programa. 
>";86 250 D=Y-55 
50 INPUT "NUMERO (INTEIRO) =>” 260 DE = DE +D*B * IN SI 
:BS 265 IF LEN (P$) = 1 THEN RET EL) 
60 P$ - AS: GOSUB 210 URN ] . 
70 X = DE 270 PS = LEFTS (PS, LEN (PS) - Para os computadores digitais, o sis- 
ss A 80 PS = B$: GOSUB 210 1) tema de numeração mais apropriado é 
90 Y = DE 280 IN = IN+1 o baseado no número 2. Isso acontece 
100º IEASS ek” THEN X SR 290) 0010290 porque o computador é composto de 
o ZE a a Ra Rae e a x K a PORE RETURN circuitos eletrônicos que possuem dois 
130 IF SS = "=" THENX =X -Y Se você acha que fazer contas em di- Si 
26 140 IF X< > INT (X) THEN NS  versas bases é mais do que pretende sa- OE “ligado” isca 
= "NAO DA”: GOTO 190 ber algum dia, note que o computador Ha ao DAR de nco eine 
150 U = B* INT(X/PB): IFX cambêm tra Dacelar O pro Gianna Ca rea base 2, estes são todos os números de 
DU > 9 THENN$ - CHARS (55 + ( tambem trapaceia. 2 prog + na rea- que você necessita para expressar qual- 
x - U)) + N$: GOTO 170 lidade, converte os números que você di- quer valor. 
160 N$ = STR$ (X - U) + N$ gitou em decimais, executa à operação O sistema de numeração de base 2 é 
0 170 X = INT (X / B) e reconverte o resultado para a base que conhecido como “binário”. Ele é com- 
180 IF X > O THEN 150 você escolheu, Ao contrário da mente — posto apenas por zeros e uns; todos os 


outros números foram abolidos. Dessa 
forma, se você começar a contar da ma- 
neira habitual, não vai passar de 1. So- 
me laleteráo número | deslocado 
uma casa para a esquerda, enquanto a 
casa da direita é zerada. Assim, em bi- 
nário, 1+1 = 10. 
Contar de O a 8 resulta em O, 1, 10, 
1, 100, 101, 110, 111, 1000. Novamen- 
números obedecem às leis da 
Se você quiser somar 10 +11, 
deve primeiramente somar os dois nú- 
meros da direita, 0+ 1. A seguir, devem 
ser somados os dois da esquerda, 1+1, 
o que dá 2; só que 2 em binário é 10. 
Assim 10+11 = 101; ou seja, 2+3 = 

Subtração em binário é um processo 
tão direto quanto a soma. O único de- 
talhe a observar é o número que se “le- 
va” para a próxima casa. 

A multiplicação e a divisão são ex- 
traordinariamente fáceis, mesmo para 
seres humanos “normais”. Na realida- 
de, é tão fácil que “até” um computa- 
dor pode fazer essas operações. No pri 
meiro caso, tudo se resume a multipli- 
car 0x0, que dá 0; 0x1, que também 
dá 0; ou 1x1, que dá 1. 

A divisão é igualmente simples: em 
cada operação, basta decidir se o divi- 
sor está dentro do dividendo uma vez ou 
nenhuma vez. 

Confira você mesmo como os proces- 
sos aritméticos funcionam em binário. 
O painel das páginas seguintes dá exem- 
plos de operações para você fazer. 





























Qualquer sistema de numeração pode ser 
imitado por um modelo mecânic 

o relógio, por exemplo, usa a base 60, 
enquanto o ábaco utiliza a base 10. E 











CET 


Os números binários refletem exata- 
mente o que acontece no computador. 
As instruções ou dados que você dá a 
ele são codificados em números biná- 
rios, que, por sua vez, são manipulados 
e armazenados pelos circuitos internos 
do aparelho. Assim, quando você come- 
ça a dominar o sistema binário, come- 
ça também a compreender como funcio- 
na o computador, 

Cada um dos dígitos de um número 
binário é representado eletronicamente 
dentro do computador por um circuito 
ligado ou desligado. Se está ligado, o va- 
lor é 1. Se, pelo contrário, o circuito es- 
tá desligado, o valor é 0, Cada dígito é 
conhecido como um bit. 

Esses circuitos são agrupados em uni- 
dades maiores, que representam núme- 
ros também maiores e mais úteis. Em 
quãse todos os micros, os bits estão or- 
ganizados em grupos de oito, forman- 
do o que se conhece como um byte. Ca- 
da byte representa, assim, oito dígitos 
binários, de forma que pode armazenar 
qualquer número entre 00000000, ou ze- 
ro, e 111111, ou 128+64+32+ 16+ 
8+4+2+1, que é 255. Números maio- 
res que 255 são representados por dois 
ou mais bytes. 


FRAÇÕES BIN 





IAS 


Todos os programas e exemplos da- 
dos até aqui manipularam números in- 


ADIGRO BINARTA 
1100111 


+100010 


10001001 


10001001 


A adição binária funciona a partir da direita. O + 0 dá 0,0 + 1 


dá 1,e1 + 1 resulta em 10, que é o O 
com '*vai-um" para o próximo dif 
3 operações funcionam na soma 






DECIMAL 
1100111 
100010 


103 + 34 





ito. Observe como essas 
lizada acima. 


teiros. É possível, também, converter 
frações em números binários. 

Por exemplo, 1/2 é 0.1 em binário; 
1/4 6 0.01 e 1/8 é 0.001. Existe um'pa- 
drão determinado. Qualquer fração po- 
de ser formada a partir de 1/2s, 1/4s, 
1/8s, 1/16s, etc., da mesma forma que 
qualquer número inteiro pode ser for- 
mado a partir de Is, 2s, 45, 85, etc. O 
problema é que é mais difícil trabalhar 
com frações binárias porque sempre te- 
mos uma infinidade de Os e 1s! 

Quando você converte frações, é me- 
lhor pensar nelas como 0.5; 0,25 e as- 
sim por diante. Desta forma, você po- 
de manipular uma fração como 0.75 co- 
mo sendo 1x0.5+1x0.25, o que sig- 
nifica em binário 0.11, 

O próximo programa permite que vo- 
cê trabalhe com frações binárias sem 
grandes dificuldades: 


10 CLS 

20 PRINT"CONVERSAO DE DECIMAL P 
/ BINARIO” 

30 PRINT: INPUT"DIGITE UM NUMERO 
ENTRE 0 E 1 ";N 

40 IF N<=0 OR N>=1 THEN 30 

50 N$="0." 

60 FOR T=1 TO 30 

70 N=N*2 

80 N$=NS+CHRS (48+INT (N)) 

90 N=N-INT(N) 

100 NEXT T . 

110 PRINT €257,"0 NUMERO BINARI 
oz: ” 

120 PRINT:PRINT N$:PRINT 


1011001 


10013, 


100110 


SLIRTRAGAN RINARIA 


130 
140 
150 
160 
170 


PRINT"OUTRO NUMERO (S/N) 7” 
AS=INKEYS 
IF A$="s” 
IF AS<>"N” 
END 


THEN 10 
THEN 140 


O programa acima, como está, roda 
apenas nos compatíveis com o TRS- 
Color. Para os modelos tipo TRS-80, 
modifique a linha 110 para: 


110 PRINT6513,"0 NUMERO BINARIO 
Et 
10 cLS 
20 PRINT '"Conversao de Decim 
al para Binario” 
30 INPUT "Digite um numero en 


tre 0 e 1º",N 
40 IF N<=0 OR N>=1 THEN GOTO 


45 PRINT ''"Decimal; “;N 

50 LET N$="0." 

60 FOR T=1 TO 16 

70 LET N=N*2+1E-9 

80 LET N$=NS+CHRS (48+INT N) 


90 LET N=N-INT N 
100 NEXT T 


110 PRINT ''"O numero binario 
dr 

120 PRINT N$ 

130 PRINT *'*"'"Qutro numero ( 
S/N)?" 


140 LET AS-INKEYS 
150 IF AS="S" OR AS="s” 
goto 10 
160 IF AS<>"N” 
THEN GOTO 140 


THEN 


AND AS<>"n” 


Tal como está, o programa acima ro- 
da apenas no Sinclair Spectrum 


DECIMAL, 
1011001 
110011 
89 - 51 


100110 





A subtração binária é igualmente simples. 1 — 1 dá 0,0 — 1 


dá 1. Agora, a operação 1 
próximo dígito à esquerda. Os resultados, portanto, não são todos 


exatamente iguais ao da mesma operação no sistema decimal. 


— 0 dá O e “vai-um” para o 





(TK-90X). Para rodar no ZX-81, subs- 
titua as linhas seguintes: 


30 PRINT "ENTRE UM NUMERO ENTRE 
EI)” 

35 INPUT N 

BO LET N$=NS+CHRS (28+INT N) 


« 

by 

10 CLS 

20 PRINT TAB(7);"BINÁRIO >> DEC 
IMAL” 

30 PRINT:INPUT " digite um núme 
ro entre 0 e 1 “;N 

40 IF N<=0 OR N>=1 THEN 30 

50 N$="0." 

60 FOR T=1 TO 30 

70 N=N*2 

80 NS=N$+CHRS (48+INT (N)) 

90 N=N-INT(N) 

100 NEXT T 

110 LOCATE 0,10:PRINT "O número 
binário é : ” 

120 PRINT:PRINT N$: PRINT 

130 PRINT "outro número (S/N) ? 


140 AS=INKEYS 

150 IF AS$="S" THEN 10 
160 IF AS<>"N” THEN 140 
170 END 


10 HOME 
20 HTAB 5: PRINT "CONVERSÃO DE 


Um ábaco binário utiliza uma conta em 
cada vareta. No computador, 

essa disposição é substituída 

por pulsos elétricos. 


MULTIPLICAÇÃO BINARIA DECIMAL NIVISAO RINARIA DECIMAL 
1 
1101 1101 13 11001 | 101 11001 
1011 1011 1 L--- 
mem 101 101 
1101 13 x 11:: 000 


1101 10001111 = 101 
0000 


10001111 








Em cada fase da multiplicação binária, você multiplica O por Na divisão binária, finalmente, é necessário verificar se o 

O, que dá 0, ou 1 por O, que também dá 0, ou ainda 1 por 1, divisor cabe no dividendo pelo menos uma vez. Se isto 

que resulta sempre em 1. Veja como isto se aplica no exemplo acontecer, o resultado será 1; caso contrário, será O. 

acima, onde é simulada uma operação no vídeo do computador. Isso faz da divisão uma das operações binárias mais simples. 3 


LL [D[royjJf?]"ftf"rFMíMíúçêçêçêtÕãCãM"tí(ZÃZÇ£gf.c.tes:e. 


CIMAL PARA BINARIO” 

30 PRINT : PRINT "DIGITE UM NU 
MERO”: INPUT "ENTRE O E 1 =>";N 
40 IFN< = 00RN> =1 THE 
N 30 

50 N$ = o 
60 FORT = 
70N=N*2 
80 NS = N$ + 
N)) 


1 TO 38 


cHRS INT ( 


(48 + 
N=N- 
100 NEXT T 
110 HTAB 1: 
NUMERO BINARIO E: 
120 PRINT : PRINT N$: PRINT 
130 PRINT : PRINT "OUTRO NUMER 
qe; 
140 GET AS 


INT (N) 


VTAB 15: PRINT "O 


O LONGO TRAJETO DO ÁBACO À ELETRÔ 


RREO UR 
adicionados, subtraídos, multipli 
DER ER 

'o na base 10. Entretanto, eles fors 
CEU UR E RUCA UR 
POTES CURA 
[RO STA DP PT ET 
ER GU RR 
PR ST RT 
gado. 

Os dígitos binários são represen- 
RT E ST ET 
DOT RSI RR 
E RR RR E E 
est ado, o dígito 1. Nos cire 
OE CER SEO 
LORETO 
CLP 


ser representados. Isso dá uma 


Ea 


150 
160 
170 


THEN 10 
"Nº THEN 130 


IF AS = "5º 
IF AS< > 
END 


O programa aceita qualquer número 
entre 0 e 1 e imprime o seu equivalente 
binário. A linha 70 começa por dobrar 
o seu número e a linha 80 constrói o nú 
mero binário. Inicialmente o computa- 
dor trabalha com o valor de INT(N), 
que será ou O ou 1. Então, a esse valor 
adiciona-se 48 para perfazer 48 ou 49, 
que são os códigos ASCII para 0 e 1. 
Tudo isto é feito de forma a transfor- 
mar Os números em cadeias de caracte: 
res para que possam ser adicionados à 
variável N$. Na linha 90 tiramos a par- 


POTRO E esa LET TOR RU 
O RS SR DO 


te inteira de N para deixar apenas a 
decimal. 

O programa no Sinclair Spectrum é 
um pouco diferente, porque enquanto 
INT 1 é 1, como se espera, INT (.5x2) 

Isto acontece porque ele armazei 
«5x2 como .99999999.., Assim, uma 
pequena fração tem que ser adicionada 
a N na linha 70 para fazer com que INT 
funcione como dev 

Nos modelos compatíveis com o 
ZX-B1, a linha 80 usa outro número pa- 
ra somar ao valor inteiro de N (observe 
que essa máquina não usa o código AS- 
CII). O valor 28 corresponde ao carac 
tere 0, o valor 29 ao caractere 1, etc. e 
assim sucessivamente 


CA 


CORRER UR STUDIO 
OE EST UT 
[OR E O RS RR TUNA TO 
a partir de 1, ao invés de 0) — apare- 
RIP RT LR 
SRA SS US 
Ei DER TO 
SS O RR RR 
são juntadas para obter um número 
binário de 16 bits. O microproces- 
ESTAVA TE AS PTS TO TR RT 
CORRO LET CO RS a TR TO 
EGOR RU UERR 
E CR O DEU 
16 bits, e até mesmo fazer operações 
CEU UR 
DEUSA SRS 
COLAUULUia 
COR RRECRARCEEEERDIRA 
DURA ERREI UR SER 
podem ser manipulados. 


PER 
EEE 


eba * à 
RETA LR E OS Di cce 


ES SR] BA RR RR 


RR la 
DITIII1IIIHt+HDGDODD0DDI=-1DDDDDDO 
RR PRI RA 


181770 6 RR REA RA RR RD 8 94172175) 8879170 880 00 08 R9]20 008008020 RR] 


I-D1DD1 


8 














ENSINESEUMICRO 1 meia, 


EE DECISÕES MAIS COMPLICADAS 


ATOMARDECISÕES  * iii 











Embora não tenha cérebro, o computador 
tem capacidade para decidir de 

forma lógica. Aprenda a trabalhar com 
a instrução IF... THEN e ensine seu 
micro a tomar decisões corretamente. 


O que torna um computador infini- 
tamente superior a uma máquina de cal- 
cular é sua capacidade de tomar decisões 
baseadas em raciocínios lógicos. Um 
desses raciocínios é o comando 
IF...THEN. O computador rcage a es- 
sa declaração de modo semelhante a um 
ser humano: SE (IF) isto é verdadeiro, 
ENTÃO (THEN) faça tal coisa. Eis um 
exemplo: 

IF A<18 (ou seja, SE A é menor que 
18) THEN PRINT “menor de idade” 
(ENTÃO IMPRIMA “'menor de idade”) 

Ao encontrar a declaração IF, o com- 
putador verifica se a proposição que a 
segue é verdadeira. Se for, ele executa 
tudo o que estiver após o THEN. Se a 
proposição é falsa, ele ignora o resto e 
passa para a próxima linha do programa. 

Você verá como funciona tudo isso 
no programa a seguir. 


Ss 


10 PRINT "Digite a lista das no 
tas” 

20 PRINT "Digite -99 para termi 
nar” 

30 INPUT N 

40 IF N=-99 THEN PRINT "Média = 
";T/C:STOP 

50 LET T=T+N 

60 LET C=C+1 

70 corto 30 


A mensagem no início do programa 
instrui o usuário a digitar primeiro uma 
lista de notas e por fim o número -99. 
As linhas 25 e 26 zeram o valor das va- 
riáveis do total (T) e do contador (C). 
A linha 30 dá entrada ao valor que vo- 
cê digita. A linha 50 adiciona esse valor 
ao total corrente, e a linha 60 conta 
quantos números você digitou, adicio- 
nando 1 à variável do contador cada vez 
que um novo número é dado. 

Enquanto você estiver digitando no- 











NEED BRR EE 








tas reais, o computador ignorará a linha 
40 e seguirá em frente, mas, quando vo- 
cê digitar -99, a condição da linha 40 
N=-99 será satisfeita, e o computador 
imprimirá a média das notas (T/C). Nú- 
meros como -99 são chamados de fictí- 
cios, ou terminais, e são úteis para con- 
trolar o que acontece em um programa. 
Este é um recurso muito usado para in- 
terromper partes de um programa. 


jA ESCOLHA TRÊS CAMINHOS 


E se você quiser escolher entre três ou 
mais alternativas, de modo a colocar o 
computador em diferentes cursos de 
ação? É simples: o computador sorteia 
um número que você tem de adivinhar; 
ao comparar o seu palpite com o núme- 
ro sorteado, ele elabora três alternativas: 
o palpite foi correto, foi muito baixo, 
ou muito alto. Tudo se passa, portan- 
to, como num jogo de advinhação. 





5 CLS 

10 LET N=RND(20) 

20 PRINT "ACABO DE IMAGINAR UM 
NUMERO...” 

30 PRINT "TENTE ADIVINHA-LO!” 
40 INPUT G 


50 IF G=N THEN PRINT "MUITO BEM 


1”":FOR D=1 TO 2000:NEXT D:GOTO 
10 

60 IF G<N THEN PRINT 
O, TENTE OUTRA VEZ!” 
70 IF G>N THEN PRINT 
O! TENTE DE NOVO." 
80 coro 40 


Atenção: digite o programa abaixo 
em maiúsculas, se quiser executá-lo nos 
compatíveis com ZX-81: 


"ESTA BAIX 


"MUITO ALT 


5 CLS 
10 LET N=INT (RND*20)+1 
20 PRINT "Eu acabo de imagina 
r um numero.” 


30 PRINT "Tente adivinha-lo.” 
40 INPUT G 

50 IF G=N THEN PRINT "Muito 
bem!”: PAUSE 100: GOTO 10 

60 IF G<N THEN PRINT "Esta b 
aixo; tente outra vez!” 

70 IF G>N THEN PRINT "Muito 
alto! Tente de novo.” 

80 coro 40 


O programa abaixo, como está, ro- 
dará apenas nos micros tipo MSX. Pa- 


ra rodá-lo no Apple II e no TK-2000, 
elimine a linha 3 e substitua o comando 
da linha 5 por HOME. 


3 R=RND(-TIME) 
5 cLs 


10 LET N=INT(RND(1)*21) 
20 PRINT "Acabo de pensar e um 





número” 

30 PRINT ” será que você cons 
egue advinhá-lo 7” 

40 INPUT G 


50 IF G=N THEN PRINT "Certo, mu 
ito bem!":FOR D=1 TO 2000:NEXT 
D:GoTo 5 


60 IF G<N THEN PRINT "Muito bai 
xo, tente outra vez.” 

70 IF G>N THEN PRINT "Alto dema 
is, tente outra vez.” 

80 coro 40 


A linha 10 escolhe um número ao 
acaso entre 1 e 20, e as linhas 20 a 40 
convidam você a adivinhá-lo. Qualquer 
que seja sua resposta, o computador ve- 
rifica, nas linhas 50, 60 e 70, que pro- 
posição é verdadeira. 

Suponha que seu palpite seja um nú- 
mero abaixo do sorteado. Neste caso, o 
computador vai primeiro para a linha 
50; mas P=N é falso, de modo que ele 
ignora o resto da linha e passa para a 








seguinte, a linha 60. Agora, a proposi- 
ção é verdadeira, visto que P<N. En- 
tão, ele imprime a mensagem “Muito 
baixo, tente novamente”. A seguir, ele 
passa assim mesmo para a próxima li- 
nha, onde a proposição é falsa, de for- 
ma que ele a ignora e vai para a 80, que 
leva você de volta para outra tentativa. 

Este programa funciona muito bem, 
mas tem uma desvantagem: ele continua 
a pedir um novo palpite ao jogador, sem 
se importar se este quer ou não conti- 
nuar jogando. Seria interessante fazer 
com que o computador preguntasse se 
você quer fazer uma nova tentativa. 

As próximas linhas fazem exatamente 
isso, O comando IF...THEN será nova- 
mente utilizado, só que desta vez o com- 
putador estará comparando letras e não 
números. 

Antes de entrá-las em adição ao pro- 
grama anterior, não esqueça de mudar 
a linha 50 para: 





50 IF G=N THEN PRINT "CERTO, 
MUITO BEM!” :GOTO 100 


100 PRINT "QUER JOGAR DE NOVO? ( 
S/N)” 

110 LET AS=INKEYS:IF AS=""THEN 
Goto 110 


120 IF AS="s” 


100 PRINT "Voce quer tentar ou 
tra vez(S/N)?” 

110 LET AS=INKEYS: IF AS<>"S” 
AND AS<>"N” THEN GOTO 110 

120 IF A$="S” THEN RUN 


Prulaé ico] 


Atenção: para poder rodar o progra- 
ma abaixo em computadores tipo Ap- 
ple e TK-2000, substitua a linha 


110 GET AS 


THEN RUN 


100 PRINT ,,"Quer jogar outra v 


ez (S/N)?” 

110 LET AS=INKEYS: IF A$S="" THE 
N Goro 110 

120 IF AS="S” OR A$="s” THEN GO 
TO 5 


A linha 110 espera que você acione 
uma tecla. Caso seja o ““S" maiúsculo, 
o programa continuará. Se qualquer ou- 
tra tecla for acionada, o programa ter- 
minará. 


[nao ea Ro Ugo 


Para fazer o computador testar duas 
ou mais condições, antes de decidir que 
caminho tomar, use palavras especiais 
chamadas operadores lógicos: 


100 IF D$="DOMINGO” AND H=20 
THEN PRINT "E' HORA DO 
FANTABTICO" 


Quando você usa AND (a conjunção 
e, em inglês) entre duas condições, am- 
bas devem ser verdadeiras para que o 
computador execute o resto da linha. Se 
uma delas ou as duas forem falsas, ele 
passará para a próxima linha. Nesse 
exemplo é necessário que sejam 20 ho- 
ras de um domingo para que o compu- 
tador imprima mensagem. Veja outro 
exemplo: 


200 IF P$-"SAGU” OR 
P$="TAPIOCA” THEN PRINT 
"NAO ESTOU COM FOME” 


Essa linha usa OR (ou, em inglês) e 
o computador imprimirá a mensagem 
no caso de pelo menos uma das compa- 
rações ser verdadeira. 

O teste pode vir a ser muito compli- 
cado se houver uma quantidade muito 
grande de condições para verificar. Se 
você tem vários AND e OR juntos, terá 
que usar parênteses para que o compu- 
tador saiba o que verificar primeiro. 

Uma linha de um jogo de aventuras 
pode se parecer com isto: 


2000 IF P=14 AND (CS="ESPADA” 
OR CS="FACA”) THEN PRINT 
"VOCE DESTRUIU O GREMLIN” 


Isso só é verdadeiro se você estiver na 
posição 14 E com uma espada OU uma 
faca. Mude os parênteses: 


2000 IF (P=14 AND CS$="ESPADA”) 
OR CS="FACA” THEN PRINT 
"VOCE DESTRUIU O GREMLIN” 


Agora ela será verdadeira se você es- 
tiver na posição 14 com uma espada OU 
se estiver em qualquer lugar com uma 
faca. 


TEUS 


Agora, usando os conceitos que 
aprendemos, vamos programar um jo- 
guinho que simula uma máquina caça- 
níqueis. Ela faz um bom uso de AND 
e OR. Tente tirar a sorte grande! 





20 LET M=50 
30 cLS 


40 
50 
so 
70 
Bo 








LET M=M-5 


IF M<O THEN PRINT "DESCULPE. 
VOCE ESTA DURO!”:END 

LET A=RND(12)+192 

LET B=RND(12)+192 

LET C=RND(12)+192 


210 PRINT €237,CHRS(A) : PRINTEZ3 
9,CHRS(B): PRINT €241,CHRS(C) 
220 IF A=B AND B=C THEN PRINT € 
258,"VOCE GANHOU S50!!!":LET M= 
M+50 

230 IF (A=B OR B=C) AND A<>C T 
HEN PRINT €361,"VOCE GANHOU S1IO 


:LET MeM+10 


240 FOR D=1 TO 500:NEXT 
250 PRINT €323,"QUER JOGAR OUTR 
A VEZ? (S/N)”:PRINT €361,"VOCE T 


S";M 








OS OPERADORES LÓGICOS 

Se você não está acostumado com 
os símbolos usados em matemática pa- 
ra expressar relações lógicas, como 
“maior que"" e “menor que”' — os cha- 
mados operadores — pode achá-los 
meio confusos, no início. 

Assim, pense neles como uma es- 
pécie de cunha. No símbolo > o lado 
mais aberto, à esquerda, é maior do 
que o lado mais agudo (a ponta). No 
símbolo < o lado mais estreito, á es- 
querda, é menor do que o lado direito. 
Deste modo, a expressão A >B deve ser 
lida simplesmente: A é maior do que B. 
Colocar o sinal de igualdade (=) ao la- 
do de um dos operadores prévios sig- 
nífica também que pode ser “maior ou 
igual a” ou “menor ou igual a”. 

Eis aqui a lista de todas as combi- 
nações possíveis: 


A=B :AéigualaB 
A>B : À é maior que B 
A<B : A é menor que B 


A>=B: A é maior ou igual a B 
A<=B:A émenor ou igual a B 
A<>B: A é diferente de B 


Alguns computadores exigem que a 
ordem de digitação dos operadores 
compostos seja sempre a mesma. Por 
exemplo, não se pode digitar > = ou 
= > indistintamente: eles não vão acei- 
tar. Em outros micros, o esquema é 
mais liberal. 

Nos computadores da linha Sinclair 
os operadores compostos são digitados 
através de uma única tecla, Dessa for- 
ma, se você tentar entrar o sinal < se- 
guido do sinal =, por exemplo, a linha 
gera um erro de sintaxe. 

Finalmente, alguns computadores 
aceitam também o sinal * (sustenido), 
para significar “diferente de”. 






























Posso combinar dois ou mais IF...THEN 
em uma única linha? 

Sim, mas esta não é uma idéia mui- 
to boa, pois dificulta muito a compreen- 
são de como funciona um proçcrama e 
pode gerar erros lógicos. 

O princípio básico da declaração 
IF... THEN é que o que vem depois do 
THEN na linha do IF, só será executa- 
do se a proposição for verdadeira. As- 
sim, na linha: 


70 IF X=Y THEN PRINT "NAVE 
DESTRUIDA” LET NAVES= 
NAVES-1:GOTO 30 


Nenhuma das instruções após o 
THEN será executada, se X for diferen- 
te de Y. Mas, algumas vezes o IF com- 
posto pode ser útil: 


70 IF X=Y THEN PRINT "NAVE 
DESTRUIDA”: IF NAVES>OITHEN 
LET NAVES=NAVES-1 


80 IF X=Y AND NAVES=0 THEN 
PRINT "FIM DO JOGO": END 


Note como os dois IFs na linha 70 
simplificam a programação. 


Por que ocorrem erros quando tento ro- 
dar programas digitados? 

Pode ser que existam falhas no pro- 
grama em si, mas os erros mais co- 
muns são de digitação, quando se está 
copiando. Eis alguns deles (lembre-se 
de checá-los um a um, quando estiver 
copiando programas): 

— Confundir a letra maiúscula | ou a le- 
tra L minúscula com o número 1; ou 
ainda a letra O maiúscula com o zero. 
— Confundir parênteses com os sinais 
de maior (>) e menor (<). Confundir 
o cifrão (8) com a letra S, ou omiti-los. 
— Omitir as aspas no começo ou no 
fim, em comando PRINT ou LET. Omi- 
tir os dois pontos (:) entre instruções 
na mesma linha, 

— Esquecer a vírgula entre dois Ítens 
de uma declaração DATA, o que pode 
determinar um número muito grande 
para o computador, ou a falta de um 
item quando o computador chega ao fi- 
nal dos DATA. 

— Omitir um sinal de menos (em um 
programa que gera gráficos na tela, is- 
so pode resultar em uma tentativa de 
desenhar além dos seus limites). 

— QOmitir um sinal de ponto e vírgula no 
final de uma linha PRINT ou colocar um 
número de espaços em branco maior 
ou menor do que o previst 








260 LET KS=INKEYS:IF K$="" THEN 
Goto 260 
270 IF KS="s” 
280 END 


20 LET M-50 

30 cLS 

40 LET M=M-5 

50 IF M<O THEN "Descul 
pe... Voce esta duro!”: STOP 
60 LET A=INT (RND*12)+130 
70 LET B=INT (RND*12)+130 

80 LET C=INT (RND*12)+130 

210 PRINT PAPER O; INK 4;AT 
10,14;CHR$S A;AT 10,16;CHRS B; 
AT 10,18;CHRS € 

220 IF A=B AND B=C THEN 

PRINT AT 13,2;"Voce ganhou 550 
111”; LET MeM+50 

230 IF (A=B OR B=C) AND A<>C 
THEN PRINT AT 13,9;"Voce ganh 
ou $10!";: LET M=M+10 

240 PAUSE 25 

250 PRINT AT 15,6; 
outra vez? (S/N)”: 
;"Voce tem $";M 
260 IF INKEY$="" THEN GOTO 
260 
270 
280 


sy 


20 LET M=-50 

30 cLS 

40 M=M-5 

50 IF M<O THEN PRINT "Desculpe, 
seu dinheiro acabou.”:END 

60 LET A=INT(RND(1)*5+66) 

70 LET B=INT(RND(1)*5+66) 

80 LET C=INT(RND(1)*5+66) 

90 LOCATE 17,10:PRINT CHR$(1)+C 
HR$(A);” ";CHR$(1)+CHR$(B);” "; 
CHRS (1) +CHR$ (C) 

220 IF A=B AND B=C THEN LOCATE 
2,16:PRINT ” Você ganhou o prêm 
io máximo S50";LET M=M+50 
230 IF (A=B OR B=C) AND A<>C TH 
EN LOCATE 10,16:PRINT "Você gan 
hou S10":LET M=-M+10 

240 FOR D=1 TO 500:NEXT 

250 LOCATE 5,18:PRINT " Quer te 
ntar outra vez ? (S/N)" 
260 LOCATE 12, 20: PRINT 
mS"M" 

270 LET KS=INKEYS: IF K$="" THEN 
GoTo 270 
280 IF K$="s” 
TO 30 

290 END 


[eb] 


Como o Apple II não tem caracteres 
gráficos pré-definidos, a versão a seguir 
faz na tela blocos coloridos (símbolos do 
caça-níqueis): 


THEN GOTO 30 


PRINT 








"Quer Jogar 
PRINT TAB 10 


IF INKEY$="n” THEN STOP 


Goro 30 


"você te 


OR K$="S” THEN GO 


20 LETM 50 
30 HOME GR 





40 LETM=M-S 


50 IF M< O THEN VTAB 22: PRI 
NT "DESCULPE, VOCE ESTA DURO”: 
END 

60 LET À = INT ( RND (1) * 12 
+ 4) 

70 LET B = INT ( RND (1) * 12 
+ 4) 

80 LET C =» INT ( RND (1) * 12 
+ 4) 

85 COLOR= A: VLIN 0,39 AT 16 
90 COLOR= B: VLIN 0,39 AT 18 
95 COLOR= C: VLIN 0,39 AT 20 


110 IF A = B ANDB=CTHENÕV 
TAB 22: PRINT "VOCE GANHOU 550 
"; LETM=M+ 50 


120 IF (A=BORB-=C) ANDA 

< > C THEN VTAB 22: PRINT "VO 

CE GANHOU $10": LET M = M + 10 

130 FOR I = 1 TO 500: NEXT I 
140 VTAB 22: PRINT "OUTRA VEZ? 
(S/N)?": PRINT "VOCE TEM $";M 
150 GET A$ 

160 IF AS = "Nº THEN END 

170 Goro 30 


LS] 


A versão para o TK-2000 usa os ca- 
racteres do teclado. Só as linhas que se- 
rão substituídas no programa acima 
aparecem abaixo: 


30 HOME 

60 LET A = INT ( RND (1) * 12 
) + 222 

70 LET B = INT ( RND (1) * 12 
y + 222 

80 LET C = INT ( RND (1) * 12 
) + 222 

90 VTAB 10 

100 PRINT TAB( 18); CHRS (242 
); CHRS (A); TAB( 209; CHRS (24 
2); CHR$ (B); TAB( 22); CHRS (2 
42); CHRS (C) 


O programa usa várias linhas 
IF... THEN. A primeira, de número 50, 
checa se você tem dinheiro para jogar. 
Se você tem, a linha é ignorada, mas, 
se não, uma mensagem é mostrada, e o 
jogo termina. 

As linhas 60 a 80 escolhem três nú- 
meros aleatórios, e a linha 210 converte 
esses números em caracteres (no caso 
dos computadores das linhas TRS- 
Color, Spectrum e MSX, naipes de ba- 
ralho) e os coloca no centro da tela. O 
Sinclair e o TRS-Color convertem esses 
números em catacteres. Os outros neces- 
sitam de ajustes. 

Na linha 220, se os três caracteres são 
iguais, você ganha o jack pot (maior 
prêmio) e seu dinheiro é aumentado em 
$50. Na linha 230 você ganha $10'se dois 
caracteres adjacentes são iguais (A=B 
ou B=C), mas não ganha nada se os 
dois caracteres das extremidades são 
iguais. Se você não ganhar nada, o com- 
putador ignora as linhas 220 e 230 
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sa para a 240, que provoca uma breve 
pausa. 

As linhas seguintes são uma outra 
versão da rotina “*sim/não” que checam 
se você quer uma nova jogada. 


[RR a RSRS 


Em alguns computadores você pode 
escrever a instrução IF de uma forma 
muito mais poderosa, chamada de 
IF... THEN...ELSE. Veja um exemplo: 


10 INPUT IDADE 

20 IF IDADE<X18 THEN PRINT 
"MENOR DE IDADE” ELSE PRINT 
"ELEGIVEL” 


Esta linha faz exatamente o que diz. 
Se você tem menos de 18 anos, o com- 
putador imprime “MENOR DE IDA- 
DE”, mas, se você tiver 18 ou mais, ele 
imprimirá “ELEGÍVEL” 

Dos computadores que apresentam a 
declaração IF... THEN...ELSE em seu 
repertório de BASIC apenas os das li- 
nhas TRS-80 e MSX estão ilustrados 
aqui. 

Com a instrução IF...THEN...ELSE 
o programa fica mais fácil de ler e es- 
crever. No entanto, ela não é essencial. 
Você pode escrever programas sem ela 
se o seu computador usa apenas 
IF...THEN. Existem duas maneiras de 
contornar o problema. Uma emprega 
IF...THEN seguido de GOTO para pu- 
lar para a parte requerida do programa: 


10 INPUT IDADE 

20 IF IDADE<18 THEN PRINT 
"MENOR DE IDADE” :GOTO 30 

25 PRINT "ELEGIVEL” 

30 ...restante do programa 


Esse tipo de programação serve para 
os micros que permitem comandos muil- 
tiplos por linha, isto é, a colocação de 
mais de uma instrução na linha do IF. 
Os compatíveis com o ZX-81 não con- 
tam com essa possibilidade. A segunda 
solução do problema apóia-se num 
IF... THEN extra para assegurar que to- 
das as possibilidades sejam cobertas: 


10 INPUT IDADE 

20 IF IDADE<18 THEN PRINT 
"MENOR DE IDADE” 

25 IF IDADE >=18 THEN PRINT 
"ELEGIVEL” 

30 ...restante do programa 


Como dois IFs demoram mais tem- 
po do que um só para serem executados 
(e isso é importante quando o mesmo 
trecho de programa deve ser executado 
muitas vezes), outro estilo de programa- 
ção de alternativas é: 





10 INPUT IDADE 

20 IF IDADE>=18 THEN GOTO 25 
22 PRINT "MENOR DE IDADE” 
24 GoTO 30 

25 PRINT "ELEGIVEL” 
30...resto do programa 


Nas duas últimas programações, é 
mais difícil entender o fluxo de desvios 
do que o programa com apenas uma li- 
nha IF...THEN...ELSE. 








3 PROGRAMAÇÃODEJOGOS 3 


DIVIRTA-SE COM 


LABIRINTOS 


Jogos com labirintos exerceram sem- 
pre um grande fascínio sobre usuários de 
computadores, e variações do tão co- 
nhecido ““Come-come" (PacMan) con- 
tinuam a aparecer constantemente no 
mercado. 

Este artigo lhe ensina a entrar na on- 
da e fazer um emocionante jogo de la- 
birinto. 

O labirinto, nesta primeira tentativa, 
não inclui “inimigos” ou obstáculos, 
que exigiriam um programa bem maior. 
Mas ele mostra como fazer para que os 
personagens do seu jogo não atravessem 
as paredes e inclui também cronometra- 
gem, manutenção de um placar e uma 
rotina de registro de recordes, para dar 
mais competitividade ao jogo. 


A maneira mais fácil de compreender 
como os jogos com labirinto funcionam 
nos micros da linha Sinclair Spectrum, 
como o TK90X, é ir por etapas: 


100 
110 
120 


FOR n=3 TO 17 

READ as 

FOR m=7 TO 21 

130 PRINT AT n,m;”.” 

140 IF aS(m-6)="p” THEN PRINT 
PAPER 1; INK 1;AT n,m;” * 





150 NEXT m 

160 NEXT n 

9000 DATA "PpppPPPPPPpPPppp” 
9010 DATA "DP...cececsreos pr 
9020 DATA "p.Pp.Pp.Pp.pp.p” 
9030 DATA "P.p........s pp” 
9040 DATA "p...p.P.p.p...p” 
9050 DATA "p.ppp.p.p.ppp.p” 
9060 DATA "p «P.P. BE 
9070 DATA "Ppppp.Pp.Pp.Pppp” 
9080 DATA "p..... Debi «pis p” 
9090 DATA "p.Ppp.P.P.Ppp.p” 
9100 DATA "p...P.P.D.P...p” 
9110 DATA "p.p.........p.p” 
9120 DATA "p.pp.Pp.Ppp.pp.p” 
9130 DATA "p............. pr 
9140 DATA "PPppppPppPpPpppp” 


As linhas 100, 120, 150 e 160, usan- 
do um par dos nossos já conhecidos la- 
ços FOR...NEXT, determinam os limi- 
tes do labirinto. A linha 130 imprime um 
ponto em cada posição da tela dentro 
desses limites. 

As linhas 110 e 140 lêem os dados das 
linhas 9000 a 9140 e substituem o pon- 
to por um espaço em fundo azul, onde 


o padrão dos dados mostrar um “*p”, 


Jogos com labirintos complicados 
exigem programas muito longos. 
Mas você pode construir alguns 

bem simples com pouco mais do que 
um laço e declarações DATA. 


Isto é possível porque o TK90X nunca 
coloca dois caracteres na mesma posi- 
ção; então, o último toma o lugar do 
primeiro. 


(o) 





OME 


Um labirinto é inútil se não há nin- 
guém ou algo para andar dentro dele. 
Então execute o programa acima para 
ver como fica e depois acione as seguin- 
tes linhas: 


S0 LET x=10 
60 LET y=14 
1000 PRINT PAPER 6; 
ESPE 
1010 LET xx=x 
1020 LET yy=y 


INK 2;AT x 


1030 IF INKEY$="" THEN GOTO 10 
30 

1040 IF INKEYS="w” AND ATTR (x- 
1,y)<>9 THEN LET x=x-1 

1050 IF INKEY$="2" AND ATTR (x+ 
1,7)<>9 THEN LET x=x+1 

1060 IF INKEY$="a” AND ATTR (X, 






































ER =. 
n OS PRINCÍPIOS DA CRIAÇÃO E O PLACAR 
DE UM LABIRINTO EM COMO MOVER UMA FIGURA 
m CONSTRUA UM LABIRINTO PELO LABIRINTO 
COM LAÇOS E COMANDOS DATA IH FAÇA PAREDES 
CONTROLE O TEMPO INTRANSPONÍVEIS 
———— 


y-1)<>9 THEN LET y=y-1 

1070 IF INKEYS="8” AND ATTR (x, 
y+1)<>9 THEN LET y=ytl 

1080 PRINT INK 7;AT xx.yy;" " 
1090 GOTO 1000 





Como todos os personagens famosos 
dos jogos, nosso amigo asterisco é po- 
sicionado em x,y e se movimenta, aos 


n- seus comandos, por uma série de linhas 
e. usando INKEYS. 

rá Aqui, no entanto, há uma determi- 
n- nada diferença vital: ele só pode mover- 


se para uma posição se esta não for azul. 
Ou seja, se ATTR não for igual a 9, sen- 
do 9 valor numérico da cor com a qual 
você imprimiu as linhas do seu labirinto. 
z No caso de você querer criar um la- 
birinto de outra cor, veja como chegar 
ao valor de ATTR: 
1. Tome o valor da cor do caractere 
10 (INK), como está no teclado do compu- 
tador — neste caso 1. 
2. Tome o valor da cor da tela (PA- 
PER) — neste caso | — e multiplique 
por 8. Resultado, 8. 





3. Adicione 64 se a área em questão 

sena (BRIGHT). Neste caso, resulta- 
o 0, 

4. Adicione 128 se a área está piscan- 
do (FLASH). No caso, resultado 0. 

Some então todos os números. O re- 
sultado será o valor de ATTR. 

A função ATTR no TK90X tem, en- 
tretanto, outros usos além de impedir 
que o seu personagem atravesse paredes 
sólidas. 

Em um labirinto maior, você pode- 
ria usar a mesma idéia para fazer com 
que ele exploda ao entrar em uma zona 
proibida. Para um labirinto que use ca- 
racteres (INK) vermelhos sobre fundo 
(PAPER) vermelho, você necessitaria 
uma linha começando com: 


IF ATTR=18 THEN... 


As linhas 1010, 1020 e 1080 definem 

a posição que o personagem acabou de 
deixar e apagam o ponto que ele ““co- 
imprimindo um espaço. Estas 
nhas úteis em qualquer jogo, mas 
nde elas aparecem — as primei- 
as, antes das INKEYS$, respon- 





sáveis pela ação, e a linha final, logo 
após estas. 

A linha 1090 é temporária e será rees- 
crita depois. Seu propósito é permitir 
que você rode o programa e o teste. Sem 
fechar o laço, o caractere se moveria 
apenas uma vez. 


SUAR 


Para que esse jogo possa ser jogado, 
sem contar com “inimigos” que exigi- 
riam um programa muito complexo, o 
melhor é uma rotina de cronometragem 
e placar. 

Adicione estas linhas: 


10 LET bt=100000 

40 LET s=0 

990 POKE 23672,0: POKE 23673,0 
1025 IF s=110 THEN GOTO 2000 
1090 IF ATTR (x,y)<>63 THEN LE 
T s=s+l: SOUND .005,10 
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2000 LET t=(PEEK 23672+256*PEEK 
23673)/50 
2010 PRINT AT 1,6;t;” SEGUNDOS 


2020 IF t<bt THEN 
2030 PRINT AT 19, 
o: ";bt;” segundos” 


LET bt=t 
"Melhor temp 





Acrescentando uma linha temporá- 
ria, Lembre-se de apagá-la depois: 


1100 Goto 1000 


O placar é muito simples. A linha 40 
coloca a contagem inicial em zero. A li- 
nha 1090 adiciona 1 cada vez que o 
“Come-come” devora mais um ponto, 
ou melhor, sempre que ele cruza um es- 
paço em que INK e PAPER são ambos 
brancos — ATTR novamente 

E a linha 1025, que entra em a 
quando todos foram comidos, faz com 
que o computador verifique quanto tem- 
po o jogador levou para chegar a esse 
ponto 

Já a cronometragem é um pouco 
mais complicada. Até que você com- 
preenda os comandos PEEK e POKE 
que serão explicados num artigo próxi- 
mo, procure assimilar o procedimento 
que se segue. 

Em resumo, a linha 990 zera o reló- 
gio do TK90X ao jogar o valor O num 
endereço de memória apropriado. A li- 
nha 2000 conta o número de linhas for- 
madas pela tela desde que o jogo come- 
çou e então divide por 50 — o número 
de linhas por segundo em um televisor 

Ao mesmo tempo, a linha 10 deter- 
mina o “melhor tempo” inicial em 
100000, muito mais que qualquer um le- 
varia, de forma que ele será batido. A 
linha 2020 compara o novo tempo com 
o “melhor tempo”. 














8 A versão para o TRS-Color mostra o tempo empregado. 


Para dar ao jogador a chance de ou- 
tra tentativa, use estas novas linhas. Pri- 
meiro, pressione <CAPS SHIFT> e 
<BREAK> e, então, <ENTER>: 
2040: PRINT AT 20, 
ualquer tecla para 





Pressione q 
jogar de n 


ovo.”"; 

2050 IF INKEY$<>"” THEN GOTO 2 
050 

2060 IF INKEY$="" THEN GOTO 20 
60 


2070 RESTORE 
2080 Goto 40 


OUTROS LABIRINTOS 


Se você quiser tentar outros labirin- 
tos do mesmo tamanho, pode fazê-lo, 
mudando o padrão de letras “p” das li- 
nhas DATA, da linha 9000 em diante. 
Se fizer isso, assegure-se de ter dados su- 
ficientes para completar o labirinto ou 
terá uma mensagem de erro antes que 
apareça na tela. 


Estas primeiras linhas formam o la- 
birinto propriamente dito; 


30 cLS4 
40 LET P=297 

1000 FOR N=0 TO 15 

1010 READ A$ 

1020 PRINT €(N*32) +6,AS; 

1030 FOR M=0 TO 18 

1040 IF PEEK(1024+(N*32) +6+M) =6 
5 THEN POKE (1024+(N*32) +6+M) 17 
5 

1050 NEXT M 


1060 NEXT N 

2000 DATA AAAAAAAAAAAAAAAAAAA 
2010 DATA A. -. AAA... A 
2020 DATA A.AA.AA.....AA.AA.A 
2030 DATA A.A.....AMA. A.A 
2040 DATA A...A.A A.A...A 
2050 DATA A.AAA.AA.A.AA.AMA.A 
2060 DATA A...A. A...h 
2070 DATA AAA...A.AMA.A...AMA 
2080 DATA AAA...A.AMA.A...AMA 
2090 DATA A...A. do o RNA 
2100 DATA A.AAA.AA.A.AA.AMA.A 
2110 DATA A...A.A. A.A...A 
2120 DATA A.A ABA A.A 
2130 DATA A.AA.AA AA.AA.A 
2140 DATA A AMA A 


2150 DATA AAAAAAAAAAAAAAAAAAA 


A forma do labirinto está contida nas 
linhas de dados (DATA), de 2000 a 
2150. Nesse estágio os limites dele são 
representados por letras pa 

Antês que os dados sejam lidos, a li- 
nha 30 limpa a tela e a coloca na cor ver- 
melha, cujo código é 4. A linha 40, por 
sua vez, coloca o asterisco na posição 
inicial 

As linhas de 1000 a 1060 desenham 
o labirinto na tela. Ao mesmo tempo, 
sempre que o laço FOR...NEXT das li- 
nhas 1000 e 1060 é executado, o progra- 
ma lê a próxima linha de dados 
(DATA). 

A linha 1010 Iê os dados e os chama 
de A$. A linha 1020 coloca-os na tela 

A linha 1040 verifica a porção da me: 
mória da máquina que corresponde a 
cada posição de tela. Se o endereço de 
memória contém o número 65, temos 
um “A” na tela, e ele é mudado para 
um bloco azul (código 175). As linhas 
1030 e 1050 fornecem o /00p com que 
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a linha 1040 verifica todas as posições 
da tela. 

Agora adicione essas linhas e você 
poderá deslocar um homenzinho pelo la- 
birinto. 


1080 PRINT €P,"x"; 

1090 LET LP=P 

1100 IF PEEK(340)=247 AND PEEK( 
1023+P)<>175 THEN LET P=P-1 
1110 IF PEEK(338)=247 AND PEEK( 
1025+P)<>175 THEN LET P=P+1 
1120 IF PEEK(338)=251 AND PEEK( 
992+P)<>175 THEN LET P=P-32 
1130 IF PEEK(342)=253 AND PEEK( 
1056+P)<>175 THEN LET P=P+32 
1150 PRINT GLP," "; 

1170 GoTO 1080 


Esta parte do programa permite que 
você mova o seu caractere pelo labirin- 
to. Ela tem algumas particularidades. O 
homem só pode ser movimentado se o 
ponto para onde se quer levá-lo não con- 
tém um bloco azul. A linha 1100 verifi- 
ca o conteúdo de duas posições de me- 
mória: a que corresponde à tecla “Z” 
ea que corresponde à posição de tela em 
que o homem vai entrar. Se a tecla ““Z” 
(código 223) está sendo pressionada e o 
endereço de tela não contém um bloco 
azul (código 175), então ele pode se mo- 
vimentar. 

As teclas para controle de movimen- 
to são as mesmas já utilizadas: “Z” pa- 
ra a esquerda, * para a direita, “P” 
para cima e “ para baixo, Tente an- 
dar com o asterisco pelo labirinto de for- 
ma que os pontos sejam apagados. 
Acrescente estas linhas e marque o tem- 
po necessário para “comer” os pontos: 











20 LET FA=999999 

50 RESTORE 

60 LET D=0 

1070 TIMER=0 

1140 IF PEEK(1024+P)=110 THEN P 
LAY "TB0B”:LET D=D+1 

1160 IF D=153 THEN GOTO 1180 
1180 PRINT GP,” "; 

1190 TI=TIMER/50 

1200 PRINT 852, "TEMPO=" ; 

1210 PRINT €84,TI;"SEG "; 

1220 IF FADTI THEN FA=TI 

1230 PRINT 6212,"MELHOR TEMPO” ; 
1240 PRINT 6244,FA;"SEG "; 

1250 PRINT €340,"PRESSIONE” ; 
1260 PRINT 6372,"<ENTER>"; 

1270 PRINT €404,"PARA COMECAR" ; 
1280 PRINT 8436, "DE NOVO”; 

1290 LET INS=INKEYS:IF IN$="" T 
HEN GOTO 1290 

1300 IF INS=CHR$(13) THEN GOTO 
ao 

1310 Goro 1290 


Quando você executa este programa 
pode verificar à direita do labirinto o 
tempo gasto para remover os pontos e 
também o melhor tempo. 

Inicialmente, o melhor tempo é co- 
locado em 999999 segundos pela linha 
20. A linha 60 zera o placar, e a linha 
1070 zera o “cronômetro”. 

A linha 1140 examina a posição em 
que o asterisco está, para ver se há um 
ponto. Em caso positivo, o comando 
PLAY é usado para emitir um ““blip” 
enquanto o ponto é apagado. Ela tam- 
bém adiciona um ponto a D, que con- 
tém o número de pontos ''comidos”. 

A linha 1160 verifica se não há mais 
pontos na tela. Se estes terminaram, o 
programa pula para a linha 1180, que 





apaga o asterisco. 

A declaração TI=TIMER/50 na li- 
nha 1190 pára o relógio e divide o que 
está sendo lido por 50, para transformá- 
lo em segundos. 

As linhas 1200 e 1210 mostram o tem- 
po na tela. 

A linha 1220 checa se o melhor tem- 
po (FA) é maior que o obtido na última 
contagem. Se for, ele é igualado a este. 
As linhas 1230 e 1240 mostram o melhor 
tempo, antes que uma mensagem oriente 
o jogador a teclar < ENTER > para re- 
começar 

A linha 1290 aguarda, até que uma 
tecla seja pressionada, e a 1300 verifica 
se foi <ENTER>. Neste caso o jogo 
recomeça. O RESTORE na linha 50 per- 
mite que os dados (DATA) possam ser 
lidos novamente. Se <ENTER> não 
foi teclada, o computador continua es- 
perando outra entrada. 

A tecla <BREAK>, finalmente, ter- 
mina o jogo. 


INSTRUA SEUS PROPRIOS LABIRINTOS 


Use papel quadriculado para dese- 
nhar seus labirintos. Tenha sempre em 
mente o tamanho da tela do computa- 
dor: 32 por 16 caracteres. 

Desenhado o novo labirinto, altere o 
conteúdo das linhas DATA, Se o novo 
labirinto for maior ou menor que o an- 
tigo, você terá que modificar o tamanho 
do laço FOR...NEXT (linhas 1000 e 
1030). Conte quantas linhas o novo la- 
birinto ocupa e subtraia 1. Coloque o re- 
sultado no lugar do último número da 








80 Um labirinto bem fácil para o MSX. 
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linha 1000. Da mesma forma, faça a 
contagem do número de posições da pri- 
meira linha e subtraia 1. Coloque, em 
seguida, esse número no lugar de 18 no 
fim da linha 1030. 

Finalmente, conte quantos pontos 
existem no seu novo labirinto. Se encon- 
trar um número diferente de 153, altere 
a linha 1160 também, substituindo 153 
pelo novo número. 


Estas primeiras linhas constituem o 
labirinto propriamente dito: 


10 SCREEN 1:COLOR 1,3,3 

40 LET P=247 

70 VPOKE BASE(6)+5,26 

BO VPOKE BASE(6)+1,102 

90 LOCATE 0,3 

100 FOR N=0 TO 15 

110 READ AS 

120 PRINT TAB(4);AS 

130 FOR M=0 TO 18 

140 IF VPEEK(BASE (5) +102+N*32+M 
)=65 THEN VPOKE BASE (5) +102+N*3 
2+m,8 

150 NEXT M 

160 NEXT N 

1000 DATA 
1010 DATA 
1020 DATA 
1030 DATA 
1040 DATA 
1050 DATA 
1060 DATA 
1070 DATA 
1080 DATA 
1090 DATA 
1100 DATA 
1110 DATA 
1120 DATA 
1130 DATA 








1140 DATA A.......AMA....... A 
1150 DATA AAAAAAAAAAAAAAAAAAA 


As linhas de dados (DATA), de 1000 
a 1150 encerram a forma do labirinto. 
Os limites deste são representados por 
letras “A”, 

Antes que os dados sejam lidos, a li- 
nha 10 limpa a tela, introduzindo-a no 
modo gráfico de 32 colunas (comando 
SCREEN), e fixa a cor de fundo e de 
frente (comando COLOR). A linha 40 
define a posição inicial do ““Come- 
come” (que será representado por um 
asterisco). 

As linhas de 100 a 160 desenham o 
labirinto na tela. Sempre que o laço 
FOR... NEXT das linhas 100 e 160 é exe- 
cutado, o programa lê a próxima linha 
de dados (DATA). A linha 110 lê os da- 
dos, denominando-os de A$. A linha 
120 coloca-os na tela. 

Todos esses pontos e letras “A” com- 
binados não formam, contudo, um la- 
birinto de verdade. Assim, a linha 140 
verifica a porção da memória da máqui- 
na que corresponde a cada posição de 
tela. Isso é feito com a função VPOKE 
BASE (5), que torna acessível a memó- 
ria dedicada de vídeo do MSX, na cha- 
mada página 5. Se o endereço de memó- 
ria contém o número 65, isso quer dizer 
que temos um “A” na tela e ele é mu- 
dado para um bloco azul (código 8). As 
linhas 130 e 150 fornecem o laço que 
permite que a linha 140 verifique todas 
as posições da tela. 

Agora adicione estas linhas e deslo- 
que um homenzinho pelo labirinto. 








60 VPOKE BASE(6)+31,170 

180 VPOKE BASE(5)+P,ASC("*") 
190 LET LP=P 

195 K$=INKEYS:IF K$-="" THEN 195 
200 IF K$=CHRS(29) AND VPEEK(BA 
SE(5)+P-1)<>8 THEN LET P=P-1 
210 IF K$-CHR$(28) AND VPEEK(BA 
SE(5)+P+1)<>8 THEN LET P=-P+l 
220 IF K$-CHR$(30) AND VPEEK(BA 
SE(5)+P-32)<>8 THEN LET P=P-32 
230 IF K$=CHR$(31) AND VPEEK(BA 
SE(5)+P+32)<>8 THEN LET P=P+32 
250 VPOKE BASE (5) +LP,255 

270 Goto 180 


O movimento do caractere pelo labi- 
rinto só é possível se o ponto para onde 
se quer levá-lo não contém um bloco 
azul. A linha 200 verifica se uma tecla 
foi apertada e qual é o conteúdo de duas 
posições de memória: a que correspon- 
de à tecla de movimentação do cursor 
“flecha para baixo” e a que correspon- 
de à posição de tela em que o homem 
vai entrar. Se a tecla (código 29) está 
sendo pressionada, e o endereço de tela 
não contém um bloco azul (código 8), 
ele pode se movimentar. 

As teclas para controle de movimen- 
to são as usadas para a movimentação 
do cursor (marcadas com as flechas nas 
quatro direções). Experimente deslocar 
o asterisco e ''comer"* (apagar) os pon- 
tinhos. 

Adicione estas linhas e marque o tem- 
po para “comer” os pontos: 

os 
20 FA-9999991 
30 RESTORE 
S0 LET D=0 
170 TIME=0 
240 IF VPEEK(BASE(5)+P)=46 THEN 
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sd. 


SOUND 7,7:SOUND 6,0:SOUND 8,15 
: SOUND 8,0:LET D=D+1 

260 IF D=153 THEN GOTO 280 

280 VPOKE BASE(5)+P,255 

290 LET TI=INT(TIME/50) 

300 LOCATE 7,1:PRINT "TEMPO=";T 
I;"SEG "; 

310 IF FADTI THEN FA-TI 

320 LOCATE 3,20:PRINT "MELHOR T 
EMPO=";FA;"SEG "; 

330 LOCATE 7,21:PRINT "Aperte R 
ETURN "; 

390 LET KS=INKEYS:IF KS="" THEN 
390 

400 IF K$=CHR$(13) THEN GOTO 30 
410 GOTO 390 


O tempo gasto para remover os pon- 
tos, assim como o melhor tempo, é mos- 
trado à direita do labirinto, quando vo- 
cê executa este programa. De início, o 
melhor tempo é colocado em 999999 se- 
gundos pela linha 20. A linha 50 zera o 
placar, e a linha 170 zera o “cro- 
nômetro””. 

A linha 240 examina a posição em 
que o asterisco está, para ver se há um 
ponto. Em caso positivo, o comando 
SOUND é usado para emitir um ““blip"” 
enquanto o ponto é apagado. Ela tam- 
bém acrescenta um ponto a D, que con- 
tém o número de pontos “comidos”. A 
linha 260 verifica se não há mais pon- 
tos na tela. Se estes terminaram, o pro- 
grama pula para a linha 280, que apaga 
o asterisco. Acionamos aqui o coman- 
do VPOKE, como acima. 

A declaração TI=INT(TIME/50), 
agora na linha 290, pára o relógio e di- 
vide o que está sendo lido por 50 para 
transformá-lo em segundos. A linha 300 
mostra o tempo na tela. 

A linha 310, por sua vez, checa se o 








melhor tempo (FA) é maior que o tem- 
po obtido na última contagem. Se foi, 
ele é igualado a este último. A linha 320 
mostra o melhor tempo, antes que uma 
mensagem diga ao jogador para recome- 
çar, teclando <ENTER>. 

A linha 390 aguarda até que uma te- 
cla tenha sido pressionada, e a linha 400 
verifica se foi < ENTER>. Neste caso, 
o jogo recomeça. O RESTORE na linha 
30 permite que os dados (DATA) pos- 
sam ser lidos novamente. Se alguma te- 
cla diferente de < ENTER > foi pressio- 
nada, o computador continua esperan- 
do outra entrada. 

O comando <CTRL><STOP> 
encerra o jogo. 


EE O 


Estas primeiras linhas formam o la- 
birinto propriamente dito: 


30 HOME : GR 


40 LETM-= 18: LETN=4 


1000 FOR I = 0 TOol5 

1010 READ AS 

1020 FORJ = 1 TO 19 

1025 IF MIDS (A$,J,1) = “A” T 


HEN COLOR= 3: PLOT2* J,2*1 
PLOT 2 *J+1,2*I: PLOT2 
“*),2%1+): PLOT2*)+1,2 





e 

1030 IF MIDS (A$,J,1) = "." T 
HEN COLOR= 12: PLOT 2 * J,2 * 
I 

1050 NEXT J 

1060 NEXT I 

2000 DATA "AAAAAAAAAAAAAAAAAA 
ar 

2010 DATA "A «AAA... 

ar 








ar 
2030 DATA "A.A..... AMA... 
ar 

2040 DATA "A...A.A..... AA... 
ar 

2050 DATA "A.AAA.AA.A.AA.ABA. 
ar 

GOG0 CENTRO CASSIA. san 0 00 Ar 
ar 

2070 DATA 

ar 

2080 DATA 

ar 

2090 DATA 

A” 

2100 DATA 

Ar 

2110 DATA "A...A.A.....A.A... 
A” 

2120 DATA "A.A..... ABA... aÃ. 
ar 

2130 DATA "A.AA.MA..... AA.MA. 
a” 

2140 DATA "A....... AM....... 
A” 

2150 DATA "AAAAAAAAAAAAAAAAAA 
a” 


Os limites do labirinto são represen- 
tados, neste estágio, tal como em exem- 
plos anteriores, por letras “A”. Da mi 
ma forma, seus contornos estão conti- 
dos nas linhas de dados (DATA), de 
2000 a 2150. Portanto, o programa só 


















funcionará se forem adicionadas essas 
linhas. É relativamente fácil alterar a 
forma para um novo labirinto: basta 
modificar as linhas de 2000 a 2150. 

Antes que os dados sejam lidos, a li- 
nha 30 limpa a tela e a coloca num mo- 
do gráfico de baixa resolução. A linha 
40 coloca o asterisco na posição incial. 

As linhas de 1000 a 1060 desenham 
o labirinto na tela. A cada vez que o la- 
ço FOR...NEXT das linhas 1000 e 1060 
é executado, o programa lê a próxima 
linha de dados (DATA). A linha 1010 
lê os dados, e os chama A$. A linha 
1025 coloca-os na tela, na forma de qua- 
dradinhos coloridos (cor =3 onde hou- 
ver a letra A, e cor=12 em outros 
pontos). 

Agora adicione estas linhas e você po- 
derá deslocar, mais uma vez, um ho- 
menzinho pelo labirinto. 





1080 COLOR= 1: PLOT 2 *M,2 x 
N: PLOT 2 *M+ 1,2 * N: PLOT 2 
*M,2%N+1: PLOT2*M+I, 
2".u+1 

1090 LET PM = M:; LET PN = N 
1100 IF PEEK ( - 16384) = 218 


AND SCRN( 2 * (M- 1),2 *N) 
< > 3 THEN LETMO-M-1 

1110 IF PEEK ( - 16384) = 216 
AND SCRN( 2 * (M+ 1),2 * N) 


< >3 THEN LETM=-M+1 

1120 IF PEEK ( - 16384) - 208 
AND SCRN( 2 *M,2* (N-1)) 
< > 3 THEN LETN=N-1 

1130 IF PEEK ( - 16384) - 204 
AND SCRN( 2 *M,2* (N+1)) 
< > 3 THEN LETN=N+1 

1150 COLOR= 0: PLOT 2 * PM,2 * 
PN: PLOT 2 * PM + 1,2 * PN: PL 
OT 2 * PM,2 * PN+ 1: PLOT 2 * 


PM + 
1170 


1,2 * PN+1 
Goto 1080 


Esta parte do programa dá a você a 
possibilidade de movimentar o caracte- 
re pelo labirinto. Para que haja movi- 
mento, porém, o ponto para onde se 
quer levar o caractere (nosso homenzi- 









nho) não deve conter nenhum bloco de 
cor 12. 

A linha 1100, por exemplo, verifica 
o conteúdo de duas posições de memó- 
ria: a que corresponde à tecla “Z” e a 
que corresponde à posição de tela em 
que o homem vai entrar. Se a tecla “'Z”* 
(código 218) está sendo pressionada, e 
o endereço de tela não contém um blo- 
co gráfico, então ele pode se movi- 
mentar. 

As teclas para controle de movimen- 
to são as mesmas já utilizadas anterior- 
mente: ““Z”* para a esquerda, “X” pa- 
ra a direita, ““P” para cima e “L” para 
baixo. 

Marque o tempo necessário para 
“comer” todos os pontos, acrescentan- 
do estas linhas: 


20 LET FA = 99999 
50 RESTORE 


60 LETD= O 

1070 LETTI = 0 

1140 IF SCRN( 2 *M,2 *N) - 
12 THEN LET W - PEEK ( - 1633 
6): LETD-D+1 

1150 COLOR= 0: PLOT 2 * PM,2 * 
PN: PLOT 2 * PM + 1,2 * PN: PL 
OT 2 * PM,2 * PN + 1: PLOT 2 * 


PM+1,2* PN+1 
1160 IF D = 153 THEN GOTO 118 
o 


1170 coTo 1080 

1180 COLOR= 0: PLOT 2 *M,2 * 
N: PLOT 2 *M+ 1,2 * N: PLOT 2 
“*M2%*N+1: PLOT2*M+IA, 
Qa".m+1 


1200 HTAB 9: VTAB 21: PRINT "S 
eu tempo foi de ";TI / 5;” seg” 
1210 IF FA > TI THEN LET FA = 
TI 

1220 HTAB 11: VTAB 22: PRINT ” 
Melhor tempo: ";FA / 5;" seg” 
1230 HTAB 6: VTAB 23: PRINT "P 


ressione RETURN para continuar” 
1240 GET T$: IF ASC (T$) < > 
13 THEN GOTO 1210 

1250 corto 40 


De início, o melhor tempo é coloca- 
do em 999999 segundos pela linha 20, 
A linha 60 zera o placar ea linha 1070 
zera o “cronômetro”. A linha 1095 au- 
menta uma posição no cronômetro. A 
linha 1140 examina a posição em que o 
asterisco está. Ela também adiciona um 
ponto a D, que contém o número de 
pontos que foram “'comidos” 

A linha 1160 verifica se não há mais 
pontos na tela (em número de 153). Se 
estes terminaram, o programa pula pa- 
ra a linha 1180, que apaga o asterisco. 


(que é convertido para 
dividindo-se FA por 50). 


A linha 1210 checa se o melhor tem- 
po (FA) é maior que o tempo obtido na 
última contagem. Em caso positivo, ele 
é igualado a este último. A linha 1220 
mostra o melhor tempo, antes que uma 
mensagem diga ao jogador para teclar 
<ENTER> para recomeçar (na linha 


1230). 


A linha 1290 aguarda até que uma te- 
cla tenha sido pressionada, e a linha 
1300 verifica se foi <ENTER>., Neste 
caso, o jogo recomeça. O RESTORE na 
linha SO permite que os dados (DATA) 
possam ser lidos novamente. Caso tenha 
sido acionada uma tecla que não < EN- 
TER>, o computador continua à espe- 
ra de outra entrada. A tecla <CTRL- 


C> termina o jogo. 
Vs 


CONVERSÃO DO COLOR 
PARA O TRS-80 
Os micros TRS-80 e TRS-Color têm 





interpretadores BASIC similares, no | 


que diz respeito ao núcleo básico de co- 
mandos, funções e declarações. Por is- 
so, é fácil converter programas de um 
modelo para outro. As maiores diferen- 
ças residem nos comandos de alta re- 
solução gráfica, cor e som. Os 
comandos CLS (limpa telas), 
POINT (pontos gráficos de resolução 
média) e PRINTO são semelhantes nas 
duas linhas. As diferenças de sintaxe 
do TRS-B0 em relação ao Color são: o 
CLS, o SET e o POINT não têm pará- 
metro indicativo de cor de fundo ltela 
de texto), e as locações de tela usadas 
com o PRINTO produzem resultados 
diferentes. 

A tela do Color tem dezesseis linhas 
por 32 colunas, e a do TRS-80, dezes- 
seis linhas por 64 colunas. Como as po- 
sições de tela usadas pelo PRINTO são 
numeradas sequencialmente, um 
PRINTO 162, por exemplo, escreverá 
na segunda coluna da sexta linha do 
TRS-Color, e na 32º posição da tercei- 
ra linha, no TRS-B0. 

Há uma forma simples de converter 
comandos PRINTG do Color para o 
TRS-80: se N for a locução de tela do 
Color, sua correspondente no TRS-BO 
será 
INT(N/32)464+N-32 
para a segunda linha em diante (a que 
começa na posição 32 do Color). Se 
N< 32, não há necessidade da fórmu- 
la acima: a locução de tela do TRS-BO 
será o próprio N. 



















A linha 1200 mostra o tempo na tela 
segundos 


SET e | 
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E APRENDRA CONECTAR 
O GRAVADOR 

COMANDO DE GRAVAÇÃO 
VERIFIQUE SUAS FITAS 
COMANDO DE LEITURA 











Qualquer criança é capaz de fazer 
funcionar um gravador. Quando 

se trata de conectá-lo ao computador, 
porém, as coisas podem se 
complicar. Saiba como sair dessa, 
começando por ajustar os controles. 


Alguns problemas podem surgir 
quando se quer gravar ou carregar pro- 
gramas com um gravador cassete. As 
causas desses problemas nem sempre são 
identificáveis. Mas é possível estabele- 
cer algumas rotinas que diminuam as 
margens de erro. 


SAIBA CONECTAR CORRETAMENTE 


Alguns micros empregam um grava- 
dor especial do tipo digital, que tem uma 
ligação única e direta com a máquina; 
essa característica elimina qualquer pro- 
blema na instalação. Mas a maioria dos 
computadores pode ser ligada a um gra- 
vador cassete, frequentemente utilizan- 
do mais que um tipo de cabo. Normal- 
mente, a ligação é feita por meio de um 
plugue do tipo DIN ligado a três plugues 
de pino (Jaques), mas pode-se encontrar 
também um conector DID em cada uma 
das pontas, com ou sem jaques em pa- 
ralelo. Se você comprar um cabo ou usar 
um próprio para áudio, assegure-se de 
que ele é adequado: caso não seja, apa- 
recerão problemas como interferências 
em cabos não blindados. 

Se você usa o gravador com fregiên- 
cia, é aconselhável deixar o cabo perma- 
nentemente ligado dos dois lados. 


PET 


O passo inicial e mais importante na 
adequação com o computador é ajustar 
os controles de volume, tonalidade e ou- 
tras características do gravador. Se vo- 
cê tem um gravador especial para com- 
putadores, siga as instruções que o 
acompanham. 

Se seu gravador é do tipo comum, co- 
mece desligando todos os controles es- 





peciais, como filtros e sistemas de redu- 
ção de ruído (Dolby), etc. Ajuste o con- 
trole de tonalidade para o máximo de 
agudos (a tonalidade é controlada ou 
por um dial numerado, ou por um in- 
terruptor de duas posições grave/agu- 
do). Deixe a tonalidade assim sempre 
que você usá-lo com o computador. Es- 
colha um volume médio (entre SO e 60% 
do máximo) e tente carregar (com os co- 
mandos LOAD, CLOAD, etc., depen- 
dendo do computador) um programa já 
gravado, como por exemplo o da fita de 
demonstração que acompanha sua má- 
quina. Se o programa não carrega, au- 
mente o volume pouco a pouco e repita 
a operação, até conseguir um bom re- 
sultado. 

Se você alcançar o volume máximo 
ainda sem sucesso, volte o seletor até um 
ponto levemente abaixo daquele em que 
você começou e repita toda a operação, 
diminuindo o volume aos poucos. 

Caso o programa não carregue em 
nenhum nível de volume, verifique as 
conexões novamente. Tente outro cabo 
ou outra fita, ou peça emprestado um 








gravador adequado ao seu tipo de com- 
putador. Se, depois disso, ele continuar 
sem funcionar, procure o seu re- 
vendedor. 

Quando tiver encontrado um volume 
que permita o carregamento, observe a 
posição do controle, estabeleça os limi- 
tes superior e inferior com os quais vo- 
cê consegue carregar o programa e mar- 
que o ponto médio para uso posterior. 
Você pode usar o mesmo volume para 
gravação, mesmo porque muitos grava- 
dores têm um controle automático des- 
se volume. 

Para te: 








se o volume é adequado 
para gravaçãe impe a memória do 
computador (digite NEW e pressione 
<ENTER> a seguir) e digite este pe- 


queno programa. 
= 


10 REM TESTE DE GRAVACAO 
20 REM 

30 REM 

REM 

50 REM FIM DO TESTE 



























EXTERMINADOR DE PROBLEMAS 

— Utilize um gravador cassete mo- 
noaural (isto é, que não seja estéreo), 
de marca confiável e, se possível, 
reserve-o para uso exclusivo com o 
computador. Ligue-o sempre à rede elé- 
trica, ao invés de usar pilhas, para as- 
segurar uma rotação uniforme do 
motor. 

— Evite usar aparelhos estereofôni- 
cos, a não ser que todos os seus recur- 
sos especiais possam ser desligados. 


— Use fitas magnéticas para áudio 
de boa qualidade ou especiais para da- 
dos. Uma fita de má qualidade não re- 
sistirá por muito tempo a várias regra- 
vações. 


— Procure instruções específicas na 
tela; o gravador deve ficar com a tecla 
PLAY acionada até que a operação de 
carga esteja completada. 


— Altere as características de tona- 
lidade, volume e outros controles se a 
carga do programa não for bem-su- 
cedida. 


— Afaste o gravador da TV ou mo- 
nitor se um programa que já carregou 
uma vez não funcionar. Tente também 
uma outra gravação do programa para 
ver se funciona. Em caso afirmativo, a 
primeira fita deve ter sido danificada. 


— Se for necessário ajustar o volu- 
me com frequência, de programa para 
programa, marque o volume adequado 
na etiqueta da fita. 


— Guarde suas fitas em lugar seco, 
livre de poeira e longe de fontes eletro- 





magnéticas e do calor. 


Siga então a rotina para gravação no 
computador, acionando SAVE ou CSA- 
VE. Ao carregá-lo (comando LOAD ou 
CLOAD) e listá-lo (LIST) você obterá 
o programa de volta. 


O COMANDO DE GRAVAÇÃO 


O comando de gravação de fita não 
é um comando padrão do BASIC, va- 
riando muito entre os computadores. A 
maneira correta de manipulá-lo é geral- 
mente explicada no manual que acom- 
panha o micro. Alguns passos iniciais, 
porém, são importantes. 

Antes de gravar qualquer programa, 
coloque uma fita de boa qualidade no 
gravador, tendo o cuidado de rodá-la 
um pouco para que a guia de plástico 
transparente, existente no começo (lea- 
der), não fique em contato com o ca- 
beçote. 
A seguir, escolha um nome adequa- 
do para seu programa. Os dados são ar- 
mazenados na forma de “arquivos” de 
um tipo ou outro, independentemente 
do método real de armazenamento. 
Mas, para gravações feitas em fita, no- 
mes especiais são empregados com o co- 
mando SAVE, de modo a identificar na 
fita qual o programa gravado (isso é útil 
para achar automaticamente o progra- 
ma, depois, através do comando 
LOAD). 

O nome do arquivo ou programa po- 






























res ou símbolos contidos no tamanho, 
ui 







máximo permitido para uma linha no 
seu computador. Na maioria das máqui- 
nas, esse tamanho é de dez caracteres no 
máximo. Outros computadores, como o 
TRS-80, permitem apenas uma letra ou 
símbolo de identificação do programa: 
quando o nome é maior, os comandos 
CSAVE e CLOAD reduzem-no à pri- 
meira letra. 


SAVE "NOMEPROGOL” 
SAVE "NomeProg01” 
CSAVE "R” 


Dos computadores considerados 
aqui, apenas os compatíveis com Apple 
HW não exigem aspas. 

Os exemplos de comandos SAVE aci- 
ma são válidos, mas um deles usa letras 
maiúsculas e minúsculas. Se você 
misturá-las num nome de programa, de- 
ve fazer o mesmo quando quiser carre- 
gar O programa. 


SAVE "NOME. PROG” 
SAVE "NOME/PROG” 
SAVE "NOME (PROG) ” 








de ser qualquer combinação de caracte- $ 





























Se o seu computador está ligado ao 
controle remoto do gravador, ligue os 
controles para gravação, digite o nome 
do programa desejado após o comando 
SAVE e tecle <ENTER> ou <RE- 
TURN>. O computador assumirá o 
controle do gravador até que a opera- 
ção de gravação esteja completada. 
Se o controle é manual, digite o co- 
mando SAVE e o nome do programa, 
coloque o gravador em funcionamento 
e então tecle <ENTER> ou <RE- 
TURN>. Espere até que o sinal de 













TR LIIA 


prontidão reapareça na tela e desligue 
o gravador. 

O tempo exigido para o carregamen- 
to de um programa depende de dois fa- 
tores: seu tamanho, em termos de uso 
de memória, e a velocidade do fluxo de 
dados entre o gravador e o computador. 
Esta é fixa em alguns equipamentos e 
variável em outros. 


As gravações mais confiáveis são fei- 
tas na velocidade mais baixa. Altas ve- 
locidades usam menos fita e, obviamen- 
te, operam mais rápido. Nesse caso é im- 
portante usar fitas de alta qualidade. 


E SN 


Uma maneira de verificar se um pro- 
grama foi gravado adequadamente é 
carregá-lo e executá-lo. Quando a gra- 
vação é imperfeita o programa que está 
na memória (e que você quer gravar) é 
substituído por aquele que está na fita, 
ea gravação se perde. Se esta tiver sido 
bem-sucedida, não haverá problemas. 

Muitos computadores contornam es- 
sa dificuldade fornecendo um comando 
verificador (por exemplo, VERIFY). O 
seu uso exige o rebobinamento da fita 
até o início do programa. Então 


executa-se o comando usando o mesmo 
nome que se deu ao programa ao gravá- 
lo. Por exemplo: 





VERIFY "NOMEPROGOI” 


O computador lê o programa da fita 
eo compara com aquele que está na me- 
mória. Se houver falha, aparecerá na te- 
la uma mensagem de erro. 

Os computadores da linha TRS-80 
usam o comando CLOAD? para a ta- 
refa de verificação. Outros micros, po- 
rém (como os compatíveis com o Sin- 
clair ZX-81), não têm qualquer função 
de verificação. Recorra, nesse caso, a 
programas de revistas especializadas ou 
vendidos à parte. 


O COMANDO DE LEITURA 


Se você começar com programas pré- 
gravados, seus primeiros problemas se- 
rão com o comando de leitura (LOAD). 
Podem existir várias formas do coman- 
do LOAD, mesmo para uma única má- 
quina. Eis uma delas: 


LOAD "NOMEPROGO1” 


Outros computadores utilizam a for- 
ma CLOAD (linha TRS-80), LOADA 
ou LOADT (TK-2000), etc. 

O comando LOAD deve reproduzir 
o nome utilizado para gravação (SAVE) 
e verificação (VERIFY). Para que o 
computador leia os sinais da fita mag- 
nética, basta digitar LOAD e pressionar 
a tecla PLAY do gravador. Ele procu- 
rará pelo nome do programa e mostra- 
rá todos que encontrar pelo caminho, 
até encontrar aquelé que confere com o 















Eis aqui dois tipos de 

cabo que você pode utilizar 

para conectar o seu computador 

a um gravador. Verifique em seu 
manual a disposição correta 

dos pinos (canto inferior esquerdo). 





nome indicado juntamente com o 
LOAD. Quando esse nome for encon- 
trado, os dados que o seguem serão au- 
tomaticamente carregados na memória 
do computador. Em muitos tipos de 
computador, o processo de leitura po- 
de ser acompanhado na tela de vídeo por 
meio de indicadores. Na linha TRS-80, 
por exemplo, aparece um asterisco pis- 
cando no canto superior direito da tela. 
Em outras, o número de bytes ou de blo- 
cos de bytes lidos é mostrado conti- 
nuamente. 

Se o gravador está ligado ao contro- 
le remoto, a fita estaca ao final do pro- 
cesso de carregamento, mas você ainda 
precisa apertar a tecla STOP no grava- 
dor. Se o controle é manual, simples- 
mente aperte STOP quando o cursor 
reaparecer na tela. Evite que a tecla 
PLAY fique acionada desnecessaria- 
mente, porque isso pode provocar o des- 
gaste prematuro ou deformação da po- 
lia tratora. 

Quando você usar o comando LOAD 
ou equivalente, o programa que for car- 
regado tomará o lugar de qualquer ou- 
tro que esteja na RAM (Memória de 
Acesso Randômico) do computador. 
Por isso, assegure-se de ter gravado o 
programa resistente na memória antes 
de carregar o próximo. 

Rebobine a fita até o início do pro- 
grama-teste que foi apresentado lá em 
cima, e tente carregá-lo (LOAD) usan- 
do o nome que você escolheu. Em caso 
de dificuldade, consulte o guia de reso- 
lução de problemas, neste artigo. 

Outras formas do comando LOAD 
são necessárias para tornar acessíveis da- 
dos em código de máquina (por exem- 
plo, BLOAD), para realocar programas 
e para juntar um programa a outro 
(MERGE). Seu primeiro contato com 
elas pode ter sido em instruções de jo- 
gos comprados ao acaso. 





APRENDA ARITIMÉTICA | 
HEX ADECIMAL | | 


Os circuitos internos dos computado- 
res utilizam, como vimos, apenas núme- 
ros binários para realizar operações arit- 
méticas. Ora, esse sistema de numera- 
ção, composto dos dígitos O e 1, cria 
uma série de dificuldades de compreen- 
são e manipulação para os operadores 

Em primeiro lugar, os números biná- 
rios de oito e dezesseis bits (os mais usa- 
dos em microcomputadores) tornam-se 
confusos e difíceis de reconhecer, com 
tantos Os e Is. Digitá-los. no computa- 
dor é uma empresa difícil, sujeita fre- 
quentemente a erros e incorreções 

A maneira de contornar esses proble- 
mas consiste em fazer com que o ope- 
rador ou programador em nível de má- 
quina passe a utilizar um sistema numé- 
rico com outra base, mas que ainda se- 
ja próximo, em concepção, ao sistema 
binário utilizado pelo computador. 

O sistema universalmente adotado 
para isso é o hexadecimal (ou hexa), no 
qual os números utilizam a base 16. E 
por que o hexa funciona tão bem com 
computadores? 

Antes de mais nada, ele está suficien- 
temente próximo do decimal para ser to- 
lerado por nós, simples mortais. Mas, 
além disso, 16 é uma potência de 2 (co- 
mo 8 também o é, em outro sistema 
muito usado com computadores, o 0c- 
tal). Isso significa que a conversão en 
tre os sistemas — binários e hexa —, nos 
dois sentidos, é bem mais simples do que 
entre o primeiro e o sistema decimal. 

A única dificuldade é que um siste- 
ma com base maior do que 10 precisa 
criar novos algarismos, além dos que 
existem entre O e 9. No sistema hexade- 
cimal utilizam-se letras adicionais (sem- 
pre em maiúsculas). O 10 decimal é re- 
presentado por A, o 11 por B, o 12 por 
C,o13porD,ol4porEeo 15 por F 

Tudo se passa como se tivéssemos oi- 
to dedos em cada mão. Essa imagem po- 
de parecer estranha ou mesmo mons- 
truosa, pois dificilmente suportamos al- 
terações em nossa aparência física. Na 
prática, porém, é isso que acontece 


Co UE 


A conversão de números binários de 
oito bits (os mais utilizados em compu- 





























Se todos tivéssemos dezesseis dedos, 
o sistema numérico mais comum seria 
certamente o hexadecimal. Embora isso 
não aconteça, esse sistema é 
fundamental para o código de máquina. 











oo POR QUE O SISTEMA HEXADECIMAL 
HEXADECIMAL É UTILIZADO Ml | CONVERSÕES FÁCEIS DE 

E CONTANDO DE 16 EM 16 BINÁRIO PARA HEXA 
E ARELAÇÃOENTREOS CONVERSÃO DE DECIMAL 
SISTEMAS BINÁRIO E PARA HEXA 





































































tadores pessoais) para o sistema hexa 
decimal é bastante fácil. Primeiro, vo- 
cê divide o número binário em duas par- 
tes de quatro bits cada. Em seguida, ca- 
da uma dessas partes é transformada em 
um dígito hexadecimal. O número hexa 
final é composto por esses dois dígitos 
Da mesma forma, converte-se um nú- 
mero binário de dezesseis bits hexa 
dividindo-o em quatro segmentos de 
quatro bits cada 

Já a conversão de decimal para hexa 
é mais complicada, embora não seja tão 
difícil que você não possa realizá-la. Pa- 
ra se fazer isso, você precisa dividir o 
número decimal por 16, sucessivamen- 
te. Os restos dessa divisão formarão os 
dígitos do número em hexa 

Quando se divide o decimal 1226 por 
16, o resto será 10. O 10 decimal é A em 
hexa. O resultado da divisão (76) é di- 
vidido, por sua vez, por 16, e dá 4, com 
resto de 12 (C em hexa). Finalmente, 4 
dividido por 16 dá zero, com 4 de res- 
to. Conclusão: 1226 em decimal é 4CA 
em hexa (note a sequência inversa à di- 
visão para os dígitos hexa). Para apren- 
der melhor como funcionam todas es- 
sas conversões, digite o programa 
abaixo, 

















20 CLS 0 
30 PRINT 611,"BIN,DEC, HEX”; 
40 PRINT 668, "BINARIO”; 
50 PRINT €196,"DECIMAL” ; 

60 PRINT 8323,"HEXADECIMAL” ; 

70 PRINT 6355,"+ + + ey 
80 PRINT 6371,"+ + 4 Mi; 
90 FOR J=1 TO 15:POKE 1040+32%*J 
+ 175: NEXT 

100 PRINT €450,"NUMERO HEX= 








110 PRINT €6227,"+ + + + 
+ + +"; 

120 GoTO 170 

130 INS=INKEYS:IF IN$="" THEN 1 
30 

140 IF IN$=" " THEN NO=NO+1:NO= 
NO AND 255:GOTO 170 

150 IF IN$="B” THEN NO=NO-1:NO= 
NO AND 255:GOTO 170 

160 GOSUB 370 

170 GOSUB 190: GOSUB 270 

180 "GOTO 130 

190 FOR X=7 TO O STEP-1 

200 IF(NO AND 2ºX)THEN N=1 ELSE 





N=0 

210 PRINT €125-X*4,N; 

220 IF N=l THEN N=INT(27X) :N$=S 
TRS (N) :;NS=MIDS (NS, 2,LEN(NS)-1)E 
LSE N$=RIGHTS(” O", LEN(STRS(2” 


x))-1) 

230 PRINT 8255-X*4-LEN(NS) NS; 
240 NEXT 

250 PRINT 6279,” = ";MIDS(STRS( 
N0)+" ",2,3); 

260 RETURN 


270 FOR X=7 TO 4 STEP -1 
280 PRINT €374-X*3, STRS((NO AND 
2"x)/16); 

290 NEXT 

300 PRINT 6367, HEXS (NO/16) ; 

310 FOR X=3 TO O STEP -1 

320 PRINT 6378-X*3, STRS (NO AND 
27X); 

330 NEXT 

340 PRINT €383,HEXS(NO AND 15); 
350 POKE 1488, PEEK(1391):POKE 1 
489, PEEK (1407) 

360 RETURN 

370 NUS="":PRINT 8439,"7"; 

380 INS=INKEYS:IF(INS<"0” OR IN 
$>"9”) AND INS<>CHR$(13) THEN G 
oTOo 380 

390 IF INS$=CHR$(13) THEN NO=VAL 
(NUS) :IF NO>255 THEN 370 ELSE P 
RINT 8439, STRINGS (5,CHRS (128)); 
: RETURN 

400 IF INS<>CHR$(13) AND LEN (N 
U$)>2 THEN 380 

410 NUS=NUS+INS:PRINT €441,MIDS 
(NUS+” ",1,3);:GoTO 380 








20 CLS 

25 PLOT 140,0: DRAW 0,160 
30 PRINT INVERSE L;AT 0,8;" 
BIN,DEC,HEX ” 

40 PRINT INVERSE 1;AT 4,2;" 


BINARIO 

50 PRINT INVERSE L;AT 9,2;" 
DECIMAL " 

60 PRINT AT 10,5;"+ + + 
os ++ 


70 PRINT INVERSE L;AT 17,2;" 
HEXADECIMAL:” 

80 PRINT AT 18,4;"+ + + =" 
90 PRINT AT 18,20;"+ + + = 
100 LET no=0 

110 GOTO 150 

120 LET aS-INKEYS : IF a$="" 
THEN GOTO 120 

130 IF a$=" " THEN LET no=no+ 
1: IF no=-256 THEN LET no=0 
135 IF a$="b” THEN LET no=no- 






















1: IF no=-l THEN LET no-255 
140 IF a$="b” OR a$=" " THEN 
Goto 150 


145 INPUT "?";no 

150 GOSUB 170: GOSUB 250 
160 Goto 120 

170 LET nu=no: LET c=128 
175 FOR x=0 TO 7 

180 LET n=0: IF nu>=c THEN 
LET n-l LET nu=nu-c 

190 LET c=c/2 

200 PRINT AT 5,2+4*x;n 


210 IF n=1 THEN 
+4*x;c* 2 

220 IF n=0 THEN 
+4*x;"0 " 
230 NEXT x 
235 PRINT AT 
AL= ";n 0;” 
240 RETURN 


PRINT AT 10,2 
PRINT AT 10,2 


13,6;"TOTAL DECIM 


250 LET hi=INT (no/16): LET hh 
-hi 
260 LET lo=(no-hi*16): LET 11= 


lo: IF 10>9 THEN LET lo=lo+7 
IF hi>9 THEN LET hi=-hi+7 
LET hi-hi+48: LET lo=10+48 
PRINT AT 18,14;CHRS hi;AT 


18,30; CHRS lo 

290 LET c=8 

300 FOR x=0 TO 3 

310 LET n=0: IF hh>=c THEN 


LET nec LET hh=hh-c 


TRS-B0 


Nos micros TRS-Color, 
(com BASIC em disquete) e MSX, exis- 
tem funções específicas para conver- 
ter decimais em hexas. Essas funções 
são (d corresponde a um número ou ex- 
pressão em decimal): 


mina; 


HEXS$ (d) 


Se você quiser incluir números em 
hexadecimal como parte de um progra- 
ma (por exemplo, dentro de declara- 
ções DATA), também não há problema 
para muitos computadores. Ao utilizar 
essas constantes em hexa para cálcu- 
los subsequentes, o computador os 
converterá internamente em decimal 
(ou, mais propriamente, em binário). 


munma sy 


Coloque &H antes do número. Exem- 
plo: &HF3 


[ÉS] 


Coloque $ antes do número. 
Exemplo: $F6. 

















315 LET m=0: IF 11>=c THEN 
LET m=c : LET 1l=11-c 

320 LET c=c/2 

330 PRINT AT 18,2+x*3;n;AT 18, 
18+x*3; m 

340 NEXT x 

400 PRINT AT 21,6;"TOTAL HEX= 
";CHRS hi;CHRS lo 





500 RETURN 
20 cLS 
30 PRINT 9;"BIN,DEC, HEX” 
40 PRINT 
50 PRINT 
60 PRINT 
O Oh 
70 PRINT AT 17,4;"HEXADECIMAL: 
80 PRINT AT 18,4;"+ + + mr 
90 PRINT AT 18,20;"+ + + =" 
100 LET NO=0 
110 goto 150 
120 LET AS=INKEYS 
125 IF A$="" THEN GOTO 120 
130 IF AS<>"F” THEN GOTO 135 
131 LET NO=NO+1 
132 IF NO-256 THEN LET NO=0 
135 IF A$<>"B” THEN GOTO 140 
136 LET NO-NO-1 
137 IF NO=-1 THEN LET NO=255 
140 IF A$="B” OR A$="F” THEN GO 
TO 150 
145 INPUT NO 


150 GOSUB 170 

155 GOSUB 250 

160 GoTo 120 

170 LET NU=NO 

171 LET C=128 

175 FOR X=0 TO 7 

180 LET N=0 

185 IF NU>=C THEN LET N=1 

186 IF NU>=C THEN LET NU=NU-C 
190 LET C=C/2 

200 PRINT AT 5,2+4*X;N 

210 IF N=1 THEN PRINT AT 10,2+4 
*X;C*2 

220 IF N=0 THEN PRINT AT 10,2+4 
ARIVO 

230 NEXT X 

235 PRINT AT 13,6;"TOTAL DECIMA 
Le PINO” 

240 RETURN 

250 LET HI=INT (NO/16) 

255 LET HH=HI 

260 LET LO=(NO-HI*16) 

261 LET LL=LO 

270 LET HI=HI+28 

275 LET LO=LO+28 

280 PRINT AT 18,14;CHR$ HI;AT 1 
8,30;CHR$S LO 

290 LET C=8 

300 FOR X=0 TO 3 

310 LET N=0 

311 IF HH>=C THEN LET N=C 

312 IF HH>=C THEN LET HH=HH-C 
315 LET M=0 

316 IF LL>=C THEN LET M=C 

317 IF LL>=C THEN LET LL=LL-C 
320 LET C=C/2 

330 PRINT AT 18,2+X*3;N;AT 18,1 


B+X*3;M 

340 NEXT X 

400 PRINT AT 21,6;"TOTAL HEX= " 
;CHRS HI;CHR$ LO 


500 RETURN 

5 KEY OFF 

10 SCREENO 

15 COLOR 1,9 

20 cLS 

30 LOCATE 10,0:PRINT” BIN,DEC,H 

EX” 

40 LOCATE 2,4:PRINT” BINARIO: 

50 LOCATE 2,9:PRINT” DECIMAL: 

60 LOCATE 3,10:PRINT"+ + + 
o. O + 

70 LOCATE 2,17:PRINT” HEXADECI 

MAL:” 

80 LOCATE 4,18:PRINT "+ + + 

90 LOCATE 20,18:PRINT"+ + + 


100 LET NO=0 

110 Goto 150 

120 LET AS=INKEYS:IF AS="" THEN 
GoTo 120 

130 IF A$=" " THEN LET NO=NO+1: 
IF NO=256 THEN LET NO=1 

135 IF A$="B” THEN LET NO=NO-1: 
IF NO=-1 THEN LET NO=255 

140 IF A$="B" OR AS=" " THEN GO 
TO 150 

145 LOCATE 30,0:INPUT NO 

150 GOSUB 170:GOSUB 250 

160 goto 120 

170 LET NU=NO:LET C=128 

175 FOR X=0 TO 7 

180 LET N=0:IF NU>=C THEN LET N 
=1;LET NU=NU-C 

190 LET C=C/2 


200 LOCATE 2+4*X,5:PRINT USING 
Ns 

210 IF N=1 THEN LOCATE 4*X,10:P 
RINT USING "444" ;C*2 

220 IF N=0 THEN LOCATE 4*X,10:P 
RINT USING "444";0 

230 NEXT X 

235 LOCATE 6,13:PRINT "TOTAL DE 
CIMAL=";NO;" 

240 RETURN 

250 LET HI=INT(NO/16) :LET HH=HI 
260 LET LO=(NO-HI*16) :LET LL=LO 
:IF LO>9 THEN LET LO=LO+7 

265 IF HI>9 THEN HI=HI+7 

270 LET HI=HI+48:LET LO=LO+48 
280 LOCATE 14,18:PRINT CHR$ (HI) 


285 LOCATE 30,18:PRINT CHR$(LO) 
290 LET C=8 

300 FOR X=0 TO 3 

310 LET N=0:IF HH>=C THEN LET N 
=C:LET HH=HH-C 

315 LET M=0:IF LL>=C THEN LET M 
=C:LET LL=LL-C 

320 LET C=C/2 

330 LOCATE 2+X*3,18:PRINT USING 
"er;N? 


dp e A 1 


335 LOCATE 18+X*3,18:PRINT USIN 
Gr ;M; 

340 NEXT LOCATE 

400 LOCATE 6,21:PRINT"TOTAL HEX 
= ";CHRS(HI);CHR$(LO) ; 








500 RETURN 

20 HOME 

25 POKE 34,22 

30 INVERSE : HTAB 14: PRINT "B 

IN, DEC, HEX” 

40 VTAB 6: HTAB 5: PRINT "BINA 

RIO” 

50 VTAB 10: HTAB 5: PRINT "DEC 

IMAL” 

60 VTAB 16: HTAB 5; PRINT "HEX 

ADECIMAL” 

70 VTAB 22: HTAB 3; PRINT "NUM 

ERO HEX= U 

80 VTAB 17: PRINT” + + 

+ = ";: HTAB 21: PRINT ” 

+ + + - q 

90 VTAB 11: PRINT ” + + 
+ . + + + " 

110 GOTO 170 

120 VTAB 23: CALL - 958: HTAB 

30: GET INS 

130 IF INS = CHR$ (32) THEN N 

O = NO + 1: IF NO = 256 THEN NO 

-0 

140 IF IN$ = CHR$ (66) THEN N 

O = NO - 1: IF NO = - 1 THENN 

0 = 255 

150 IF INS < > CHR$ (32) AND 

INS < > CHRS (66) THEN GOSU 

B 410 

170 GOSUB 190: GOSUB 270 

180 GOTO 120 

190 NU = NO:C = 128; FOR X - 7 

TO O STEP - 1 

200 N = 0: IF NU> = CTHENN 

= 1:NU = NU - C 

205C=-c/2 

210 VUTAB 7: HTAB ABS (X - 7) 

ROB 1: PRINT” MNGro 

220 IF N= 1 THENN=- 2" X:N$ 

= STR$ (N): GOTO 230 

225 N8 = * 0” 

230 VTAB 11; HTAB ABS (X - 7) 

*5+1 + (3- LEN (N$)): PRI 

NT NS 

240 NEXT 

250 VUTAB 13: HTAB 5: PRINT "TO 

TAL DECIMAL= ";NO;” ";: CALL - 

868 

260 RETURN 

270 HI = INT (NO / 16):HH = HI 

280 LO = (NO - HI * 16):LL = LO 


: IF LO > 9 THEN LO = LO + 7 
290 IF HI > 9 THENHI = HI+7 
300 HI = HI + 4B:LO = LO + 48 


310 VTAB 17: HTAB 18: PRINT C 
HRS (HI);: HTAB 38: PRINT CHR$ 
(LO) 

320 Ce 8 

330 FORX=0TOo3 

340 N = 0: IF HH > = C THENN 
- C:HH e HH-c 

350 M = O: IF LL> =C THENM 


e CILLeLL-C 





3 CÓDIGODEMÁQUINA 3 


360 c=cC/2 


370 VTAB 17: HTABX *4 + 2: P 
RINT N;: HTAB X * 4 + 22: PRINT 
M 

380 NEXT 

390 VTAB 22: HTAB 15: PRINT C 
HRS (HI); CHR$ (LO) 

400 RETURN 

410 VTAB 23: HTAB 30: INPUT NO 
420 IF NO > 255 OR NO < O THEN 
410 

430 NORMAL VTAB 23: HTAB 30: 
PRINT ” ": INVERSE : RETU 
RN 


Uma vez digitado o programa, rode- 
o com o comando RUN, Aparecerão na 
tela três linhas: uma contendo os dígi- 
tos do número em binário; mais abai- 
xo,.à linha do número em decimal; e, 
por último, os dois segmentos do núme- 
ro em hexadecimal. 

Inicialmente, todos esses números es- 
tão zerados, Ao pressionar a tecla de es- 
paçamento (a tecla F na versão para o 
ZX-81), o número binário no topo da 
tela será incrementado de 1 e seus equi- 
valentes em decimal e hexadecimal apa- 
recerão na parte de baixo da tela. O 
equivalente decimal é calculado 
somando-se os valores (potências de 2) 
correspondentes às posições onde um dí- 
gito binário é igual a 1, Exemplo: 


BINÁRIO: 
00100110 








RR 





DECIMAL: 
0+0+32+0+0+4+2+0= 


POTÊNCIAS DE 2: 
272825242322220 

O mesmo método de conversão é uti- 
lizado para o sistema hexadecimal; ape- 
nas, neste caso, formam-se quatro gru- 
pos de quatro bits de cada vez. 

Pressionando a tecla <B>, você di- 
minuirá | do número registrado na te- 
la. Ao mesmo tempo, se você pressio- 
nar qualquer outra tecla, além da barra 
de espaços ou da letra B, poderá orde- 
nar rapidamente ao computador que 
converta para binário e hexadecimal um 
número qualquer em decimal entre O e 
255. Ao pressionar qualquer tecla, apa- 
recerá em um canto da tela um sinal de 
interrogação. Digite então o número de- 
sejado e acione <ENTER> ou <RE- 
TURN>. Ato contínuo, os números 
equivalentes em binário e hexa serão 
mostrados no vídeo. 

Note que o njmero máximo que po- 
de ser representado por um byte de oito 
bits em binário é 11111111. Isso equi- 
vale a 255 em decimal e a FF em hexa- 
decimal, Qualquer número armazenado 
em um byte na memória do seu compu- 
tador pode ser representado por um va- 
lor em hexa com dois dígitos. 

Com o tempo, você verificará que es- 
sas conversões não são tão difíceis quan- 
to parecem a princípio. 





















O sistema hexadecimal parece dificil e 
complicado. Não seria possível passar 
sem ele? Afinal, é realmente necessá- 
rio aprendê-lo para operar em lingua- 
gem de máquina? 

Sim. Se você tem a intenção de 
aprender seriamente a programar em 
código de máquina, um bom conheci- 
mento sobre como trabalhar com o sis- 
tema hexadecimal é imprescindível. 

Existem programas prontos para fa- 
zer a conversão automática de códigos 
de operação em números binários (As- 
sembler) ou a conversão no sentido in- 
verso (Disassembler). Além disso, eles 
aceitam números expressos no siste- 
ma decimal. No entanto, mesmo nes- 
ses casos, o programador precisa re 
correr constantemente aos seus equi- 
valentes hexadecimais. Muitas vezes, 
certas listagens emitidas por tais pro- 
gramas (DUMP) contêm apenas núme- 
ros hexadecimais. E você não saberia 
trabalhar com eles se não conhecesse 
o sistema de base 16. 

Em lições posteriores, aprendere- 
mos a fazer Assembly manualmente: o 
conhecimento do sistema hexadecimal 
será um pré-requisito para entendê-las. 

Com o tempo e a prática, você verá 
que a dificuldade desse sistema é ape- 
nas aparente. Na verdade, ele é tão 
simples e fácil quanto o sistema deci- 
mal ou qualquer outro. 


Como devo fazer para reconverter de 
hexa para decimal? 

Cada dígito de um número em hexa 
vale 16 vezes o dígito à sua direita. Pa- 
ra converter um número em hexa, co- 
mo FEDA, por exemplo, deve-se tomar 
inicialmente o primeiro dígito da direi- 
ta e convertê-lo para notação decimal. 
No exemplo, A equivale a 10. O próxi- 
mo dígito à esquerda vale 16 vezes 
mais; assim, convertemos D para de- 
cimal (o que dá 13), e realizamos a ope- 
ração: 13 x 16 = 208. O próximo di- 
gito à esquerda vale 16 vezes mais; as- 
sim, multiplicamos 6 x 16 x 16 = 
1536. O último dígito do exemplo pre- 
cisa também ser multiplicado por 16. 
Fvale 15, assim temos 15 x 16 x 16 
x 16 = 61440. Somando todos os va- 
lores obtidos temos 10 + 208 + 1536 
+ 61440 = 63194, em decimal. 

Ou então use o programa listado 
aqui para converter o número hexa de 
dois em dois dígitos de cada vez, e de- 





pois multiplique o par mais à esquerda 
por 256. 


Como um computador de oito bits 
representa números maiores do que 255? 
Simplesmente quebrando-os em duas 
partes de oito bits cada e colocando-os 
em duas memórias adjacentes. Assim, 
o computador armazena qualquer nú- 
mero até FFFF em hexa, ou 65 535 em 
decimal. 

O FFFF é um valor importante em 
computadores pessoais de oito bits, pois 
é o número máximo de posições ende- 
reçáveis de memória RAM. 

Números maiores ainda do que esses 
podem ser armazenados através do mes- 
mo estratagema: dividi-los em três, qua- 
tro ou até mais porções de oito bits. 

A maneira como esses bytes são or- 
ganizados depende do computador. A 
maior parte dos micros que usam o BA- 
SIC armazenam os bytes de menor va- 
lor (chamados LSB, ou least significant 
byte) nas memórias de endereço mais 
baixo, e os bytes de maior valor (MSB, 
ou most significant byte), nas memórias 
de endereço mais alto. 

Outros computadores, como os com- 
patíveis com o TRS-Color, fazem exa- 
tamente o contrário. 

Suponhamos agora que você queira 
encontrar o número decimal equivalen- 
te a dois hexadecimais armazenados em 
compartimentos vizinhos de memória 
(um número maior do que FF, quebra- 
do em dois). 

Nos microcomputadores das linhas 
Sinclair, TRS-80, MSX e Apple II bas- 
ta converter os dois hexadecimais (H1 
e H2) para decimal (D) e depois fazer 
a seguinte operação: 


BIN. DEC. MEX 


DECIMAL 


DECIMAL TOTAL = 29 





HEXADECIMAL 



































— 256 + H2 


D = Hi 


Nos micros compatíveis com o TRS- 
Color, a expressão usada é a mesma, 
mas a ordem de HI e H2 é inversa; ou 
seja, o byte de maior valor aparece an- 
tes do menor byte. 


O SISTEMA OCTAL 


Existem apenas quatro sistemas de 
numeração que podem ser utilizados 
com vantagem na programação e 
operação de computadores digitais. 
Você já conhece três deles; o sistema 
binário, que é o natural para um 
computador digital; o sistema deci- 
mal, espontaneamente utilizado pe- 
lo ser humano; e o sistema hexadeci- 
mal, cuja base (16) é uma potência de 
2. Essa correspondência facilita enor- 
memente sua utilização pelo pro- 
gramador. 

O quarto sistema de numeração 
que pode ser usado com computado- 
res digitais é o sistema octal, ou se- 
ja, de base 8, que é também uma po- 
tência do número 2. Apesar disso, o 


octal está entrando em desuso, pois 
não foi universalmente adotado pe- 
los fabricantes de microcompu- 
tadores. 

O octal tem 8 dígitos: 0, 1, 2, 3, 
4,5,6,7€8. O sistema de conversão 
de um número em octal para decimal 
é semelhante ao usado com o hexa- 
decimal, só que o multiplicador é 8. 
Por exemplo: 


423 =4x6 +2x8+3=275 


Alguns computadores pessoais 
permitem representar constantes em 
octal (&0), ou têm funções de conver- 
são (OCTS). 


PROGRAMAÇÃO DE JOGOS 














E OS PONTOS 





Todo jogo de ação realiza algum tipo U 


de contagem de pontos ou de 

tempo, de modo a tornar a competição 
mais emocionante. Nesta lição 

você aprenderá como fazer isso com a 
ajuda de programas bem simples. 


Quase todos os jogos de computado- 
res precisam de alguma forma de mar- 
cação de pontos ou de cronometragem 
— ou ambos. Sem eles você não poderá 
saber se está se saindo bem no jogo, se 
está melhorando, ou quem é o melhor 
jogador. Além disso, são esses elemen- 
tos de medida de desempenho que dão 
graça aos jogos de computador. 

Seria possível, evidentemente, obri- 
gar alguém a sentar-se ão seu lado e fi- 
car contando os disparos que você fa: 
A melhor solução, no entanto, é progra- 
mar o computador para fazer isso por 
você, Umas poucas linhas a mais no 
programa darão cabo dessa tarefa, não 
importa a complexidade do esquema de 
marcação de pontos. 

Da mesma forma, não existe neces- 
sidade de recorrer a um cronômetro pa- 
ra marcar o tempo. Como se viu nos 
programas para o jogo de labirinto (pág. 
46 a 52), quase todos os tipos de com- 
putador têm um relógio embutido, que 
pode ser utilizado para melhorar seus jo- 
gos (a exceção é o Apple II, que precisa 
de uma placa especial). 


CAMPO MINADO 


Para que você possa ver como mon- 
tar esquemas práticos de contagem e 
cronometragem, apresentamos a seguir 
um jogo adequado a todas as máquinas, 
com exceção das compatíveis com o 
ZX81, e ao qual acrescentaremos pro- 
gressivamente todas as rotinas necessá- 
rias. Os esquemas são simples e podem 
ser colocados também em outros jogos. 

O jogo é chamado Campo Minado, 
e nele você é um comandante de tanque 
cuja missão é resgatar os pára-quedistas 
que estão pousando imprudentemente 
em um campo minado. Por onde quer 














O JOGO DO CAMPO MINADO 





COMO INCORPORAR AO JOGO 










APRENDA A MONTAR UM 
PLACAR 


UM MEDIDOR DE TEMPO 





que passe, o tanque corre o risco de de- 
tonar uma mina escondida ao acaso pe- 
lo computador. Assim como em campo 
de batalha real, as minas são invisíveis; 
portanto, mova-se com cuidado! 

O tanque (apenas um caractere *, 
infelizmente, pois você ainda não apren- 
deu tudo sobre combinar gráficos e mo- 
vimentos em um programa BASIC) exe- 
cuta movimentos por meio das seguin- 
tes teclas: Z para a esquerda, X para a 
direita, P para cima e L para baixo. O 
âmago do programa está na rotina de 
movimentação de um caractere na tela 
estudada numa lição anterior. 

Quando você digitar e rodar esta seção 
do jogo verá que ele ainda não está com- 
pleto, pois nada acontece depois que o 
pára-quedista é resgatado. Apenas o tan- 
que continua a vagar, sem rumo, através 
datela. O programa deve ser interrompi- 
do pressionando-se as teclas <BREAK >, 
<ESCAPE> ou <STOP>, ou vocête- 
rá que esperar até que o tanque detone 
uma mina escondida ao acaso. Nesse mo- 
mento, O jogo terminará. Mas não se 
preocupe, essa situação melhorarátão lo- 
govocêacrescente as rotinas de contagem 
e cronometragem que se seguem. 





50 LET PO=210 

60 cLs 

70 PRINT €256, STRINGS(32,"-") 
90 LET X=RND(256)-1 

110 IF X<>PO THEN PRINT €X, 
ELSE GOTO 90 
120 PRINT €PO,” 
130 LET LP=PO 
140 IF PEEK(340)=247 THEN 
0=P0-1:GOTO 190 

150 IF PEEK(338)=247 THEN 
O=P0+1:GOTO 210 

160 IF PEEK(338)=251 THEN 
0=P0-32:GoTO 220 

170 IF PEEK(342)=253 THEN 
0=P0+32:GOTO 220 

180 GOTO 140 

190 IF (LP AND 31)=0 THEN 
0=LP 

200 coTo 220 

210 IF (PO AND 31)=0 THEN 
o=LP 

220 IF P0>255 OR PO<O THEN LET 
PO=LP:GOTO 140 

230 PRINT €LP," "; 

240 PRINT €PO," 4"; 

250 LET M=RND(256)-1 

270 IF M=PO THEN PRINT €PO,” ": 
PRINT €130,"BOOM!!! VOCE ACERTO 
U UMA MINA!”:STOP 

310 coro 130 


"o"; 





LET P 
LET P 
LET P 


LET P 
LET P 


LET P 


O movimento do tanque pela tela é 
controlado pelas linhas 140 a 170, que 
verificam quais foram as teclas pressio- 


de como isso é feito). A linha 220 testa 
IF PO>255... para manter o tanque no 
alto da parte central da tela. Ora, a últi- 
ma locação de tela no alto da parte cen- 
tral do vídeo é a 255; assim o IF... impe- 
de que o tanque avance abaixo da linha 
pontilhada, desenhada pela linha 70. 

Esta última traça a linha através da 
tela, utilizando uma nova função — 
STRINGS.OSTRINGS$(G2,—"), como 
aparece na linha 70, diz ao TRS-Color 
para desenhar um cordão (string, em in- 
glês) de 32 travessões (se você quisesse 
dez pontos de interrogação deveria uti- 
lizar STRINGS(10,'“?"), e assim por 
diante). O lugar em que o pára-quedis- 
ta cai é escolhido por um número alea- 
tório na linha 90, e a linha 110 exibe o 
pára-quedas na tela se a posição esco- 
lhida já não estiver ocupada pelo tan- 
que. Se estiver, a linha 90 escolherá ou- 
tra posição. 

Finalmente, a posição da mina escon- 
dida é escolhida pela linha 250. A linha 
270 checa então sé o tanque e a mina es- 
tão na mesma locação de tela. Se esti- 
verem, a mensagem de explosão será exi- 
bida, e o programa parará. 





50 LET tx-16: 
60 CLS 
70 PRINT AT 11,0;"- 


LET ty=5 





90 LET px=INT (RND*30)+1 


100 LET py=INT (RND*10) 

110 IF px=tx AND py=ty THEN 
Goro 90 

120 PRINT AT py,.px:;"O";AT ty, 
tx;"4” 

130 LET txx=tx: LET tyy=ty 
140 LET aS=INKEYS 

145 IF a$="w” THEN LET ty=ty- 
k 

150 IF a$="z" THEN LET ty=ty+ 
1 

160 IF a$="a” THEN LET tx=tx- 
1 

170 IF aS="s” THEN LET tx=tx+ 
1 


190 IF ty<0 OR ty>10 THEN LET 
ty=tyy 
200 IF tx<O0 OR tx>30 THEN LET 


tx=tax 

230 PRINT AT tyy,txx;” * 

240 PRINT AT ty,tx;"4” 

250 LET mx=INT (RND*30)+1 

260 LET my=INT (RND*10) 

270 IF mx=tx AND my=ty THEN 
PRINT AT my,mx;” ": PRINT AT 
8,0;"BOOM! - Voce acertou um 
a mina!”: Goro 330 

310 coro 130 





No programa do Spectrum, a tela é 
dividida ao meio pela linha 70, que im- 
prime uma série de 32 travessões ao lon- 
go do vídeo. As linhas 145 a 170 con- 


DO aesteades > 


(s 
a“ 


7 
DOU Ti dad 





trolam os movimentos do tanque. Uma 
explicação completa desse processo es- 
tá na página 31. 

As linhas 190 e 200 impedem que o 
tanque saia da área situada acima da li- 
nha (pontilhada) traçada pela linha 70, 
e impede que ele desapareça da tela. A 
posição de queda dos pára-quedistas é 


BZ nadas (veja a pág. 33, se não se lembra 








escolhida aleatoriamente pelas linhas 90 
e 100. A linha 110 verifica se o tanque 
e um dos pára-quedistas ocupam a mes- 
ma locação de tela. Se isso ocorrer, uma 
nova posição de queda será escolhida, 
indo-se para a linha 90. As linhas 250 
e 260 escolhem um lugar para a mina. 
A linha 270 compara a posição da mina 


com a do tanque. Se eles estiverem no 
mesmo lugar, o tanque será exibido na 
tela e aparecerá uma mensagem de ex- 
plosão. Neste caso, o programa parará. 


50 LET PO=220 

60 cLS 

70 LOCATE 0,12:PRINT STRINGS (39 
nr) 


90 LET X=INT(RND(1)*480) 

110 IF X<>PO THEN VPOKE BASE(0) 
+X,ASC("O”) ELSE GOTO 90 

120 VPOKE BASE(0)+PO,ASC("p") 
130 LET LP=PO 

135 LET KS=INKEYS:IF K$="" THEN 
Goto 135 

140 IF KS=CHR$(29) THEN LET 
PO-1:GOTO 190 

150 IF K$-CHR$(28) THEN LET 
PO+1:GOTO 210 

160 IF K$-CHR$(30) THEN LET 
PO-40:GOTO 220 

170 IF K$-CHR$(31) THEN LET 
PO+40:GOTO 220 

180 Goto 140 

190 IF (LP/40-INT(LP/40))=0 
N LET PO=LP 

200 GOTO 220 

210 IF (PO/40-INT(P0/40))=0 
N LET PO=LP 

220 IF P0>479 OR PO<O THEN PO=L 
P:GOTO 130 

230 VPOKE BASE (O)+LP,ASC(” ") 
240 VPOKE BASE(0)+PO,ASC("4”) 
250 LET M=INT(RND(1)*480) 

270 IF M=PO THEN VPOKE BASE (0)+ 
PO,ASC(” "):LOCATE 5,4:PRINT "B 
o0M!!-Você acertou numa mina”:E 
ND 

310 GoTo 130 


PO= 
Po= 
Po= 


Po=- 
THE 


THE 


O movimento do tanque pela tela é, 
como no caso anterior, controlado pe- 
las linhas 140 a 170, que verificam quais 
foram as teclas pressionadas. A linha 
220 testa IF PO >479... a fim de restrin- 
gir o campo de ação do tanque à parte 
alta do meio do vídeo. Agora, porém, 
a última locação de tela nessa posição 
é a 479; assim, O IF... impede que ela 
avance abaixo da linha pontilhada de- 
senhada pela linha 70. 

Também como no caso anterior a 
função STRINGS é empregada pela li- 
nha 70 para traçar a linha ao longo da 
tela. O STRING$(39, “—""), como apa- 
rece na linha 70, diz simplesmente ao 
MSX para desenhar um cordão de 39 
travessões (veja na pág. anterior, abai- 
xo do programa para o TRS80 eo TRS- 
Color, como fazer para obter dez pon- 
tos de interrogação). 

O lugar em que o pára-quedista cai 
é escolhido por um número na linha 90; 
alinha 110 mostra o pára-quedas na te- 
la se a posição escolhida já não estiver 
ocupada pelo tanque. Se estiver, a linha 
90 escolherá outra posição. Não se preo- 


cupe em entender, por enquanto, o co- 
mando VPOKE BASE, na linha 110. 
Ele serve para colocar um caractere co- 
mum (ou gráfico) em uma certa posição 
da tela, e é usado aqui por ser mais rá- 
pido que o LOCATE. 

Alinha 250, escolhe a posição da mina 
escondida. A linha 270 verifica se o tan- 
que e a mina estão na mesma locação da 
tela. Sendo positivo, a mensagem de ex- 
plosão é exibida, e o programa termina... 


LET TX = 20: 
HOME 
FOR 1 = 
HTAB I: 
NEXT 1 
LET PX = 

9+1 

100 LET PY « 

Leo +a 

110 IF PX < 

TY THEN HTAB PX: VTAB PY: 

T "o";: Goro 120 

111 coTo 90 

120 HTAB TX: VTAB TY: 


LET TY = 10 


1 TO 40 
VTAB 13: 


PRINT "="; 
INT ( BND (1) * 4 
INT ( RND (1) * 
> TX AND PY < > 
PRIN 
PRINT "4 


130 
140 


LET LX = TX: 
LET K - PEEK ( - 
POKE - 16368,0 

150 IF K = 208 THEN 

7 e 

160 IF K = 204 THEN 

TX +1 

170 IF K = 218 THEN 

RR a 

175 IF K = 216 THEN 

TX +1 

190 IF TX<10RTX>40 
LET 
200 
LET 
230 


LET LY - TY 
16384): 


LET TY 
LET TY 
LET TX 
LET TX 
THEN 
1 OR TY > 12 THEN 


HTAB LX: VTAB LY: PRINT ” 


240 


HTAB TX: VTAB TY: PRINT "4 
250 
40) 
260 
Fay se T 
270 IF MX = TX AND MY = TY THE 
N HTAB MX: VTAB MY: PRINT * * 
HTAB 7: VTAB 7: PRINT "BOOM!! 
-Voce acertou uma mina”;: GOTO 
330 
310 Goro 130 


LET MX = 
ma 
LET MY = 


INT ( RND (1) * 


INT ( RND (1) * 


O movimento do tanque pela tela é 
controlado pelas linhas 140 a 170, que 
checam as teclas pressionadas (lembre- 
se da explicação da pág. 33). Os coman- 
dos PEEK e POKE da linha 140 são ne- 
cessários porque o Apple não tem uma 
função em BASIC, como o INKEYS, 
que serve para fazer a varredura do te- 
clado. A fim de restringir as manobras 
do tanque, as linhas 190 e 200 testam se 
as suas coordenadas (TX e TY) não ex- 
cedem 40 e 12 posições, respectivamen- BS 





te (margem direita da tela e posição de 
linha acima da linha pontilhada). 

As linhas 70 a 78 desenham uma li- 
nha pontilhada ao longo da tela. 

Um número aleatório nas linhas 90 
e 100 escolhe o lugar em que o pára- 
quedista cai; a linha 110 exibe o pára- 
quedas na tela se a posição escolhida já 
não estiver ocupada pelo tanque. Se es- 
tiver, então a linha 90 escolherá uma ou- 
tra posição. Neste caso, a posição da mi- 
na escondida é escolhida pelas linhas 250 
e 260. A linha 270 então verifica se o 
tanque e a mina estão na mesma loca- 
ção da tela. Se eles estiverem, será exi- 
bida uma mensagem de explosão, e o 
programa se deterá. 


MARQUE PONTOS 


Em jogos do tipo videogame, a con- 
tagem normalmente é aumentada quan- 
do as posições de tela de dois objetos são 
iguais. Os objetos podem ser um míssil 
e, o seu alvo, o “'come-come” e um 
monstrinho, um tanque e um pára- 
quedista, um cavalo e o poste de chega- 
da, ou qualquer outra coisa. 

Assim, acrescente estas linhas ao seu 
programa, para ver como um mecanis- 
mo de contagem funciona na prática. 


40 LET S=0 

280 IF X=PO THEN LET S=S+1:GOTO 
90 

330 PRINT €295,S;"PARAQUEDISTAS 


40 LET s=0 
280 IF px=tx AND py=ty THEN 
LET s=stl Goro 90 
330 PRINT AT 14,8;8;” 
ISTAS” 


a] 


40 LET S=0 

280 IF X=PO THEN LET S=St1:GOTO 
90 

330 LOCATE 8,16:PRINT S;” 
uedistas” 


[eb] 


ao 


PARAQUED 


paraq 


LET S - 0 

280 IF PX = TX AND PY = TY THE 
N LETS = S+ 1: GOTO 90 

330 HTAB 12: VTAB 15: PRINT S; 
” PARAQUEDISTAS” ; 


Você precisará substituir o STOP ou 
END na linha 270 por GOTO 330. A li- 
nha 270 deverá ficar assim, agora: 


270 IF M=PO THEN PRINT €PO,” ". 
PRINT € 

130,"BOOM!!! VOCE ACERTOU UMA M 
INA!”:G OTO 330 


270 IF mx=tx AND my=ty THEN 
PRINT AT my,mx;"!": PRINT AT 8 
+3;"BOOM!!! - VOCE ACERTOU UMA 
MINA!”: GOTO 310 


Ps 


270 IF M=PO THEN VPOKE BASE(0)+ 
PO,ASC(" "):LOCATE 5,4:PRINT "B 
00M!!-Você acertou numa mina” :G 
oTO 330 


[é] 


270 IF MX = TX AND MY = TY THE 
N HTAB MX: VTAB MY: PRINT " *; 

HTAB 7: VTAB 7: PRINT "BOOM!! 
-VOCE ACERTOU NUMA MINA”;: GOTO 
330 


A linha 280 é a mais importante. Ela 
checa se o tanque e o pára-quedista es- 
tão na mesma locação da tela. Se esti- 
verem, então o placar será incrementa- 
do de 1 ponto. 

A linha 40 volta o placar para zero, 
antes de o jogo começar, e a linha 330 
exibe a contagem. Ao modificar-se o fi- 
nal da linha 270, o computador exibe a 
contagem depois que a mina tiver sido 
detonada. 

O jogo funciona assim: o jogador re- 
cebe continuamente pára-quedistas pa- 
ra resgatar. Quando um é resgatado, ou- 
tro pára-quedista cai do céu. 

O jogo termina quando o tanque em 
movimento passa sobre a mina, provo- 
cando uma explosão. 


LS 


Acrescentar um dispositivo de regis- 
tro do recorde de pontos no jogo não 
é difícil. Tudo o que você precisa é de 
uma variável para armazenar o recorde, 
e algum modo de atualizá-la assim que 
este for quebrado. Fora isso, é necessá- 
ria ainda uma rotina de exibição do re- 
corde. Estas são as linhas que você de- 
ve acrescentar para aumentar a capa: 
dade de registrar e exibir recordes no jo- 
go “Campo Minado”: 


30 LET HS=0 
350 IF S>HS THEN LET HS=S 
370 PRINT €424,"RECORDE=";HS; 


30 LET hs=0 
350 IF s>hs THEN 
370 PRINT AT 18,8;"RECORDE=";hs 


LET hs=s 


hay 


30 LET HS=0 

350 IF S>HS THEN LET HS=S 

370 LOCATE 12,20:PRINT "Recorde 
";Hs 


[é] 


30 LET HS = 0 

350 IF S > HS THEN 
370 HTAB 12: VTAB 20: 
ecorde=";HS; 


LET HS = S 
PRINT "R 


Primeiro o programa deve introdu- 
zir a variável contendo o recorde com 
um valor o mais baixo possível. Assim, 
a linha 30 iguala HS a zero. Quando o 
jogo termina, a linha 350 compara o úl- 
timo escore (S) com o recorde (HS). Se 
o escore for maior do que o recorde, en- 
tão HS será atualizada, recebendo o va- 
lor em S. Finalmente, a linha 370 exibe 
o recorde na tela. 

Pode-se pensar que essas linhas serão 
suficientes para incorporar sempre no- 
vos recordes ao jogo. Infelizmente isso 








=u 


não é verdade. Sempre que o programa 
é rodado, o computador zera automa- 
ticamente o valor de HS registrado no 
jogo anterior, assim como os valores de 
todas as outras variáveis. Para manter 
o valor de HS entre uma partida e ou- 
tra do jogo, você precisa acrescentar li- 
nhas de programa para perguntar ao jo- 
gador se ele quer jogar outra vez, como 
as que foram usadas em jogos ante- 
riores. 





390 FOR F=1 TO 1000:NEXT F 
400 PRINT €130 
410 PRINT €135,"OUTRA VEZ(S/N)? 


420 LET KS=INKEY:IF K$="" THEN 
Goto 420 

430 IF K$="S” THEN GOTO 40 

440 IF K$="N” THEN END 

450 GoTO 420 


390 PAUSE 100 

400 PRINT AT 8,3;TAB 31 

410 PRINT AT 8,7;"Quer jogar d 
e novo (S/N)?” 

420 LET aS=INKEYS 

430 IF a$="s” THEN GOTO 40 
440 IF a$="n” THEN STOP 

450 Goto 420 


hay 


390 FOR F=1 TO 1000:NEXT F 

400 LOCATE 0,4:PRINT STRINGS (39 
410 PRINT TAB(10);"Outra vez? ( 
S/N)” 

420 LET KS$=INKEYS:IF K$="" THEN 
Goro 420 

430 IF K$="5" OR K$="8” THEN GO 
TO 40 , 

440 IF K$="N” OR K$="n” THEN EN 
D 

450 otro 420 


[é] 


390 FOR F = 1 TO 1000: NEXT F 
400 FORI = 1 TO 40: HTAB I: V 
TAB 7: PRINT ” ";: NEXT 1 

410 HTAB 11: VTAB 8: PRINT "Ou 
tra vez? (S/N)"; 

420 GET AS 

430 IF AS = "S” THEN GOTO 40 
440 IF A$ = "Nº THEN END 

450 coTo 420 


Isto é o que a linha extra faz: 

Cria-se um pequeno retardo de tem- 
po, introduzido pelo laço FOR...NEXT 
na linha 390, nos programas para todos 
os computadores, exceto para o Spec- 
trum, que usa o comando PAUSE, A li- 
nha 400 limpa uma parte da tela, de mo- 
do a prepará-la para que a mensagem 


“MAIS UMA VEZ? (S/N)” seja im- 
pressa pela linha 410. 

A rotina que pergunta ao jogador se 
quer jogar de novo e colhe a sua respos- 
ta está nas linhas 410 a 450 (a linha 430 
reiniciará o programa na linha 40 se S 
for pressionado, e a linha 440 parará o 
programa se N for pressionado). A li- 
nha 450 assegura que qualquer outra te- 
cla será ignorada. Como agora não exis- 
te necessidade de digitar RUN cada vez 
que você desejar jogar de novo, o valor 
de HS é preservado. 


COMO FAZER A CRONOMETRAGEM 


Do jeito que está, o jogo depende 
muito da sorte — o jogador simples- 
mente continua andando com o tanque, 
até encontrar uma mina escondida, 

Podemos, entretanto, introduzir no- 
vos elementos no jogo, transformando- 
o, se quisermos, em uma corrida con- 
tra o relógio. Um desses elementos po- 
deria ser, por exemplo, um dispositivo 
interno para marcar o tempo gasto em 
resgatar dez pára-quedistas. 





80 TIMER=0 
290 IF S<10 AND X=PO THEN GOTO 
90 


300 IF S=10 THEN GOTO 320 
320 LET T=TIMER 
330 PRINT €295,85;"PARAQUEDISTAS 


340 IF S=10 THEN PRINT 6327,"EM 
";T/50;" SEGUNDOS” 


10 LET t=0 

80 POKE 23672,0: POKE 23673,0 
290 IF s<10 AND px=tx AND py=t 
y THEN GOTO 90 

300 IF s=10 THEN GOTO 320 
320 LET t=PEEK 23672+256*PEEK 
23673 

340 IF s=10 THEN PRINT AT 16, 
B;"EM ";t/50;” SEGUNDOS” 


hay 


80 TIME-O 
290 IF S<10 AND X=PO THEN GOTO 
90 


300 IF S=10 THEN GOTO 320 

320 LET T=TIME 

340 IF S=-10 THEN LOCATE 10,18:P 
RINT "em ";T/50;" segundos” 


O relógio existente em cada um dos 
tipos de micros acima corre durante to- 
do o tempo em que o computador esti- 
ver ligado. 

Para iniciar a cronometragem do jo- 
go, você precisa apenas zerar uma va- 








riável de tempo. A linha que coloca em 
zero o cronômetro é a linha 80 — você 
notará que para zerar o cronômetro do 
TRS-Color e do MSX basta fazer TI- 
MER = O. No Spectrum é mais com- 
plicado: a linha do programa zera duas 
locações específicas na memória de tra- 
balho do micro, através de POKE 23 
672,0 e POKE 23 673,0. 

O relógio é “parado” pela linha 320. 
Na verdade, ele não se detém; assim, vo- 
cê simplesmente instrui a máquina a 
“lembrar-se” do valor de tempo mar- 
cado em um determinado momento — 
quando dois objetos coincidem na tela, 
por exemplo. 

Nesses programas, a variável que 
contém a leitura do relógio é chamada 
de T — no MSX e no TRS-Color, iss 
é feito com a linha LET T = TIMER, 
e no Spectrum, com LET T PEEK 
23672 + 256*PEEK 23673. 

O comando PEEK, como aprendere- 
mos em uma lição posterior, “olha” os 
valores numéricos contidos nas mesmas 
locações de memória zeradas no in 
do programa. 

A locação 23672, como qualquer lo- 
cação de memória em um micro de 8 
bits, pode conter números inteiros en- 
tre 0 e 255. A locação 23673 é incremen- 
tada de 1, toda vez que esse número for 
excedido na locação 23672. 

Assim, para calcular o valor total do 
tempo em que o cronômetro do Spec- 
trum esteve correndo, você deve multi- 

















plicar o valor da locação 23673 por 256 
e acrescentar o valor armazenado na lo- 
cação 23672. Esta é a razão da expres- 
são numérica na linha 90, na versão pa- 
ra o Spectrum. 

O relógio deve ser parado quando o 
jogador tiver resgatado dez pára- 
quedistas; assim, a linha 300 checa se es- 
te valor foi atingido e salta para a linha 
320, que “'pára” o cronômetro. 

Se o total de resgatados for menor 
que dez, a linha 290 manda outro pá- 
ra-quedista para ser salvo pelo jogador. 

A linha 340 só exibirá o tempo total 
de jogo se os dez pára-quedistas tiverem 
sido recuperados. A leitura do cronôme- 
tro é dividida por 50 no programa. As- 
sim, o tempo exibido será expresso, 
aproximadamente, em segundos. 


[é] 


80 LETT=O 





290 IF S<O ANDPX = TXANDP 
Y = TY THEN GOTO 90 

300 IF S = 10 THEN GOTO 330 
340 IF S = 10 THEN HTAB 12: V 
TAB 16; PRINT "em ";T / 6;” seg 
undos”"; 


A contagem de tempo na versão do 
programa para os microcomputadores 
da linha Apple é feita de forma inteira- 
mente diferente das outras máquinas, 
pois eles não têm relógio interno. 

Neste caso, definimos uma variável 
denominada TIME, que conterá o va- 


lor cronometrado, e uma variável T, que 
é incrementada de 1 a cada ciclo de var- 
redura do teclado. Este é um truque 
muito fácil de ser implementado, e que 
serve para qualquer computador que 
não tenha relógio interno. 

A variável relógio é zerada na linha 
80 e recebe o valor do tempo gasto na 
linha 320. Para calcular o valor do tem- 
po em segundos, divide-se o conteúdo 
de T por 6. 


[eo aa 


Da mesma forma que adicionamos o 
registro de recordes de pontos ao pro- 
grama anterior, poderíamos agora 
acrescentar um registro do recorde de 
tempo (no caso, o menor tempo gasto 
para salvar dez pára-quedistas). O prin- 
cípio geral de registro de recordes de 
tempo pode ser aplicado em muitos ou- 
tros jogos. 

Estas são as linhas a serem acrescen- 
tadas ao programa: 





20 LET LT=999999 

360 IF T<LT AND S=10 THEN LET L 
Tot 

380 PRINT €452,"MENOR TEMPO= 
T/50;” SEGUNDOS” 


20 LET 1t=-999999 

360 IF t<lt AND s=10 THEN 
lt=t 

380 PRINT AT 21,4;"MENOR TEMPO 
=";1t/50;” SEGUNDOS” 


ay 


20 LET LT=999999! 
360 IF T<LT AND S-10 THEN LET L 





";L 


LET 


Tet 
380 LOCATE 6,22:PRINT "Melhor t 
empo: ";LT/50;" segundos” 


[é] 


20 LET LT = 99999 


360 IF S = 10 ANDT < LT THEN 
LT e] 

380 HTAB 12: VTAB 21: PRINT "e 
m ";LT / 6;" segundos”; 


Inicialmente, devemos inicializar a 
variável usada para armazenar o menor 
tempo (LT). Esse valor, ao contrário do 
usado para introduzir a variável de re- 
corde de pontos, deve ser bem alto, no 
começo. A linha 20, incorporada ao pro- 
grama, iguala a variável LT a 999999, 

A linha 360 compara o último tem- 






po de jogo registrado com o menor tem- 
po, armazenado em LT. Se aquele for 
menor ainda do que o último recorde de 
tempo, passará a ser o novo recorde, 
transferindo-se o seu valor para LT. 

Finalmente, a linha 380 exibe o recor- 
de de tempo, em segundos. O valor da 
variável LT é dividido por 50 ou'por 100, 
para que isto se torne possível. 


das 


Até agora, você viu como medir o 
tempo com auxílio do relógio interno do 
computador, dentro de um programa 
que checa, por exemplo, as posições de 
dois objetos na tela, 

Outra aplicação interessante para esse 
modo de aferição de tempo é utilizar o 
teclado para medir a velocidade de rea- 
ção do jogador a algum tipo de ação 
contrária. 

Você já sabe como utilizar a função 
INKEY$ (em caso de dúvida, veja na 
pág. 28). Ela pode servir não só para 
controlar a movimentação de objetos na 
tela, mas também para iniciar e parar 
contagens de tempo. 

Eis aqui um jogo da variedade ““rá- 
pido-no-gatilho””, que ilustra muito bem 
esse tipo de aplicação. O programa mos- 
tra na tela: “SAQUE!”, e o jogador 
deve reagir o mais rapidamente que 
puder, pressionando qualquer tecla no 
teclado. 








20 CLS 

30 LET N=RND (900) 

40 FOR F=0 TO N 

50 NEXT F 

60 PRINT €269,"SAQUE!!” 

70 TIMER=0 

BO IF INKEY$=""THEN GOTO 80 
90 LET T=TIMER 


100 PRINT €269,"BANG!!!" 

110 FOR F=1 TO 300 

120 NEXT F 

130 LET M=RND(25) 

140 IF T<M THEN PRINT €264,"Voc 


E SOBREVIVEU” 

150 IF T>M THEN PRINT €266,"voc 
E ESTA MORTO” 

160 IF T=M THEN PRINT €264,"voc 
ES ESTAO AMBOS MORTOS” 


20 cLs 

30 LET N=INT 
40 PAUSE n 
60 PRINT AT 11,14;"SAQUE!!” 
70 POKE 23672,0: POKE 23673,0 
80 IF INKEYS="" THEN GOTO 80 
90 LET T=PEEK 23672+256*PEEK 
23673 


(RND*400)+1 





100 PRINT AT 11,14;"BANG!!” 
110 PAUSE 50 

130 LET m=INT (RND*35)+1 

140 IF t<m THEN PRINT AT 11,9 
1 "VOCE SOBREVIVEU” 

150 IF t>m THEN PRINT AT 11,9 
1 "VOCE ESTA MORTO” 

160 IF t=m THEN PRINT AT 11,9 


: "VOCES ESTÃO AMBOS MORTOS” 


20 cLs 

30 LET N=RND(1)*900 

40 FOR F=1 TO N 

50 NEXT F 

60 LOCATE 17,11:PRINT "SAQUE!" 
70 TIME=0 

80 IF INKEY$="" THEN 80 

90 LET T=TIME/6 


100 LOCATE 17,11:PRINT "BANG!!” 
110 FOR F=1 TO 300 

120 NEXT F 

130 LET M=RND(1)*25 

140 IF T<M THEN LOCATE 13,11:PR 
INT "Você sobreviveu” 

150 IF T>M THEN LOCATE 13,11:PR 
INT "Você está morto” 

160 IF T=M THEN LOCATE 13,11:PR 
INT "Ambos morreram” 

20 HOME 

30 LET N = RND (1) * 2000 

40 FOR F = 1 TON 

50 NEXT F 

60 HTAB 17: VTAB 13: PRINT "SA 
QUE! !” 

70 LETT = 0 

80 X = PEEK ( - 16384): POKE 
- 16368,0 

81 IF X > 127 THEN GOTO 100 
85 LETT=T+1 

90 Goto 80 

100 HTAB 17: VTAB 13: PRINT "B 
ANG! !” 

110 FOR F = 1 TO 1000 

120 NEXT F 

130 LET M = RND (1) * 20 

140 IF T<M THEN HTABIZ: VT 
AB 13: PRINT "VOCE SOBREVIVEU” 
150 IF T>M THEN HTABIZ: VT 
AB 13: PRINT "VOCE ESTA MORTO” 
160 IF T- M THEN HTAB 12: VT 
AB 13: PRINT "AMBOS MORRERAM ” 


O programa é muito simples. Após 
a linha 20 ter limpado a tela, uma pau- 
sa aleatória é introduzida pelas linhas 30 
a 50. A linha 60 exibe “SAQUE!” , co 
cronômetro é acionado imediatamente 
pela linha 70. A linha 80 faz com que 
a máquina espere até que uma tecla se- 
ja pressionada. A linha é exatamente 
igual à que foi utilizada nos programas 
de jogos com controle pelo teclado (ve- 
ja pág. 28). 

Assim que qualquer tecla tenha sido 
pressionada, o programa continua pa- 
ra a linha 90, que pára efetivamente o 
















Existe algum limite máximo para o pe- 
ríodo de medida de tempo? 

Sim, existe — embora normalmen- 
te seja tão longo que, na prática, não 
faz diferença. O relógio interno da 
maioria dos computadores domésticos 
corre a velocidades semelhantes. O fa- 
tor limitante, portanto, é o número má- 
ximo de impulsos de relógio que o com- 
putador pode armazenar. As linhas 
TRS-Color e MSX utilizam dois bytes; 
por isso podem contar até 65 535 im- 
pulsos de relógio, um a cada 1/50 de 
segundo. Isso dá uma capacidade má- 
xima de temporização de cerca de 22 
minutos. Já os micros da linha Spec- 
trum usam 3 bytes, o que lhes dá cer- 
ca de quatro dias de medida contínua 
de tempo! 


Como funciona o cronômetro interno 
de um microcomputador? 

Todo microcomputador tem um dis- 
positivo interno para sincronização das 
atividades da Unidade Central de Pro- 
cessamento, que é chamado de relógio 
ou clock. Esse relógio interno tem por 
função gerar pulsos elétricos repetidos 
a uma frequência constante para cada 
micro: essa frequência é chamada de 
velocidade de relógio, e seu valor va- 
ria conforme a marca do computador. 

Por exemplo, o Apple Il tem relógio 
de | MHz (megahertz, ou seja, um mi- 
lhão de “batidas” de relógio por segun- 
do); o TRS-BO tem 2,7 MHz, e assim 
por diante. Mas esse temporizador in- 
terno não pode ser aproveitado para 
medir o tempo como um verdadeiro 
cronômetro. 








cronômetro, armazenando o seu valor 
naquele momento na variável T. A linha 
100 exibe “BANG!!”. 

Existe uma pausa introduzida pelas 
linhas 110 e 120 (a linha 110 somente no 
Spectrum) antes que um novo retardo 
inicial de tempo seja sorteado pelo pro- 
grama. Isto é feito pela linha 130 do 
programa. 

Em seguida, o computador sorteia 
uma variável aleatória M, que conterá 
o tempo levado pelo computador para 
“sacar” sua arma. As linhas 140 a 160 
comparam os valores T (do jogador) e 
M (da máquina) e declaram quem foi o 
vencedor do duelo (ou se ambos os due- 
listas morreram!). 












ORGANIZE AS 
SUAS COLEÇÕES (1) 


As pessoas que nunca utilizaram um 
computador pessoal sempre perguntam 
que tipo de aplicações domésticas ele po- 
deria ter. As respostas dadas, porém, ra- 
ramente são convincentes. 

Neste artigo apresentamos um pro- 
grama que pode ser útil para muitas pes- 
soas. Ele é um programa de banco de 
dados, ou seja, de organização e recu- 
peração de qualquer tipo de informação 
que possa ser fichada. E um sistema de 
arquivamento tão flexível que pode en- 
contrar dezenas de aplicações no seu 
dia-a-dia. Ele é muito útil, por exemplo, 
para armazenar os nomes € os endere- 
ços de amigos ou membros de um clu- 
be, ou tomar notas dos aniversários da 
família e dos amigos, ou armazenar de- 
talhes sobre suas coleções de moedas, 
borboletas, discos ou receitas, ou até 
mesmo organizar melhor a sua crescen- 
te coleção de jogos de computador. 

O único limite para o que se pode fa- 
zer com esse programa está no tamanho 
da memória RAM do seu micro. Na 
maioria das vezes, o mínimo necessário 
para aplicações práticas é uma máqui- 
na com 32K 

Seja como for, é necessário lembrar 
sempre o seguinte: como as memórias 
dos computadores domésticos são pe- 
quenas, em compara: ão com as das má- 
quinas profissionais, quanto menos vo- 
lumosa a informação a ser mantida pe- 
lo computador, melhor. 


PESA 


Assim que você rodar o programa pe- 
la primeira vez, através do comando 
RUN, o menu principal será imediata- 
mente impresso na tela. Ele consiste nu- 
ma lista de coisas que se pode fazer com 
o arquivo, como ““entrar um registro” 
por exemplo, ou “pesquisar o arquivo” 


EUR 


Os computadores necessitam de de- 
talhes precisos do que se quer, antes de 
qualquer operação. Para abrir um no- 
vo arquivo é necessário primeiro dizer 
o computador o número de registros 
BE que se quer e a extensão máxima que ca- 








da registro pode ter. “ABRIR UM AR- 
QUIVO” é a opção 1 do menu princi- 
pal; assim, para selecioná-la, você deve 
pressionar a tecla 1: as palavras “VO- 
CÊ TEM CERTEZA?” aparecerão na 
tela. Essa reação da máquina é uma pre- 


caução contra o pressionamento aciden- 4 


tal da tecla 1, pois chamar a rotina dé 
“ABRIR UM ARQUIVO” quando & 
sistema de arquivamento já estiver ar- 
mazenando dados pode comprometer 
todo o trabalho. 

Se você tiver certeza de que quer abrir 
um novo arquivo, pressione S. Masse 
o arquivo já estiver armazenandg dados 
e você não deseja apagá-los, pressione 
qualquer outra tecla, e o progfâma re- 
tornará ao menu principal 


RE RE 


Uma vez que você tenha pressionas 
do o para continuar, o computador 
perguntará quantos campos você quer. 
*Campos” são os itens de informação 
que você quer armazenados em cada re- 
gistro. Por exemplo, se você quer regis- 
trar dados sobre os seus amigos, pode- 
riam ser definidos os seguintes campos: 
nome, endereço, cidade e número do te- 
lefone — quatro ao todo. 

Este programa só permite um núme- 
ro máximo de oito campos para um re- 
gistro individual; do contrário, ele não 
poderia exibi-los, todos, na tela ao mes- 
mo tempo. Uma vez fornecido o núme- 
ro de campos a pergunta seguinte do 
computador será: “Qual o nome do 
campo 17". (No exemplo acima, a res- 
posta poderia ser NOME.) 

A seguir, O programa pede a exten- 
são do primeiro campo, isto é, o núme- 
ro máximo de caracteres que ele pode 
conter. 

A extensão máxima para qualquer 
campo permitida no programa é de de- 
zenove caracteres. Isso significa que, se 
a informação que se quer arquivar — 
um endereço, por exemplo — não cou- 
ber nessa extensão, é preciso dividir o 
campo em duas ou mais partes. No ca- 
so de um endereço isso pode ser feito 
por meio da definição de campos sepa- 
rados para a rua, número da casa, 
dade, código postal, etc. 


















Seu caderninho de endereços está uma 
bagunça? Sua coleção de discos 

tem mais problemas do que discos? Eis 
aqui um programa que o ajudará 

a colocar ordem nesse caos. 








De posse da informação sobre o pri- 
meiro campo, o computador fará a mes- 
ma pergunta sobre o segundo campo, o 
terceiro, e assim por diante. Obviamen- 
te, quanto menores forem os nomes dos 
campos e os números dos caracteres em 
cada campo, mais registros poderão ser 
retidos no arquivo. 

Isto feito, o computador calculará 
para quantos registros ele tem espaço na 
memória. Esse número será exibido na 
tela. No programa para o TK-90X, vo- 
cê deve especificar quantos registros 
quer armazenar, evitando que o compu- 
tador gaste tempo excessivo gravando 
ou lendo longos arquivos da fita. 








[eo RR 


Terminado o processo de criação de 
um novo arquivo, o programa trará de 
volta o menu principal, onde você deve 
selecionar a opção 2 (tecla 2), para ini- 
ciar a entrada da informação em seus re- 
gistros. 

No alto da tela, o computador man- 
terá uma contagem dos registros que vo- 
cê já entrou, juntamente com o espaço 
total disponível na memória. Essa linha 
de informação dirá, por exemplo: ““Vo- 
cê utilizou 10 dos 100 registros”. 

Logo abaixo disso; na tela, serão exi- 
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bidos os nomes dos campos. O cursor 
aparecerá na última linha do vídeo, de 
tal modo que tudo que você escrever pe- 
lo teclado será registrado no campo exi- 
bido. Lembre-se de manter a informa- 
ção digitada tão curta quanto possível 
e dentro da extensão máxima de carac- 
teres que você estabeleceu para cada 
campo. 

Quando você pressionar a tecla < EN- 
TER> ou <RETURN>, a informação 
digitada será impressa próxima ao nome 
do campo. A linha inferior da tela será 
limpa e ficará pronta para o próximo 
campo. Esse procedimento começa com 
o primeiro campo no alto da tela e pros- 



















































segue por toda a tela cada vez que você 
digita uma informação e pressiona 
<ENTER> ou <RETURN>. Quan- 
do você tiver entrado o último campo do 
registro, o computador irá para o pró- 
ximo registro a ser entrado. Se você pres- 
sionar a tecla <ENTER> ou <RE- 
TURN> novamente, antes de começar 
a digitar o primeiro campo, o computa- 
dor trará o menu principal de volta. 


BUT EL 


Rara examinar os registros que você 
gAlroM, selecione a opção número 3 do 
membpyincipal, “VER REGISTROS”, 
pressidmândo a tecla 3. O primeiro re- 
gistro SERÁ então exibido na tela — não 
necessariamente o primeiro que você in- 
troduziúdmas o primeiro de acordo com 
o própao método de seleção do 
programa. 

Os metodos de arranjo dos compu- 
fadores variam muito pouco. Mas, de 
modo geral, eles selecionam os registros 
em ordem alfabética através do primei- 
ro campo, o qual, em muitos casos, se- 
rá “NOME”. Para fazer isso, 0 com- 
putador examina a primeira letra do pri- 
meiro campo de todos os registros e os 
ordena alfabeticamente. Se mais de um 
registro tiver a mesma inicial, ele os or- 
dena em função da segunda letra, e as- 
sim por diante. 

Quando o primeiro campo contiver 
algarismos, o computador selecionará 
sempre um deles antes de qualquer le- 
tra; mas prosseguirá com o mesmo mé- 
todo de ordenação, dígito por dígito, 
quando estiver decidindo entre núme- 
ros, além de olhar para o número como 
um todo. Em outras palavras, se você 
colocar os números de 1 a 100 no pri- 
meiro campo, por exemplo, o compu- 
tador ordenará em primeiro lugar os nú- 
meros 1, 10, 11, 12, 13, 14, 15, 16, 17, 
18, 19 e 100 antes de movimentar-se pa- 
rao2,20, 21, etc. A maneira de se con- 
tornar esse problema é evitar o empre- 
go de números no primeiro campo ou 
entrar os números com zeros à esquer- 
da, como, por exemplo: 001, 002 ...010, 
011 ... até 100. 

Quando, por outro lado, se utiliza 
uma mistura de letras maiúsculas e mi- 
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núsculas, o computador escolhe primei- 
ro as maiúsculas. Assim, “ABC Limi- 
tada” poderá ser antes de “Aarão e 
Companhia”, Dependendo do que o ar- 
quivo de dados contiver, pode ser que 
o mais conveniente seja você digitar to- 
das as informações apenas em letras 
maiúsculas, para resolver o problema. 
Se o seu computador aceitar caracteres 
acentuados, você poderá ter problemas 
na ordenação, pois na codificação bra- 
sileira para os caracteres (adotada, por 
exemplo, para os micros da linha MSX) 
as letras acentuadas aparecem depois 
das minúsculas, na ordem alfabética. 
Quando você pedir para ver os regis- 
tros, aparecerão as seguintes opções: 


PROSSEGUE RETORNA MENU 


escritas na parte inferior da tela. Se vo- 
cê pressionar a tecla P, o computador 
exibirá o registro seguinte; se você pres- 
sionar o R várias vezes, ele se movimen- 
tará rapidamente através de todo o ar- 
quivo, registro por registro. 

Uma pressão na tecla R traz de volta 
à tela o registro anterior ao exibido. As- 
sim, usando apenas o Pe o R, você po- 
de percorrer o arquivo, registro por re- 
gistro, para a frente e para trás. Já a te- 
cla M provoca o retorno ao menu prin- 
cipal, qualquer que seja o ponto onde 
você estiver no arquivo. 

Embaixo da primeira linha de opções 
aparecerá uma segunda com as seguin- 
tes alternativas: 


CORRIGE APAGA IMPRIME 


Essas funções não constam do atual 
programa e serão explicadas no próxi- 
mo artigo desta série. Portanto, nada 
acontecerá se você tentar usá-las na pres 
sente versão do programa. 


ARMAZENE ARQUIVOS NA MEMÓRIA 


À medida que você fof entrando da- 
dos nos registros do.seu arquivo, eles se- 
rão armazenados na memória principal 
(memória RAM) do computador, den- 
tro do limite máximo no número de re- 
gistros, calculado pelo programa. E ne- 
cessário, portanto, armazenar esse ar- 
quivo em fita magnética, se você quiser 
desligár o computador; caso contrário, 
perderá toda a informação digitada. 
Posteriormente, quando você quiser 
modificar ou acrescentar dados, consul- 
tar ou listar o arquivo, poderá carregar 
de volta o arquivo para a memória 
RAM do computador, lendo-o em fita. 

Na maioria das versões do programa 
listadas abaixo, o menu principal ofe- 
rece as duas mencionadas opções ao 
usuário: gravar ou carregar O arquivo de 





dados. A única exceção é a versão para 
os micros da linha Sinclair, que gravam 
o programa juntamente com os dados 
contidos em memória. 

Quando você quiser salvar o seu ar- 
quivo nos micros das linhas TRS-Color 
ou MSX, pressione a tecla 5 para sele- 
cionar a opção de armazenamento no 
menu principal, e o computador lhe pe- 
dirá que dêum nome qualquer ao arqui- 
vo. Uma vez que você tenha teclado o 
nome do arquivo e pressionado < RE=- 
TURN> ou <ENTER>, o computa- 
dor pedirá que você posicione o grava- 
dor para a gravação, apertando as teclas 
RECORD e PLAY, e pressionando = 
<ENTER> em seguida. Enquanto gra- 
xa, o computador mantém você infor- 
mado. O tempo de gravação depende do 
número de registros a ser armazenado. 

Nos micros da linha Sinclair, a fun- 


ção de gravação é ativada de forma di- 
ferente da anterior. Neste caso, selecio- 
ne primeiro a opção 7 (SAÍDA) no me- 
nu principal. Em seguida, usando o co- 
mando SAVE normal, digitado direta- 
mente pelo teclado, acione o gravador e 
grave o programa, dando-lhe um nome 
adequado. Os dados serão gravados con- 
juntamente, conforme já foi explicado 

Posteriormente, quando quiser con- 
sultar o arquivo, você deve (nos micros 
das linhas citadas acima) carregar o 
computador em dois estágios. Inicial- 
mente, é necessário carregar o progra- 
ma, utilizando o comando normal 
LOAD (ou CLOAD) de sua máquina 
Em seguida, deve-se mandar executar o 
programa, acionando o comando RUN, 
e selecionar a opção 6 no menu princi- 
pal, “CARREGAR ARQUIVO”. O 
computador pedirá então o nome do ar- 








quivo desejado. Quando você tiver te- 
clado o nome do arquivo e presa 








Q A 
POSIÇÃO PLAY E P 
<ENTER>”. 

Assim que a fita cassete começar a 
rodar, o computador a examinará até 
encontrar o arquivo que você deseja, o 
qual será carregado (o que poderá de- 
morar algum tempo). Concluída a ope- 
ração, ele dirá que o arquivo foi carre- 
gado corretamente, Se o arquivo que vo- 
cê quiser não estiver na fita, o compu- 
tador testará todos os arquivos que en- 
contrar nela, até o final. De qualquer 
maneira, no final, o programa fará re- 
tornar o menu principal. Só então você 
poderá selecionar a opção 6 novamente 
e procurar outro arquivo para carregar. 

Nos micros da linha Sinclair, como é 
ocaso do TK-90X, os dados e o progra- 
ma principal são carregados juntos. Uma 
vez que tiver carregado o primeiro arqui- 
vo utilizando o comando LOAD padrão, 
poderá carregar outros arquivos por 
meio da opção 6 no menu principal. 

A versão do programa para compu- 
tadores da linha Apple também tem fun- 
ções de menu iguais às dos micros já 
considerados. A única diferença é que 
o programa utiliza arquivos em disque- 
te, para armazenamento e recuperação 
de dados, pois não funciona satisfato- 
riamente com fita cassete. 

Os programas listados contêm gran- 
des intervalos em seus números de linhas 
— da linha 2000 à linha 6000. 

Todavia, isso foi feito intencional- 
mente. Digite os programas exatamen- 
te como estão, pois as linhas que faltam 
serão utilizadas para incorporar as par- 
tes responsáveis pelas funções de modi- 
ficação, apagamento, impressão e cru- 
zamento de informações dos registros. 

Os detalhes dessas opções estão no 
próximo artigo desta série. 








20 PCLEARI:CLEAR 11000:RS$="P R 
MCAI” :B$=CHRS (128) 

30 CLS:PRINTE32, STRINGS (8,BS$);” 
MENU” ; STRINGS (3,” ");"PRINCIPAL 
"; STRINGS (8,BS$) 
40 PRINT €164,"1-ABRIR UM ARf 
vor 

50 PRINT €196,"2-ENTRAR COM 
REGISTRO” 

60 PRINT €228,"3-VER REGISTA 
70 PRINT €260,"4-OPCAO DE PROCU 
RA” 

80 PRINT €292,"5-SALVAR ARQUIVO 
























PRINT 6235,” ARQUIVO 
ne G=1 TO 5: SCREEN O 
O 500:NEXT 
:FOR F=1 TO 500: 
NEXT F,G: RETURN 
3000 RETURN:REM LINHA TEMPORARI 


90 PRINT 6324, 
vo” 

100 PRINT 6356 
110 PRINT 4 
120 


ç. o Rana :IF INS<º1 


130 IF INS <>"1” AND INS 
ND R=0 AND INS<>"7"THEN 120 
140 SOUND 30,1:CLS:IN=VAL (II 
150 ON IN GOSUB 1000,2000,6! 
5000,7000,8000,9000 

160 GoTO 30 

1000 PRINT €41,"ABRIR UM 
O”:PRINT 8231,"VOCE TEM CER! 
(S/N)?” 

1010 INS=INKEYS:IF INS<>"S” 
INS<>"N” THEN 1010 

1020 IF INS<>"S"THEN RETURN 
1030 IF R>0 THEN RUN 9200 

1040 CLS:PRINT €41,"ABRIR UM AR 
QUIVO” , 
1050 PRINT €385,"NUMERO DE C, 
OS(1-8)";: INPUT A: A=ABS(INT(A) 
, 
1060 IF A>8 OR A<l THEN 1050 
1070 DIM A(A),NS(A) x 
1080 PRINT 6384,"":PRINT 696,"" 6 
:FOR N=l TO À 

1090 PRINT:PRINT"NOME DO CAMPO” 
;N;"2";:LINEINPUT NS (N) :NS(N) =L 
EFTS(NS(N),10) 

1100 PRINT"COMPRIMENTO DO CAMPO 

: INPUT A(N):A(N)=ABS (INT(A( 


"6-CARREGAR 






A 
4000 RETURN:REM LINHA TEMPORARI 







RETURN:REM LINHA TEMPORARI 








D=1 
IF NR<1 THEN 6170 
GOSUB 8500 
8451," pROSSEGUE r 
CORRIGE aPAGA 












AND Ei 
INS=INKEYS:IF INS="" THEN 


N=INSTR (1,R8: N$) 
IN GOTO 6) 080,6090, 



























N 
N))) 
1110 IF A(N)>19 OR A(N)<1 THEN 
1100 
1120 TS=TS+A(N) 

1130 NEXT:R=INT(11000/(5+5*A) 

1:PRINT” NUMERO MAXIMO DE REG 

TROS=";R 

1140 DIM AS(R,A):FOR I=1 TO 
0:NEXT:RETURN 

2000 G=0 

2010 IF NR=R THEN 2180 
2020 NR=NR+1 

2030 CLS:PRINT €0,"VOCE USOU "; 
NR-1;" DOS ";R;” REGISTROS DISP 
ONIVEIS” 

2040 FOR N=1 TO A:PRINT € 
2,.NS(N);” :":PRINT 8448,” 
T e416,"" 

2050 PRINT 8416," (ATE ";A 
ARACTERES) ";:LINE INPUT 
+ N) 

2060 IF AS(NR,N)= 
















COMO TORNAR UM PROGRAMA 
LONGO MAIS FÁCIL DE DIGITAR 

Digitar um programa longo escrito 
por outra pessoa pode ser uma tarefa 
bastante trabalhosa e desanimado- 
ra, mesmo para os mais persistentes. 
Mas você pode torná-la mais fácil, e 
gratificante, digitando apenas uma cur- 
ta seção de cada vez e testando-a em 
seguida. 

Alguns programas estão estrutura- 
dos em seções ou módulos mais ou 
menos independentes, tais como sub- 
rotinas, procedimentos e laços, mas se 
você não conseguir identificá-los digi- 
te apenas seções curtas de 20 ou 30 
linhas. 

Quando nada se sabe de programa- 
ção BASIC, a chance de errar uma li- 
nha e não perceber é relativamente 
grande, pois a mudança de apenas um 
pequeno sinal ou letra já é suficiente 
para impedir que o programa funcione 
corretamente. 

Eis aí um bom incentivo para você se- 
guir também o curso de programação 
BASIC de INPUT, de modo sistemáti- 
co e desde o começo. 
























jo IF AS(C,1)>=AS(C-1,1) THEN | 
150 

120 FOR N=1 TO A:XS=AS(C,N) 
AS (C-1,N) :AS(C-1,N) =X: 

















IF C=1 THEN 2150 
SoTo 2110 

Goto 2010 
NR=NR-1 

RETURN 

























R F=1 TO 300:NEXT:SCREEN 0,0:FO 
R F=1 TO 30 EXT F,G:RETURN 
7000 AUDIOON:MOTORON:CLS: PRINT 
€65,"POSICIONE O GRAVADOR E PRE 
SSIONE <ENTER>"; 

7010 INS=INKEY$:IF INS<>CHRS(13 
) THEN 7010 

7020 MOTOROFF:PRINT €129,"CoLOQ 
UE O GRAVADOR EM POSICAO '"REC* 
E PRESSIONE <ENTER>”; 

7030 INS$=INKEY$S:IF INS<>CHRS(13 
) THEN 7030 

7040 PRINT: INPUT” 
VO ";FIS 

7050 CLS6:PRINT 6232, 
";FIS; 

7060 MOTORON:FOR I=1 TO 1000:NE 
XT 

7070 OPEN"O”,4-1,FIS 

7080 PRINT&-1,FIS,R,A,NR 

7090 FOR N=1 TO A:PRINT&-1,NS(N 
) .A(N) NEXT 


7100 C=1 

7110 IF AS(C,1)="" THEN 7140 
7120 FOR N=1 TO A:PRINT&-1,AS(C 
+N) NEXT 

7130 C=C+1:GOTO 7110 

7140 CLOSE4-1: RETURN 

8000 CLS:PRINTE70,"VOCE TEM CER 
TEZA (8/N)?” 

8010 INS=INKEYS:IF INS<>"S” AND 
INS<>"N” THEN 8010 

8020 IF INS="N” THEN RETURN 
8030 AUDIOON:MOTORON:CLS:PRINT 
865,"POSICIONE O GRAVADOR E PRE 
SSIONE <ENTER>" 

8040 INS=INKEYS:IF INS<>CHRS (13 
) THEN 8040 

8050 MOTOROFF: PRINT €129,"CoLOQ 
UE O GRAVADOR NA POSICAO "PLA 
Y' E PRESSIONE <ENTER>” 

8060 INS=INKEYS:IF INS<>CHR$(13 
) THEN 8060 

8070 IF R>O THEN RUN 9210 

8080 INPUT ” NOME DO ARQUIVO" ;F 





NOME DO ARQUI 


"GRAVANDO 





CLS7:PRINT €231,”PROCURAND 


OPEN "I”, 
INPUT 1,FIS 
PRINT 86231,” ACHEI 





"4FIS; 


INPUT4-1,R,A,NR 

DIM A(A) ,NS(A) ,AS(R,A) 

FOR N=1 TO A: INPUT$-1,NS(N 
) + A(N) :NEXT 

8160 C=1 

8170 IFEOF(-1) THEN 8200 

8180 FOR N=1 TO A:INPUT 4-1,AS( 
CN) 
8190 NEXT: C=C+1:GOTO 8170 

8200 CLOSE &-1:RETURN 

8500 CLS:PRINTEO,"NUMERO DO REG 
ISTRO”;D:FOR N=1 TO A:PRINT €32 
*N+32,NS(N);” :";TAB(13);AS(D,N 
) NEXT: RETURN 

9000 cLS4 PRINT €70,"VOCE TEM 
CERTEZA (S/N)?"” 

9010 INS=INKEYS:IF INS<>"S” 
INS<>"N” THEN 9010 

9020 IF IN$="N” THEN RETURN 
9030 CLS: END 

9200 GOSUB 1040:GoTO 9220 


AND 


9210 GOSUB 8080 

9220 B$=CHR$S (128) :RS$="P RMCAI” 
:GoTO 30 

10000 PRINT 6451," 
RESSORA CONT ” 
10010 PRINT 6480,” 


CHEQUE IMP 








10020 INS=INKEY$:IF IN$="" THEN 
10020 

10030 IF INS<>"C” THEN RETURN 
10040 FOR Y=0 TO A+4:FOR X=0 TO 
31:P=PEEK (1024+X+Y*32) : IFP>95 
AND P<127 THEN P=P-64 

10050 IF P>O AND P<27 THEN P=P+ 
96 

10060 IF P=0 THEN P=32 

10070 PRINT 4-2, RR ONA Pp 
RINT4-2,CHR$ (13) EX 

10080 FOR N=1 TO 3: RINro- 2,CHR 
$(13):NEXT 

10090 RETURN 


5 LET R=0: 
10 BORDER 
POKE 23609,20: 
100 cLS PRINT 
V,10; " MENU 
110 PRINT AT 5,6;"1-Abrir um a 
rquivo” ''TAB 6;"2-Entrar com 
um registro"''TAB 6;"3-Ver reg 
istros”''TAB 6;"4-Opcao de pro 
cura"''TAB 6;"6-Carregar arqui 
vo"''TAB 6;"7-Saida";4V;TAB 6; 
"-SELECIONE OPCAO-" 





LET U=0: LET V=1 
PAPER V: INK 7: 
POKE 23658,8 
INVERSE V;AT 





500 LET IS=INKEYS : IF 1$="" 
THEN GOTO 500 

510 IF IS<"1” OR 18>"7" THEN 
Goro 500 

520 IF R=U AND 15<>"1” AND 
IS <>"6" AND IS<>"7" THEN 
goto 500 

530 SOUND .1,10: CLS : GOSUB ( 
CODE IS -48)*1000: GOTO 100 


1000 PRINT AT 7, 
teza?”: PAUSE U: 
HEN GOTO 1000 

1010 IF INKEY$<>"S” THEN RETUR 





"Voce tem cer 
IF INKEYS="" T 


N 

1020 PRINT INVERSE V;AT 10,5;" 
CRIAR UM NOVO ARQUIVO " 

1030 INPUT AT 0,0;"Numero de ca 
mpos(1-8)? ";A: IF acl OR a>8 T 
HEN GOTO 1030 
1040 DIM A(A): DIM B(A+V): DIM 
NS(A,10): LET T=U: FOR N=V TO A 
1050 INPUT AT 0,0;"Nome do camp 
o ";(N);”" ? "; LINE NS(N) 

1060 INPUT AT V,0;"Comprimento 
do campo ";(N):” 7 ";A(N): IF A 
(N)>50 THEN GOTO 1060 

1070 LET B(N)=T: LET T=T+A(N): 
NEXT N: LET B(N)=T 

1080 PRINT AT 16,2;"Espaco para 
";INT (((PEEK 23730+256*PEEK 2 
3731)-29500)/T);” registros” 
1090 INPUT "Quantos registros? 
";R: DIM AS(R,T): RETURN 


2000 LET C=V 

2010 IF AS(C,V)=" " THEN GOTO 
2100 

2020 IF C=R THEN GOTO 2500 


2030 LET C=C+V: GOTO 2010 

2100 PRINT AT 0,0;"Voce usou "; 
C-v;” dos ";R;" registros á 
isponiveis” 

2110 FOR N=V TO A: PRINT INVER 
SE V;AT V+N*2,U;NS(N); INVERSE 
O;AT V+N*2,12; FLASH V;"?": INP 
UT "(ate "; (A(N));” caracteres) 
", LINE AS(C,B(N)+V TO B(N+V)): 
PRINT AT V+2*N, 1Z:;AS(C,B(N)+V 
TO B(N+V)): NEXT N 
2120 FOR F=V TO 150: 
C=V THEN RETURN 
2130 LET N=C 

2140 IF AS(C)>=AS(C-V) THEN RE 
TURN 
2150 


NEXT F: IF 


LET XS=AS(C): LET AS(C)=AS 


(C-V): LET AS(C-V)=X$S: LET C=C- 
V: IF C=V THEN RETURN 

2160 Goto 2140 

2500 CLS PRINT FLASH 1;AT 10 





BIA RQULIVO CHETO 
":; FOR F=V TO 400: NEXT F: RETU 
RN 

3000 LET D=V: IF AS(V,V)=" " TH 
EN RETURN 

3010 IF D=U THEN LET D=V 

3015 IF D-V=R THEN LET D=D-V 
3020 IF AS(D,V)=" " THEN LET D 
=D-V 

3030 GOSUB 9500 

3040 IF OP=V THEN LET D=D+V: G 
oTOo 3010 

3050 IF OP=2 THEN LET D=D-V: G 
oTO 3010 

3060 IF OP=3 THEN RETURN 

3070 IF OP=4 THEN GOSUB 8000 
3080 IF OP=5 THEN LET MD=V: GO 
SUB 9000: IF D=U THEN RETURN 


3090 GoTo 3030 
4000 RETURN 
RIA 

5000 INPUT "Digite o nome do ar 
quivo "; LINE QS: IF LEN QS<V 
OR LEN Q$>10 THEN GOTO 5000 
5010 SAVE QS LINE 10: RETURN 
6000 PRINT AT 8,U;"Digite o nom 
e do arquivo a sercarregado, 
ou somente <ENTER> para carrega 
r o primeiro arquivo” 
6010 INPUT LINE X$: 
10 THEN GOTO 6010 
6020 PRINT AT 13,U;"PRESSIONE P 
LAY NO GRAVADOR”: LOAD X$S 

7000 PRINT AT 10,8;"Voce tem ce 


REM LINHA TEMPORA 


IF LEN Xx5> 


rteza?": IF INKEY$="" THEN GOT 
o 7000 

7010 IF INKEYS<>"S” THEN RETUR 
N 

7020 RAND USR U 

8000 RETURN : REM LINHA TEMPORA 
RIA 

9000 RETURN : REM LINHA TEMPORA 
RIA 

9500 PRINT AT U,U;"Registro num 
ero ";D;” ": FOR N=V TO A: PRI 


NT INVERSE V;AT V+2*N,U;NS(N); 
INVERSE U;TAB 12;AS(D,B(N)+V T 


O B(N+V)): NEXT N 

9510 PRINT INVERSE V;AT 20,U;” 

P(rossegue) R(etorna) M(enu) 
E (menda) A(paga) I(mprim 

e)” 





9520 IF INKEYS="" THEN GOTO 95 
20 

9530 LET VS=INKEYS: IF VS="I" T 
HEN COPY : LPRINT : LPRINT : L 
PRINT : GOTO 9520 

9540 LET OP=U: IF V$="P” THEN 
LET OP=V: LET MO=V 

9550 IF V$="R” THEN LET OP=2: 
LET MO=-V 

9560 IF V$="M” THEN LET OP=3 
9570 IF VS="E” THEN LET OP=4 
9580 IF VS-"A” THEN LET OP=5 
9590 IF OP=U THEN GOTO 9520 
9600 SOUND .1,10: RETURN 


| 


10 KEYOFF:MOTOROFF 
20 CLS:CLEAR:R$="P RMCAI” 


30 CLStLOCATE 5,1:PRINT" M E N 





U PRINCIPAL” 

40 LOCATE 9,5:PRINT"1:-ABRIR UM 
ARQUIVO” 

50 LOCATE 9,7:PRINT"2:-ENTRADA 
DE REGISTROS” 

60 LOCATE 9,9:PRINT"3:-LISTAR R 
EGISTROS” 

70 LOCATE 9,11:PRINT"4:-BUSCA D 
E INFORMAÇÕES" 

80 LOCATE 9,13:PRINT"S:-GRAVAR 
UM ARQUIVO” 

90 LOCATE 9,15:PRINT"6:-CARREGA 
R UM ARQUIVO" 

100 LOCATE 9,17:PRINT"7:-FIM DE 
PROGRAMA” 

110 LOCATE 14,19:PRINT"OPÇÃO: " 


120 IN$=INKEYS:IF INS$<"1"ORIN$S> 
"7" THENIZO 
130 IFIN$<>"1"ANDINS<>"6"ANDINS 















































<>"7"ANDR=OTHEN 120 



































140 PRINTCHRS (7) 
5) 

150 ON IN GOSUB 1000,2000,6000, 
5000,7000,8000,9000 

160 Goto 30 

1000 LOCATE 7,0:PRINT"MONTAR UM 
NOVO ARQUIVO”: LOCATE 7,14:PRIN 
T"Você tem certeza (S/N)?”; 
1010 IN$=INKEY$S:IFINS<>"S"ANDIN 
5<>"N"THEN 1010 

1020 IFIN$<>"S"THEN RETURN 
1030 IFR>OTHEN RUN 9200 

1040 CLS:LOCATE 7,0:PRINT"MONTA 
R UM NOVO ARQUIVO” 

1050 LOCATE 4,2:PRINT"Número de 
campos (1-8) ";:INPUT A:A-ABS( 
INT(A)) 

1060 IF A>8 OR A<l THEN1050 
1070 DIM A(A) .NS(A) 

1080 LOCATE 0,6:FOR N=1TOA 
1090 PRINT:PRINT"Nome do campo 
"NG"? ";:LINEINPUTNS (N) :N$ (N) = 
LEFTS(NS(N),10) 

1100 PRINT"Tamanho do campo ";N 
; 5 INPUTA (N) :A (N) =ABS (INT (A (N))) 
1110 IFA(N)>250RA (N) <ITHENI100 
1120 TS=TS+A(N) 

1130 NEXT:R=INT(3000/(TS+3%A)): 
PRINT:PRINT"Número máximo de re 
gistros =>";R 

1140 DIMAS (R+1,A) :FORI=1TO1O00: 
NEXT: RETURN 


2000 6-0 

2010 IFNR=RTHEN2190 
2020 NR=NR+1 

2030 CLS:PRINTNR-1;" de 
egistros em uso” 

2040 FORN=1TOA:LOCATEO,N*2+2:PR 
INTNS (N);": ":LOCATEO,22:PRINTC 
HR$ (5); : LOCATEO, 23: PRINTCHRS (5) 


: CLS: IN=VAL (IN 








PRI E 


2050 LOCATEO,23:PRINT"Até ";A(N 
)J;” caracteres”; 

2060 LOCATEO,21:PRINTCHRS(21);: 
LINEINPUTAS (NR, N) 

2070 IFAS(NR,N)=""ANDN=1THENN=A 
:6=1:G0TO2090 

2080 AS(NR,N)=LEFTS(AS(NR,N) ,A( 
N)) :LOCATE12,N*2+2: PRINTAS (NR,N 
) 

2090 NEXT 

2100 IFG=1THEN2170 

2110 C=NR:FORF=1TO500:NEXT:IFNR 
=1THEN2160 

2120 IFAS(C,1)>=AS(C-1,1)THENZI 
60 

2130 FORN=1TOA:SWAPAS (C,N) ,AS(C 
=1,N) :NEXT:C=C-1 

2140 IFC=1THENZ160 

2150 GOTO2120 

2160 GoTO2010 

2170 NR=NR-1 

2180 RETURN 

2190 CLS:LOCATE1O,15:PRINT"ARQU 
IVO CHEIO!”:FORF=1T01000:NEXT 
2200 RETURN 

3000 RETURN:REM LINHA TEMPORARI 


A 
4000 RETURN:REM LINHA TEMPORARI 


A 
5000 RETURN:REM LINHA TEMPORARI 





A 
6000 D=1 





6010 IFNR<ITHEN6170 30 INPUT$L,R,A,NR 15: HTAB 10: PRINT ” VOCE CONF 



































6020 GOSUBB500 40 DIMA(A).NS(A) AS(R.A) IRMA? NA ide 

6030 LOCATI RINT" [P]rosseg 8150 FORN=ITOA: INPUT (NM) ,A( 1005 ie 

ue [Ret Jenu  [Clo N):NEXT E 1010 NPIP INS < > "s” 
rrige t prime” 8160 C=1 E AND 1 > "N” THEN 1010 

: 8170 IFEOF (1) THEN8200 1020 INS < > "S” THEN RET 
6040 INS$=INKEYS:IF THEN604 8180 FORN=ITOA:INPUT$1,AS(C,N) — URN 

º 8190 NEXT:C=C+1:GOTOB170 1030 IF R > O THEN CLEAR :DS 
6050 IN=INSTR(1,R$,INS) 8200 CLOSEHL: RETURN - CHR$ (4):IN = 1: HOME : GOTO 
6060 ON IN GOTO 6080,6080.6090, 8500 CLS:PRINT"Numero do regist 150 

6100,6110,6120,6130 | “ro =>";D: FORN=ITOA:LOCATEO,NX2+ 1040 HOME |; HTAB 6: INVERSE 
6070 GOTO6030 2:PRINTNS(N);” :";;LOCATEI3:PRI PRINT ” MONTAR UM NOVO ARQUIVO 
6080 D=D+1:COTO6140 NTAS (D,N) :NEXT: RETURN ”; NORMAL 

6090 D=D-1:GOTO6L 9000 CLS:LOCATEIO,15:PRINT"Você 1050 VTAB 3: HTAB 5: PRINT “NU 
6100 RETURN tem certeza? (S/N) " MERO DE CAMPOS (1-8): ";: INPUT 





6110 GOSUB3000:G0T06020. é 9010 IN$=INKEYS:IFINS<>"S"ANDIN A 

6120 GOSUB4000:GOTO60L0 18 1 S$<>"N"THEN9010 1060 IF A>BORA<ãITHENIO 
6130 GOSUB10000; 20 — - 9020 IFN$-="N” THENRETURN 50 

6140 IFD>NRTHEND: w 9030 CLS:END 1070 DIM A(A).NS(A) 

6150 IFD<ITHEN 4 = 9200 GOSUB1040:GOT09220 1080 VTAB 7: FORN = 1 TOA 
6160 Goto 6010 9210 cosuB8080 1090 PRINT "NOME DO CAMPO "; 
6170 CLS:LOCATI RINT"ARQU 9220 R$="P RMCAI" INPUT NS(N):NS(N) = LEFT 


IVO VAZIO!” 10000 CLS:LOCATE10,15:PRINT"CHE $ (NS (N),10) 
6180 FORF=1T0500:NEXT:RETURN QUE À IMPRESORA" 1100 PRINT "TAMANHO DO CAMPO " 
7000 MOTOR:CLS:LOCATEO,5:PRINT” 1  PRINT:LOCATEIZ:PRINT"ALIN GN;” ";; INPUT A(N):A(N) = ABS 








Posicione a fita e tecle [retur EL” (COINT (A(N))) 

n)” INS=INKEYS: IFINKES=""THEN 1110 IF A(N) < 1 OR A(N) > 25 
7010 INS=INKEY$S: IFINS<>CHRS “10020 THEN 1100 

THEN7010 10040 LPRINT:LPRINT"Registro nú 1120 TS = TS + A(N): PRINT 
7020 MOTOR: PRINT:PRI mero ";D 1130 NEXT :R = INT (( FRE (0) 
loque o gravador em ris FORX=1TOA:LPRINT:LPRINT N - 5000) / (TS + 2 * A)): IFR 








vação e pressione [re "4" ;AS(D,X) NEXT > 4000 THEN R = 4000 

7030 INS=INKEYS:IFINS y “loves LPRINT:LPRINT:LPRINT:LPRI 1135 R = 3: REM RETIRAR ESTA L 
THEN7030 df INHAS !LLLLLALLLA A LO a 
7040 PRINT: INPUT"Nome uiv ora CLS:RETURN SEI II 















o ";FLS :FS="CAS:"+FLS 1140 PRINT : PRINT "NUMERO MAX 
7050 LOCATEIO,22:PRINT"Gravando [é] IMO DE REGISTROS: ";R 

1150 DIM AS(R,A): FOR I = 1 TO 
7060) MOTOR: FORI=1T01000:NEXT 20 TEXT : CLEAR :DS = CHR$ (4 2000: NEXT : RETURN 
; 2000 G = 0 
7080 PRINT 41,FLS;","; 25 ONERR GOTO 11000 2010 IF NR = R THEN 2180: REM 
7090 FORNSITOA:PRINT 1", 30 HOME : VTAB |: HTAB 6: INVE CHECK GOTO 









";A(N) NEXT RSE : PRINT" MENU PRI 2020 NR= NR+1 

7100 c=1 NCIPAL”: NORMAL 2030 HOME : PRINT NR - 1;” DE 
7110 IFAS(C,1)=""THEN. 40 VTAB S: HTAB 10: PRINT "l:- ";R;” REGISTROS EM USO" 

7120 FORN=ITOA:PRINT$ = ABRIR UM ARQUIVO” 2040 FORN= 1 TOA: VTABN* 
NEXT 50 PRINT : HTAB 10: PRINT “2:- 2 + 2: PRINT NS(N);":": VTAB 23 





7130 C=C+1:GOTO7110 ENTRADA DE REGISTROS” «CALL = 1988 
7140 CLOSE41:RETURN À E 10: PRINT "3:- 2050 VUTAB 24: PRINT "ATE ";A(N 
8000 CLS:LOCATEIO, 15: );” CARACTERES” ;: VTAB 23: HTAB 
tem certeza? (S/N) ' E 1: INPUT AS(NR,N) 
8010 INS=INKEYS:IFIN 2060 IF AS(NR,N) = "" ANDN = 
S<>"N"THENBOLO : : PRINT "5:- 1 THEN NR = NR - 1: RETURN 
8020 IFINS="N”THENRE 2070 AS(NR,N) = LEFTS (AS(NR,N 
8030 MOTOR:CLS: : PRINT "6: J.A(N)): VTAB N * 2 + 2: HTAB 1 
Posicione a fi 3: PRINT AS(NR,N) 
n)” , : PRINT "7: 2080 NEXT 
8040 INS=INKEY 2090 IF AS(NR,1) > = AS(NR - 
THEN8040 110 : PRINT "O 1,1) THEN 2150 

: ; 2100 FOR C - NR'TO 2 STEP -1 
2110 FORN= 1 TOA:XS = AS(C, 
N):AS(C,N) = AS(C - 1,N):AS(C - 
= X$: NEXT 
NEXT 
FOR F = 1 TO 1000: NEXT : 































8080 PRINT: 

o ";FLS:FS="CAS:"+FLS = E 80 VTAB 3: HTAB 1: CALL - 9 
8090 LOCATEIO,2 RINT"Pro S VTAB 15: HTAB 1 FLASH : P 
dor” ON 3] o HEIO! ” 

8100 OPEN FS FOR INP! 8 k IRS (7): FOR F = 
8110 INPUT 41,F' : PRINT CHARS ( 
8120 CLS:LOCATE 000 HTAB E : É 

ei ";FLS MONTAR UM NOVO Jo : REM LINHA TEMPO 








RARIA 
4000 RETURN 


REM LINHA TEMPO 
5000 : REM LINHA TEMPO 
1 É 
6000 IF NR< 1 THEN ] 
HTAB 12: FLASH : PRINT” 
O VAZIO! ": FOR F = 1 TO. 
NEXT : RETURN Fafe 


POKE 35,22: VTAB 23: INVE 
HTAB 4: PRINT "P";: HTAB 
PRINT "R”;: HTAB 32: PRINT 






6010 D = 1 
6020 
RSE 
18: 


VTAB 24: 
HTAB 20: 


HTAB 8; 
PRINT "A”;: 
PRINT "I NORMAL 
6040 VTAB 23: HTAB 5: 
OSSEGUE”;: HTAB 19; PRINT 
NA”";: HTAB 33: PRINT "ENU” 
6050 VTAB 24: HTAB 9: PRINT "O 
RRIGE”;: HTAB 21: PRINT "PAGA"; 
: HTAB 31: PRINT "MPRIME”; 
6060 GOSUB 6500 
6070 GET INS 
6080 IF INS - CHR$ 
S = "Pp" THEN D= D+]: 
NR THEN D=1 
6090 IF INS = "Rº THEN D =D - 
1: IF D< 1 THEND = NR 
6100 IF IN$< > "I” AND INS < 
> "A” AND INS < > "C” AND IN 
S< > "M” THEN 6060 
6110 POKE 35,24 
6115 IF INS = "M” THEN 


PRINT "C 
HTAB 3 





PRINT "R 
"ETOR 


(32) OR IN 
IF D> 


RETURN 


6120 IF INS = "I” THEN GOSUB 


O programa de arquivamento de 
dados listado neste artigo e no pró- 
ximo pode ser utilizado em muitos ti- 
pos de aplicações, pois o usuário tem 
a oportunidade de definir, ele mes- 
mo, os campos ou diferentes itens de 
informação que constituirão a ficha 
de cadastramento a ser usada. 

Em computação, esse tipo de sis- 
tema flexível, ou programável pelo 
usuário final, é comumente chama- 
do de sistema gerenciador de base de 
dados: além de possuir as funções es- 
senciais de qualquer sistema de cadas- 
tramento, esse sistema também tem 
um módulo de criação do lay out do 
arquivo, conforme o uso que ete terá. 

Uma base de dados, na definição 
mais estrita do termo, é um conjun- 
to de arquivos de computador, que 
tem a mesma finalidade do ponto de 
vista do armazenamento e recupera- 
ção de informações. Normalmente, 
portanto, uma dessas bases inclui 
mais de um arquivo: por exemplo, 
em uma base de dados bibliográficos 
(artigos de revistas), teríamos o arqui- 
vo-mestre, ou arquivo-tombo, o ar- 


10000: GoTo 6020 





















6130 IF INS = "A” 

4000 Ed 

6140 = o 

3000: Go 3,6020 

6150 GOTO 6060 

6500 JVUTAB 1: HTAB 1: 9 
58: PRINT "NUMERO DO REGI E 
Dr INVERSE PRINT D: NO 














6510 FOR I = 1 TO A; VTAB 

2 + 2: PRINT NS$(I);: HTAB 1 
RINT AS(D,1): NEXT : RETURN 
6520 END 

7000 HOME VTAB 10: HTAB 
PRINT "GRAVAR O ARQUIVO” 

7005 PRINT PRINT : HTAB 5: 1 
NPUT "NOME DO ARQUIVO =>" ;ARS 
7010 PRINT HTAB 5: PRINT "CO 
NFERE ? ";: GET IN$ 

7015 IF INS < > "Ss" THEN RE! 
URN 

7020 PRINT : PRINT D$;"OPEN";, 
R$: PRINT DS;"DELETE";AR$S 





7030 PRINT DS;"OPEN";ARS 
7040 PRINT DS;"WRITE”;ARS 
7050 PRINT R: PRINT A: PRINT 


R 
7055 FORI=-1 


1): PRINT A(I): NEXT 

7060 FORJ = 1 TONR 

7070 FORI=1TOA 

7080 PRINT AS(J,1): NEXT : NEX 
T 

7090 PRINT D$S;"CLOSE"; ARS 

7100 RETURN 

8000 CLEAR :DS - CHR$ (4) 
8010 


VTAB 10: HTAB 10: PRINTER 





























TO A: PRINT NS( | 


11000) PRINT DS;"CLOSE”: 


| DADOS” 















HTAB 5: INPUT "NO 
o VIVO =>" ;ARS 
8025 HTAB 5: PRINT "CONFERE ? 
";: GET INS 
8027 IF INS < > "S” THEN GOT 
o 30 
8030 PRINT DS;"OPEN”;ARS 
8040 PRINT D$;"READ";ARS 
8050 INPUT R,A,NR: DIM AS(R,A) 
«NS (A) NA) 
8060 FOR I = 1 TO A: INPUT NS( 
A (I): NEXT 
J= 1 TONR 
“1 TO A 
Bo AS(J,1): NEXT : NEX 





T - 
8073 PRINT Dgs 7 CABMEM ARS 
8078. GOTO 30 





O HOME : VTAB 23: HTAB 9: 
|" CHEQUE ESSORA! 
 HTAB 12: ” ALINHE 

APEL "; 
TAB 1 PRINT PRINT C 








x = 1 TO A: PRINT 
1"; TAB( 15);AS(D 





PRINT : PRINT : PRINT : 
E RINT 
INT CHRS (4);"PR$0” 
60 HOME : RETURN 


coro 2 
0. 


7 


O QUE É UMA BASE DE DADOS? 


quivo de índice por autores, o arqui- 
vo de índice por assuntos, o arquivo 
de nomes de revistas, e assim por 
diante. Todos eles podem ser inter- 
relacionados por meio de um ou mais 
campos em comum (por exemplo, o 
número de tombo do artigo, e o có- 
digo da revista). 

Entretanto, podemos considerar, 
de forma simplificada, que uma ba- 
se de dados com apenas um arquivo 
também pode cair nessa definição. 

o caso do programa listado em BA- 
SIC neste artigo. 

A única condição essencial para 
que ele continue sendo chamado de 
um sistema gerenciador de base de 
dados é que o usuário possa definir 
livremente os campos de informação 
que quer ter em cada ficha (desde 
que, é claro, sejam respeitados os li- 
mites intrínsecos do programa). 


MODELOS DE BASES DE DADOS 


Existem diversas formas de orga- 
nização da informação em uma base 
de dados. Normalmente, todas as 


formas têm pelo menos uma carac- 
terística em comum: a subdivisão do 
arquivo em registros individuais. 

A forma pela qual esses registros 
(ou os campos do registro) são orga- 
nizados é que difere de caso para 
caso. Na verdade, a organização de 
uma base de dados é ditada pelo 
programa aplicativo que a controla, 

A forma de organização mais co- 
mum para uma base de dados é a 
chamada estrutura relacional. Ela é 
bastante fácil de entender e muito in- 
tuitiva, pois se equivale a uma tabe- 
la, ou planilha de dupla entrada, com 
linhas e colunas. Essa tabele é cha- 
mada de relação, daí o nome da es- 
trutura. Como você já deve ter per- 
cebido, o programa listado neste ar- 
tigo é uma base de dados relacional. 

Na estrutura relacional, as linhas 
da tabela correspondem sempre aos 
registros (por exemplo, cada livro de 
uma biblioteca), ao passo que as co- 
lunas correspondem aos diversos 
campos (tais como o nome do autor, 
o título da revista, o ano de publica- 
ção, etc.). 











AS PLACAS 
DE SINALIZAÇÃO 


Uma das instruções mais importantes 
em programação BASIC é o GOTO (''vá 
para”, em inglês). Sua função é alterar 
o fluxo de execução de um programa, de 
modo que, ao invés de simplesmente exe- 
cutar as linhas do programa em ordem 
linear, o computador salta para a linha 
indicada na declaração GOTO. 

Embora possa aparecer na tela como 
duas palavras separadas, GOTO nor- 









malmente é digitada como uma só ex- 
pressão. Nos micros da linha Sinclair, 
você pressiona a tecla marcada GOTO 
para entrar a instrução no computador. 
Em outros tipos de micros, você digita 
GOTO sem o espaço entre GO e TO. 

A palavra GOTO deve ser sempre se- 
guida pelo número da linha para onde 
você quer que o programa salte, como 
no exemplo abaixo: 








Universalmente adotados, os sinais de 
trânsito servem para orientar o 

fluxo do tráfego. No mundo dos micros, 
os comandos GOTO e GOSUB 
cumprem uma função semelhante. 


BSS iéio) 


30 coTo 125 


Em alguns computadores, como os 
da linha Sinclair, em vez de um núme- 
ro, podemos ter uma expressão ou equa- 
ção de cálculo (inclusive o nome de uma 
variável), que assume um valor numé- 
rico quando o programa é rodado. 














E GOTO E GOSUB NA PRÁTICA 


DESVIOS EM UM PROGRAMA 














= PROGRAMAS PARA CÁLCULO, IH UTILIZAÇÃO EM DESVIOS 
ADIVINHAÇÃO DE NOMES COMPLEXOS 

E JOGOS DE DADOS E COMO ACELERAR AS SUB- 

E QUANDO E COMO CRIAR ROTINAS 











É, 


10 LET A=10 
20 GOTO A+5 equivalea Goro 15 
As declarações GOTO permitem 
também que você salte para trás em um 
programa, criando um laço. Esse tipo 
de laço é semelhante àquele que apren- 
demos a montar com as declarações 
FOR...NEXT, embora não haja, neste 
caso, um limite para o número de vezes 
que o programa o executa. O programa 
abaixo calcula o valor da hipotenusa de 
um triângulo retângulo (note de que ma- 
neira os valores em A e B são elevados 
ao quadrado: multiplicando-os por si 
mesmo, o que é mais rápido do que usar 
a operação de exponenciação). 


TITE tis 


10 PRINT "COMPRIMENTO DOS LADOS 
A,B EM CM” 
15 INPUT A,B 








20 LET C=SQR(A*A+B*B) 

30 PRINT"O COMPRIMENTO DO LADO 
Cc E”;C;"cM” 

40 coro 10 


Na linha 20, a função SQR é utilizada 
para extrair a raiz quadrada (SQR é a 
abreviatura de square root, expressão in- 
glesa que quer dizer exatamente “raiz qua- 
drada”) do que está entre parênteses, ou 
seja, a expressão toda significa: “extraia 
a raiz quadrada de A ao quadrado mais 
B ao quadrado, e armazene o resultado 
Esta é a fórmula de Pitágoras, 
= C?, para calcular o compri- 
mento C da hipotenusa de um triângulo 
retângulo, cujos catetos são A e B.) A li- 
nha 30 imprime o valor resultante em €. 

Em virtude da linha 40, o programa 
se auto-repetirá, pois cada vez que ele a 
alcança a declaração GOTO manda-o de 
volta à linha 10, e o programa é executa- 
do outra vez. 

A única maneira de sair desse ciclo é in- 
terromper externamente o programa, atra- 
vés da tecla <BREAK> ou <CTRL> 
<C>, <CTRL> <STOP>, etc., de- 
pendendo do computador, ou então 
desligá-lo e começar de novo (pois o pro- 
grama na memória se perde). 


ERG 


A declaração GOTO pode ser 
utilizada para saltar para a fren- 
te, por sobre um bloco do pro- 
grama. É o que acontece no pro 
grama a seguir, que simula 
um jogo de cara ou coroa: 


5 FOR F=1 TO 500:NEXT 
F:CLS 

10 PRINT "ESTOU JOGANDO 
A MOEDA ...” 

20 FOR J=1 TO 3 

30 FOR F=1 TO 250:NEXT F 
40 PRINT”."; 

50 NEXT J 

60 PRINT 

70 IF RND(0)<.5 THEN GOTO 100 
80 PRINT"E DEU COROA!” 

90 Goto 5 

100 PRINT"E DEU CARA!” 

110 Goto 5 





Digite o programa abaixo usando so- 
mente maiúsculas, se o seu computador 
for compatível com o ZX-81: 


5 PAUSE 50: CLS 


10 PRINT "Estou Jogando a moe 
da...”; 
20 FOR 5-1 TO 3 
































30 PAUSE 25 
40 PRINT ”. 
50 NEXT 5 
60 PRINT 

70 IF RND<.5 THEN GOTO 100 
80 PRINT "E" coroa!!!” 

90 Goto 5 
PRINT 
coro 5 


Pau LaÉ Ló] 





"E" caralt!* 


5 FOR F=1 TO 500 : NEXT 
6 cLs 

10 PRINT "ESTOU JOGANDO A 
MOEDA...” 


20 FOR J=1 TO 3 
30 FOR F=1 TO 250 
40 PRINT "."; 

50 NEXT J 

60 PRINT 

70 IF RND(1)<.5 THEN GOTO 100 


: NEXT F 


80 PRINT "E DEU COROA !” 
90 goTo 5 
100 PRINT "E DEU CARA !” 
110 coTo 5 


A função RND na linha 70 sorteia um 
número aleatório entre O e 1. Aqui, a de- 
claração GOTO faz parte da declaração 
IF. Se o número selecionado pelo com- 
putador for menor do que 5, o com- 
putador saltará para a frente, para a li- 
nha 100. Se ele não satisfizer essa con- 
dição, o computador executará normal- 
mente a linha seguinte do programa — 
alinha 80 —, e quaisquer outros coman- 
dos porventura existentes na linha 70 se- 
rão desprezados. 

Essa condição significa que a linha 70 
constrói uma bifurcação no programa. 
Existem, neste caso, duas alternativas: ou 
o computador executa as linhas 70, 80 
e 90, para exibir na tela a mensagem “E 
DEU CARA?”, ou, então, executa as li- 
nhas 70, 100 e 110, para exibir “E DEU 
COROA!”. Isso é feito repetidas vezes, 
de forma totalmente aleatória, como 
uma espécie de lançamento rápido de 
uma “moeda eletrônica”. 

As linhas 90 e 100 também contêm de- 
clarações GOTO. Qualquer que seja o 
desvio tomado pelo programa, elas o 
mandarão de volta ao início, na linha 5, 
para começar outro sorteio. 

Mais uma vez, você notará que este pro- 
grama não termina nunca. A única manei- 
ra de pará-lo é pressionar a tecla de inter- 
rupção do seu computador, ou desligá-lo. 


ES ALAS 0 


Nos computadores da linha Sinclair, 
a declaração GOTO não precisa ser se- 
guida de uma constante numérica. Uma 
variável servirá: GOTO A, por exemplo, 
ouGOTO (100 + INT (RND* 6)). Issosig- 


nifica que a declaração GOTO pode pro- 
porcionar um tipo de desvio mais com- 
plexo ao seu programa; veja a seguir. 


Digite o programa abaixo usando so- 
mente maiúsculas, se o seu computador 
for compatível com o ZX-81. 


100 PRINT 
ome?” 

110 INPUT a$ 

120 GOTO (130+INT (RND*4)*10) 
130 PRINT "E" um bonito nome, 
";a$: GOTO 170 
140 PRINT "E" 
";a$: GOTO 170 
150 PRINT "Prazer em conhece-l 
o, ";a$: GOTO 170 

160 PRINT "Ola, ";a$;", 
seu computador.” 

170 STOP 


A declaração GOTO na linha 120 dá 
um salto aleatório para a frente, em di- 
reção a qualquer uma das quatro linhas 
com as alternativas do programa, em 
função do resultado da expressão numé- 
rica. O número 130 na expressão pode 
ser somado a 0, 10, 20 ou 30, dependen- 
do do resultado da expressão com RND. 
Assim, O programa poderá saltar para 
as linhas 130, 140, 150 ou 160. 

O GOTO 170, após cada alternativa, 
faz com que o programa saite para a 
frente, ignorando as linhas intermediá- 
rias. Note que não necessitamos de um 
GOTO 170 após a linha 160, pois o pro- 
grama vai para a linha 170 de qualquer 
maneira (é a última alternativa de GO- 
TO na linha 120). 

Assim, este programa roda apenas 
uma vez, pois todos os GOTO instruem 
o computador para saltar para a instru- 
ção STOP na linha 170, sem formar la- 
ços de retorno. 


"Ola, qual e o seu n 


um nome gozado, 


eu sou 


SD 
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Os computadores da linha TRS, MSX 
e Apple têm um equivalente ao GOTO 
variável existente apenas nos computa- 
dores da linha Sincl a declaração 
ON...GOTO. Esta última é bastante po- 
derosa e útil em programação, e tem a 
seguinte forma (um exemplo): 





ON A GOTO 100,200,300,400 


Neste exemplo, quando a variável A 
for igual a 1, o programa saltará para 
o primeiro número de linha na lista que 
se segue à palavra GOTO, ou seja, a li- 
nha de número 100. Se A for igual a 2, 
o programa irá para a linha 200, e as- 
sim por diante. A lista de linhas após 
GOTO pode ter qualquer número de ele- 


mentos, com um mínimo de 2, e um má- 
ximo determinado pelo número máximo 
de caracteres por linha de programa que 
o seu computador aceita (normalmente 
254 ou 255 caracteres). 

Novamente, esta declaração permite 
a programação de desvios complexos. O 
programa anterior passa a ser assim. 


100 
E?” 
110 
120 
160 
130 PRINT"E UM BONITO NOME, 
$:GoTO 170 

140 PRINT"E UM NOME GOZADO, ";A 
$:GoTO 170 

150 PRINT"PRAZER EM CONHECE-LO, 
";AS:GOTO 170 


PRINT"OLA, QUAL E O SEU NOM 


INPUT AS 
ON RND(4) GOTO 130,140,150, 


";A 


160 PRINT "OLA, ";A$;”", EU SOU 
O SEU COMPUTADOR. ” 

170 END 

100 PRINT "OLA, QUAL E' O SEU 


NOME 2” 
110 INPUT AS 
120 ON INT(RND(1)*4)+1 GoTO 


130, 140, 150, 160 

130 PRINT "E' UM BONITO NOME, ” 
:A$:GOTO 170 

140 PRINT "E' NOME GOZADO, " 
:4$:GOTO 170 

150 PRINT "PRAZER EM CONHECE- 
Lo, :A$:GOTO 170 

160 PRINT "OLA, ";A$;”, EU SOU 
O SEU COMPUTADOR” 

170 END 


EVITE MAS TÉCNICAS DE PROGRAM, 


O excessivo emprego de GOTO em um 
programa é considerado um mau estilo de 
programação. Uma razão para isso é que, 
mesmo em programas simples, uma decla- 
ração GOTO que o manda de volta para 
uma linha precedente pode criar um laço 
sem fim. Ora, esse laço só poderá ser 
interrompido por meio do teclado, 
pressionando - se, para isso, as teclas 
<BREAK>, <STOP>, <CTRL> 
<C>, etc, — ou desligando-se o com- 
putador. Isso é inconveniente, prin 
cipalmente para o usuário do programa. 

Masa principal razão é que, permitin- 
do que vocêsalte, para trás ou para a fren- 
te, para qualquer ponto do programa, ao 
inteiro sabor de sua vontade, o uso do 
GOTO tende a quebrar a estrutura lógi- 
ca do programa. Isso pode não parecer 
muito importante, se você estiver lidan- 
docom programas de 5 ou lOlinhas, mas 
pode ser vital, se você estiver escrevendo 
programas de 100 ou 1000 linhas. 




















Um bom estilo de programação re- 
quer que os programas sejam desenvol- 
vidos em módulos lógicos, cada um de- 
sempenhando uma tarefa bem separada. 
Isso ajuda muito quando você tem que 
localizar erros de programação que ocor- 
rem aleatoriamente, no momento em 
que o programa é rodado. Esse estilo de 
programação (conhecido como estrutu- 
rado) o ajudará também a fazer prog 
mas mais simples, que poderão ser facil- 
mente modificados no futuro. 


[eo RAR 


Existe outra ferramenta de programa- 
ção que pode ser utilizada para substi- 
tuir em grande parte o GOTO, quando 
este é problemático: é o GOSUB. Essa 
instrução é digitada com uma palavra e 
deve ser seguida por um número de li- 
nha (ou ainda por uma expressão numé- 
rica, em micros da linha Sinclair). 

O GOSUB envia o computador para 
uma sub-rotina, que se inicia na linha es- 
pecificada por ele. Uma sub-rotina é um 
conjunto de operações dentro de um pro- 
grama que podem ser colocadas à parte, 
em uma espécie de “tijolo” lógico. Ela é 
frequentemente utilizada quando uma 
operação deve ser repetida várias vezes ao 
longo de um programa. Assim, ao invés 














de escrever esta rotina toda vez que ela 
ocorre no programa, podemos colocá-la 
em um ponto qualquer, e simplesmente 
direcionar o computador para ela, quando 
necessário, e quantas vezes desejarmos 

A diferença decisiva entre um GOTO 
eum GOSUB é que no final de uma sub- 
rotina deve constar a palavra RETURN 
(“retornar”, em inglês). Para entrar es- 
ta palavra, nos computadores da linha 
Sinclair deve-se simplesmente pressionar 
a tecla marcada com RETURN. Nos ou- 
tros micros, digita-se a palavra por ex- 
tenso, pressionando-se < ENTER > ou 
<RETURN> depois (não confunda a 
tecla de retorno de carro, ou transmis- 
são, que é sempre indicada no texto de 
forma diferente, com a instrução RE- 











ão RETURN envia o flu- 
xo do programa de volta à linha ou ao 
comando que se segue ao GOSUB que 
solicitou (“chamou”, na gíria dos pro- 
gramadores) a sub-rotina. Assim, o com- 
putador sempre ““se lembra” de que pon- 
to do programa foi efetuado o desvio pa- 
ra a sub-rotina e sempre volta a ele, pa- 
ra continuar o fluxo normal do progra- 
ma, depois que a sub-rotina é completa- 
da. Desse modo, podemos colocar cha- 
madas à mesma sub-rotina em qualquer 
ponto do programa. 

No programa seguinte exemplifica- 
mos o uso do GOSUB. Ele simula um jo- 


go de dados muito simples, uma espécie 
de “'crepe”". No jogo, um par de dados 
é arremessado, e o total dos pontos ob- 
tidos é anotado. Se os totais de dois ar- 
remessos sucessivos forem iguais, o jo- 
go terminará. Caso contrário, os dados 
serão arremessados novamente, 


20 LET A=1 

30 REM. .PRIMEIRO 
40 GOSUB 150 

50 LET Tl=T 

60 REM. . SEGUNDO LANCAMENTO 

70 GOSUB 150 

80 LET T2=T 

90 IF Tl=T2 THEN GOTO 120 

100 LET A=A+l 

110 GOTO 40 

120 PRINT"CONTAGENS IGUAIS A "; 
Tl;” APOS ";A;” LANCAMENTOS” 
130 END 
140 REM 
150 LET 


LANCAMENTO 


SUBROTINA 
DI=RND(6) 
160 LET D2=RND(6) 
170 LET T=DI+DZ 
180 RETURN 


Digite o programa abaixo usando so- 
mente maiúsculas, se o seu computador 
for compatível com o ZX-81. 


20 LET arl 





30 REM primeira jogada 

40 GOSUB 150 

50 LET t1l=T 

60 REM segunda Jogada 

70 GOSUB 150 

80 LET t2=T 

90 IF tl=t2 THEN GOTO 120 
LET a=a+l 

Goro 40 

PRINT "Os dados deram 
:” na jogada”;a 

GoTo 200 

REM sobroutine 

LET dl=INT (RND*6)+1 
LET d2=INT (RND*6)+1 
LET T=dl+d2 

RETURN 


"ita 


180 


Pla Lc) 


CLS: LET DI=RND(-TIME) 
ão LET A-1 
40 GOSUB 150 
50 LET Tl=T 
70 GOSUB 150 
80 LET T2=T 
90 IF Tli=T2 THEN GOTO 120 
100 LET A=A+1 
110 GoTo 40 
120 PRINT "CONTAGENS IGUAIS A ” 
Tl;” APOS ";A;” LANCAMENTOS” 
130 END 
140 REM ... SUBROTINA 
150 LET DI=INT(RND(1)*6)+1 
160 LET D2=INT(RND(1)*6)+1 
170 LET T=DI+D2 
175 PRINT D1;D2;T 
180 RETURN 






O arremesso do dado deve ser reali- 
zado duas vezes; por isso, é entregue a 
uma sub-rotina, que vai das linhas 150 
a 180, O GOSUB nas linhas 40 e 70 en- 
via o computador ao ponto de início da 
sub-rotina (linha 150). O RETURN na 
linha 180 manda o micro voltar à linha 
50, caso o chamado à sub-rotina tenha 
partido do GOSUB da linha 40, ou à li- 
nha 80, se tiver partido da linha 70. A 
linha 140 é usada para identificar o iní- 
cio da sub-rotina, usando a declaração 
REM, que significa apenas um comen- 
tário feito pelo programador. 

Note a declaração END na linha 130 
de todos os programas (exceto os do Sin- 
clair, que usam um GOTO). Se ela não 
estivesse aí, o computador passaria a exe- 
cutar a sub-rotina diretamente e, ao atin- 
gir a declaração RETURN, assinalaria 
um erro, pois não haveria indicação pré- 
via sobre para que linha retornar. 


UMEROS DE LINHA INEXISTENTES 


Como os micros da linha Sinclair não 
têm declaração END, utilizamos um 
GOTO seguido de um número de linha 


que não existe no programa, ou seja, 
200. 


130 Goto 200 


Em outros micros, isto daria uma 
mensagem de erro. O mesmo, entretan- 
to, não acontece com a linha Sinclair: ao 
perceber que a linha 200 não existe, o 
computador interromperá providencial- 
mente o programa, pronto para come- 
çar de novo. 

Para tais micros, é melhor usar esses 
expedientes do que colocar 


130 STOP 


que é aceito pelo computador, mas que 
gera uma mensagem de advertência na 
telaºIsso poderia levar o usuário a acre- 
ditar que houve um erro de execução do 
programa, especialmente porque a linha 
130 não é a última linha física do pro- 
grama, pois está no meio dele, antes da 
sub-rotina. 

Mas seja o mais cuidadoso possível 
quando utilizar, nesses computadores, o 
comando GOTO seguido por um núme- 
ro de linha inexistente. 

Após GOTO 200, por exemplo, os mi- 
eros da linha Sinclair pesquisarão todas 
as linhas seguintes. E se encontrarem 
uma instrução em alguma delas, eles a 
executarão (ou tentarão executá-la), in- 
dependentemente do conteúdo dessa ins- 
trução. Portanto, para ficar mais segu- 
ro, o melhor é enviar o computador pa- 
ra aúltima linha física possível, que po- 
de ser a de número 9999, nos micros da 
linha Sinclair. 

E, para que não haja nenhuma con- 
fusão quanto ao que você está fazendo, 
coloque: 


9999 REM END 





É possível uma sub-rotina chamar ou- 
tras, e estas, por sua vez, outras tantas, 
gerando assim uma estrutura em diver- 
sos níveis. Assim como no jogo citado o 
dado deve ser lançado duas vezes, a sub- 
rotina de arremesso pode ser constitui- 
da como uma sub-rotina dentro de ou- 
tra, desde que se mude as últimas linhas 
do programa, da seguinte forma: 


150 
155 
160 
165 
170 
180 
190 
195 


GOSUB 190 
LET Dl=D 
GOSUB 190 
LET D2=D 
LET T=DI+D2 
RETURN 

LET D=RND(6) 
RETURN 


Digite o programa abaixo usando so- 
mente maiúsculas, se o seu computador 
for compatível com o ZX-81: 


GOSUB 190 
LET dl=d 
GOSUB 190 
LET d2=d 
LET t=dl+d2 
RETURN 
LET d=INT 
RETURN 


150 
155 
160 
165 
170 
180 
190 
195 
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150 GOSUB 190 

155 LET D1I=D 

160 GOSUB 190 

165 LET D2-D 

170 LET T=DlI+D2 

180 RETURN 

190 LET D=INT(RND(1)*6)+1 
195 RETURN 


(RND*6)+1 


Aqui, as linhas 150 e 160 enviam o 
computador para a sub-rotina na linha 
190, que faz o dado rolar (isto é, sorteia 
um número aleatório inteiro, entre 1 e 6), 
enquanto as linhas 155 e 165 armazenam 
os resultados de cada lançamento sepa- 
rado. 

Por uma questão de concisão, o com- 
putador realiza apenas o lançamento de 
um dado, e não de dois, separadamen- 
te. Veja a seguir: 


150 LET T=RND(6) +RND(6) 


150 LET T=INT(6*RND+1) + 
INT (6*RND+1) 
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150 LET T=INT(6*RND(1)+1)+ 
INT (6*RND(1)+1 


RAR TA RR) 


Assim como GOTO, a declaração 
GOSUB pode ser utilizada para chama- 
das complexas a um determinado núme- 
ro de sub-rotinas, começando em linhas 
diferentes. Nos microcomputadores da 
linha Sinclair (compatíveis com Spec- 
trum e ZX-81), o GOSUB pode ser se- 
guido de uma expressão numérica, ou 
nome de variável, exatamente como vi- 
mos anteriormente para o GOTO. 

No caso dos computadores de outras 
linhas, como TRS-80, Apple e MSX, 
existe a declaração ON...GOSUB, que 
pode ser utilizada para o mesmo efeito. 


3 APLICAÇÕES 3 











ORGANIZE AS SUAS Dmicinsam 


IMPRIMA O ARQUIVO 


COLEÇÕES (2) Dun Proença 














Encontrar o nome e o endereço de uma 
pessoa da qual se sabe apenas o 
sobrenome e a cidade em que reside é 
tarefa simples para o computador. 
Mas, para isso, é preciso programá-lo 
com as informações adequadas. 


Uma das grandes vantagens do arqui- 
vamento no computador, em compara- 
ção com métodos mais tradicionais (co- 
mo um fichário, por exemplo), é a faci- 
lidade e rapidez com que se pode encon- 
trar as informações arquivadas. 

O programa da lição anterior da sé- 
rie Aplicações fornecia os meios para se 
implementar um sistema altamente fle- 
xível de arquivamento no computador. 
Neste artigo mostramos como se pode 
pesquisar arquivos, tendo em vista ob- 
jetivos como a correção de registros de- 
satualizados ou incorretos, ou a anula- 
ção de registros desnecessários. 


MO PESQUISAR UM ARQUIVO 


A opção de pesquisa é a de número 
4 no menu principal. Ela permite que 
você pesquise os registros a partir da in- 
formação contida em um campo. 

Se você pressionar a tecla 4, o com- 
putador mostrará, no alto da tela, os no- 
mes dos campos que você definiu ante- 
riormente para o arquivo; em seguida, 
ele perguntará qual campo você quer 
pesquisar — 1 para o primeiro, 2 para 
o segundo, 3 para o terceiro e assim 
por diante, contando a partir do alto 
da tela. A pergunta seguinte será sobre 
o que você quer pesquisar nesse cam- 
po. Em resposta, você deve digitar a 
avra ou O número que quer procu- 
rar: JOÃO ou CAÇAROLA, por exem- 
plo, ou BÍBLIA, ou seja lá o que for. 
Em seguida pressione < RETURN > ou 
<ENTER> 

A palavra ou o número que você di- 
gitar deve ser exatamente igual ao que 
está escrito no campo. Se uma palavra 
foi armazenada com letras maiúsculas 
nos registros e você estiver procurando-a 
com letras minúsculas, o computador 
não irá encontrá-la. Se você tiver deixa- 




















do, por engano, um espaço antes da en- 
trada em um registro, ou apertar o es- 
pacejador após a entrada, provavelmen- 
te o computador não irá encontrá-la. Is- 
so ocorre mesmo que a palavra do re- 
gistro e a que você está procurando se- 
jam iguais. 

Assim, evite espaços desnecessários e 
procure entrar informações em letras 
maiúsculas. A pesquisa se tornará mais 
fácil e menos sujeita a erros. 

Caso o computador não consiga 
achar nenhum registro com a palavra 
que você pediu, no campo pesquisado, 
ele lhe dirá isso e trará de volta o menu 
principal. Se, ao contrário, forem en- 
contradas diversas respostas, ele coloca- 
rá na tela o primeiro registro que tiver 
a informação pedida e, a partir daí, lis- 
tará em ordem alfabética todos aqueles 
com informação igual. 

Você deve então selecionar uma das 
opções colocadas nas duas linhas abai- 
xo da tela. A primeira é assim: 


PROSSEGUE RETORNA MENU 


Isso funciona mais ou menos da me: 
ma maneira que no programa do artigo 
anterior. A tecla P serve para pesquisar 
os registros selecionados em ordem cres- 
cente, ao passo que a tecla M o leva di- 
retamente de volta ao menu principal. 
Mas não acontecerá nada se você pre: 
sionar a tecla P quando estiver no últi- 
mo registro selecionado. A tecla R, na 
primeira modalidade de pesquisa, for- 
nece uma mensagem: “*REGISTRO 
NÃO ENCONTRADO”. 

Talvez a aplicação mais útil da opção 
de pesquisa seja descobrir um determi- 
nado registro. Para localizá-lo, basta 
lembrar-se de qualquer informação so- 
bre ele. Por exemplo, suponhamos que 
você esteja utilizando esse arquivo para 
armazenar nomes, endereços e números 
de telefones dos membros de seu clube 
e já possua os seguintes campos: nome, 
sobrenome, rua, cidade, Estado,código 
postal, número do telefone. Neste caso, 
você poderá pesquisar um determinado 
registro até mesmo se lembrar apenas do 
sobrenome da pessoa. 

E se uma parte da informação de que 
você se lembrou não for exclusiva desse 
registro? A solução é simples: por exem- 
plo, se você procura o registro de uma 
pessoa, sabendo apenas que ela mora na 
cidade de São Paulo, ou que o seu pri- 
meiro nome é João, poderá evocar to- 
dos os paulistanos ou todos os indivi- 
duos de nome João e saltá-los até encon- 
trar o nome correto. Mesmo que o nú- 
mero de nomes fosse muito grande, es- 
sa procura seria mais fácil do que se ti- 
vesse que percorrer todo o arquivo, re- 
visando um registro de cada vez. 




















Ci AS 


A segunda linha de opções da parte 
inferior da tela permite outras opções de 
trabalho com o registro exibido: 





CORRIGE APAGA IMPRIME 


Se você quiser modificar um registro 
mostrado na tela, deve pressionar a te- 
cla €C, O computador perguntará 
“QUAL O NÚMERO DO CAMPO” 





que você deseja modificar. Digite o nú- 
mero, contando a partir do alto. 

Em seguida, o computador pedirá pa- 
ra “ENTRAR A MODIFICAÇÃO”, Vo- 
cê deve então digitar o novo campo que 
quer entrar, até mesmo se quiser modi- 
ficar apenas uma letra. Quando as teclas 
<ENTER> ou <RETURN> forem 
pressionadas, o computador efetuará a 
modificação no lugar correto do regis- 
tro. Se você quiser, poderá pressionar 
mais uma vez a tecla C e modificar ou- 


tro campo no mesmo registro. Se você 
quiser modificar um registro que não es- 
tá na tela, deve pressionar C para retor- 
nar ao menu principal e escolher a opção 
de pesquisa 3, para localizar o registro 
que deseja alterar. Outra saída seria es- 
colher a opção 2, “VER OS REGIS- 
TROS”, achando-o e modificando-o. 


APAGUE OS REGISTROS INCORRETOS 


Você deve primeiro localizar o regis- 
tro que deseja apagar, estudando as al- 
ternativas. Normalmente, são apresenta- 
das, no lado inferior da tela, seis opções 
padrão. Para apagar um registro é neces- 
sário pressionar a tecla A. Então o com- 
putador perguntará: “VOCÊ TEM 
CERTEZA?”, Isso evita que você apa- 
gue, por engano, um registro correto. 

Se você tem certeza de que quer apa- 
gá-lo, pressione a tecla S. O computa- 
dor apagará então esse registro e exibi- 
rá o próximo — tanto o registro anota- 
do segundo uma ordem alfabética, se 
você estiver na modalidade de exibição, 
quanto o que possui o mesmo campo 
que você está pesquisando, se estiver na 
modalidade de pesquisa. 

Se você apagou o último registro en- 
contrado na pesquisa, o computador in- 
formará que não existem mais registros 
com tal item no campo que o interessa 
e trará o menu principal de volta. 


a A US 


A última opção na parte inferior da 
tela permite mandar para a impressora 
(caso haja uma) os registros do arqui- 
vo. Se você pressionar a tecla I na ver- 
são do programa para o TRS-Color, o 
computador lhe pedirá para “CHECAR 
A IMPRESSORA”. Nesse ponto, é ne- 
cessário averiguar se a impressora está 
conectada e ligada; se essa condição for 
satisfeita e mesmo assim a impressora 
não funcionar, você deverá verificar o 
programa. 

No Spectrum essa linha de mensagem 
não é necessária, pois ele não reagirá à 
tecla 1 se não houver nenhuma impres- 
sora conectada. 

Uma vez que você já checou se a im- 
pressora está conectada e ligada, acione 
a tecla C para continuar. Pressionando 
algumas outras letras, a linha “CHE- 
QUE A IMPRESSORA” desaparecerá e 
você poderá novamenteutilizar uma das 
seis opções padrão, localizadas no lado 
inferior da tela. Caso C seja pressiona- 
da sem que haja uma impressora conec- 
tada, ou esta não funcione por qualquer 
razão, você deve pressionar as teclas 


<RESET> (no TRS-Color e Apple), 
ou <CTRL> <STOP> (no MSX), e 
verificar o programa. Para continuar a 
utilizar o programa sem perder os dados 
armazenados, digite de modo direto: 


goto 30 


Retornando ao menu principal (uma 
observação importantíssima: não tente 
modificar qualquer linha do programa an- 
tes de dar o comando acima, caso con- 
trário perderá todos os dados já armaze- 
nados na memória RAM da máquina). 


ELE AE O) 


Agora você possui um sistema de ar- 
quivamento altamente flexível e comple- 
to, que pode ser utilizado para armaze- 
nar detalhadamente qualquer tipo de in- 
formação. Evidentemente, Você pode 
utilizar o programa para armazenar, em 
uma única fita cassete, um fichário 
enorme ou vários fichários. 

Fitas muito longas, contudo, apre- 
sentam inconvenientes. Uma solução 
mais prática consiste em armazenar di- 
ferentes arquivos em várias fitas, de mo- 
do a torná-los mais facilmente localizá- 
veis. Neste caso, é necessário guardar o 
próprio programa em uma fita separa- 
da (somente os micros da linha Spec- 
trum estão dispensados dessa precau- 
ção). Você poderá, assim, carregar os 
dados antes de selecionar a opção 6. 

À primeira vista, isso pode parecer 
um grande desperdício de número de 
acessos. Essa impressão, contudo, dei- 
xa de ter sentido quando pensamos no 
espaço ocupado pelos arquivos dos an- 
tigos cartões de indexação. 


COMO ENTRAR O PROGRAMA 


A seguir, listamos a segunda seção do 
programa de arquivamento de dados 
que, para sua felicidade, é muito mais 
curta do que a primeira. 

Quando acrescentá-la ao programa 
existente, você notará que poucos núme- 
ros de linhas estão duplicados. Não es- 
quente a cabeça com isso. Os números 
da primeira seção estavam ali simples- 
mente para manter o programa intacto 
e permitir o seu teste. Os novos núme- 
ros substituirão os antigos assim que vo- 
cê digitá-los. 












Atenção se você for utilizar o pro- 
grama abaixo em micros com disque- 
te. Mude o número 11000 do comando 
CLEAR, no começo do programa, pa- 


ra 8000, sob pena de não haver espaço 
suficiente na memória. 


3000. GOSUB 8500 
3010 PRINT €417,"MODIFICAR QUAL 
CAMPO?(1 A”;A;") 7"; 





3020 INS=INKEYS:IF IN$="" THEN 
3020 

3030 J=VAL (INS) 

3040 IF J<1l OR J>A THEN 3020 
3050 PRINT €448,"” 

3060 PRINT €45+32*J,"":PRINT 64 


17,"DIGITE O CAMPO MODIFICADO ” 
:LINE INPUT AS(D,J) 

3070 AS(D,J) =LEFTS(AS(D,J) ,A(J) 
) 

3080 IF 
3090 IF 
3100 IF 
J=1 
3110 IF 
e=1 
3120 IF 
EN 3180 
3130 IF 
3140 IF 
3180 
3150 FOR N=1 TO A:XS=AS(D,N) :AS 
(D,N) =AS(D-1,N) :AS(D-1,N)=XS:NE 
XT:D=D-1:GOTO 3080 

3160 IF AS(D,1)<=AS(D+1,1) THEN 
3180 

3170 FOR N=1 TO A:XS=AS(D,N) :AS 
(D,N)=AS (D+1,N) :AS (D+1,N) =XS:NE 
XT:D=D+1:GOTO 3080 

3180 FOR F=1 TO 300:NEXT:RETURN 
4000 G=D 

4010 GOSUB 8500 

4020 PRINT 6449,"VOCE TEM CERTE 
ZA QUE QUER APAGAR?” 

4030 INS=INKEYS:IF IN$="" THEN 
4030 
4040 


D=R THEN J=-1:GOTO 3130 
D=1 THEN J=1:GOTO 3120 
AS(D,1)>AS(D+1,1) THEN 


AS(D,1)<AS(D-1,1)THEN J 
AS(D+1,1)="" AND J=1 TH 


J=1 THEN 3160 
AS(D,1)>=AS(D-1,1) THEN 


IF IN$<>"S” THEN RETURN 
4050 IF G=NR THEN G=G-1 

4060 CLS 7:PRINT €236,"APAGANDO 
";: SOUND 30,1 

4070 IF D=NR THEN 4090 

4080 FOR N=1 TO A:AS(D,N)=AS (D+ 
1,N) :NEXT:D=D+1:GOTO 4070 

4090 FOR N=1 TO A:AS(D,N)="":NE 
XT:NR=NR- -G 
4100 FOR F=1 TO 
5000 FOR N=1 TO 
N,N.NS(N) :NEXT 
5010 PRINT €417,"QUE CAMPO PROC 
URAR (1 A";A;”) ?”; 

5020 INS=INKEYS:IF IN$="" THEN 
5020 

5030 IF VAL(INS)<1 OR VAL(INS)> 
A THEN 5020 

5040 SOUND 30,1:Z=VAL (INS) :PRIN 
T €417,"PROCURAR PELO QUE (NO € 
AMPO”;Z;")?” 





400:NEXT: RETURN 
A:PRINT €33+32% 


5050 LINE INPUT Z$ 

5060 D=1:G=0:CH=1 

5070 IF D>NR AND G=1 THEN G=0:€ 
H=-1 ELSE IF D>NR THEN 5230 
5080 IF D<1 AND G=1 THEN G=0:CH 


=1 ELSE IF DX1l THEN 5230 

5090 IF AS(D,Z)<>Z5 THEN D=D+CH 
:GoTO 5070 

5100 LD=D:G=1:GOSUB 8500 

5110 PRINT €451,"pROSSEGUE 








u 


ETORNA  mENU CORRIGE aPA 
Sa iMPRIME” ; 

5120 INS=INKEYS:IF IN$="" THEN 

5120 

5130 IN=INSTR(1,RSS,INS) 

5140 ON IN GOTO 5160,5160,5170, 
5180,5190,5200,5210 

5150 GoTo 5120 

5160 CH=1:D=D+1:GOTO 5070 

5170 CH=-1:D=D-1:GOTO 5070 

5180 RETURN 

5190 GOSUB 3000:GoTO 5090 

5200 GOSUB 4000:G0TO 5090 

5210 GOSUB 10000:GOTO 5070 

5220 GoTO 5110 

5230 CLS 2:PRINT €200,"NENHUM R 
EGISTRO COM ";:PRINT €271-LEN(Z 
$8)/2,º ";28;" "; 

5240 PRINT 6330,” NO CAMPO";Z; 

5250 FOR G=1 TO 5:SCREEN 0,1:FO 
R F=1 TO 500:NEXT:SCREEN 0,0:FO 
R F=1 TO 500:NEXT F,G:RETURN 


4000 FOR N=V TO A: PRINT INVER 
SE V;AT N*2,9;N; INVERSE U;TAB 











11": ";NS(N): NEXT N 

4010 PRINT ''"PROCURAR EM QUE C 
AMPO (1 A ";A;")?” 

4020 IF INKEY$="" THEN GOTO 40 
20 


4030 LET Y$S=INKEYS: IF CODE YS< 
49 OR CODE Y$>48+A THEN GOTO 4 
030 


4040 SOUND .1,10: LET Z=VAL YS: 


PRINT '"PROCURAR PELO QUE NO C 
AMPO ";Z;"?”": DIM ZS(V,A(Z)): I 
NPUT LINE ZS(V) 

4044 cLS LET K=V 

4045 IF AS(K,B(Z)+V TO B(Z+V))= 
ZS(V) THEN GOTO 4050 

4046 IF K=R OR AS(K,V)=" " THEN 


CLS : PRINT AT 9,3;"NENHUM RE 
GISTRO COM ";ZS(V),'TAB 10;"NO 


CAMPO ”;Z: PAUSE 150: RETURN 
4047 LET K=K+V: GOTO 4045 

4050 LET D=V: LET PM=V; LET MO= 
v 

4060 IF D>R THEN LET D=PM 
4070 IF D=U THEN LET D=PM 
4080 IF AS(D,V)=" " THEN LET D 


=PM 

4090 IF AS(D,B(Z)+V TO B(Z+V))< 
>ZS(V) THEN LET D=D+MO: GOTO 4 
060 

4100 GOSUB 9500 
4110 LET PM=D 

4120 IF OP=V THEN 
T D=D+MO: GOTO 4060 
4130 IF OP=2 THEN LET MO=-V: L 
ET D=D+MO: GOTO 4060 


LET MO=V: LE 


4140 IF OP=3 THEN RETURN 

4150 IF OP=4 THEN GOSUB 8000 
4160 IF OP=5 THEN LET DF=U: LE 
T MD=2: GOSUB 9000: IF DF=V OR 
AS(V,V)=" " THEN RETURN 


4170 GoTo 4100 

8000 INPUT AT U,U;"CAMPO A SER 
CORRIGIDO(I A "; (A);")?";J: IF 
JA THEN GOTO 8000 

8010 PRINT FLASH V;AT V+2*J,12 
:AS(D,B(J)+V TO B(J+V)): INPUT 


3 APLICAÇÕES 3 


AT U,U;"Digite o campo modifica 
do”, LINE AS(D,B(J)+V TO B(J+V) 
): PRINT AT V+2*J,12:;AS(D,B(J)+ 
V TO B(J+V)) 

8020 IF D=R THEN LET J 
o 8070 


=-V: GOT 


8030 IF D=V THEN LET J=V: GOTO 
8060 
8040 IF AS(D)>AS(D+V) THEN LET 
J=y 
8050 IF AS(D)<AS(D-V) THEN LET 
Je-v 


8060 IF AS(D+V,V)=" " AND J=V T 
HEN GOTO 8500 
8070 IF J=V THEN 
8080 IF AS(D)>=AS(D-V) 
TO 8500 

8090 LET XS=AS(D): LET AS(D)=AS 


goto 8100 
THEN GO 


(D-V): LET AS(D-V)=XS$: LET D=D- 
V: GOTO 8020 
8100 IF AS(D)<=AS(D+V) THEN GO 


TO 8500 

68110 LET XS=AS(D): LET AS(D)-AS 
(D+V): LET AS(D+V)=XS: LET D=D+ 
V: GOTO 8020 
8500 SOUND .1,10 
"Registro numero 
URN 

9000 PRINT AT 19,U;"TEM CERTEZA 
DE QUE QUER APAGAR?”: PAUSE U 
9010 IF INKEYS="" THEN GOTO 90 
10 

9020 IF INKEYS<>"S” THEN 
AT 19,U;" 





PRINT AT U,U; 
D;” *: RET 





PRINT 


”: SOUND .1,10: RETU 
BN 


9030 PRINT AT 19,U;” APAGANDO 


9035 LET DD=D 
9040 IF D=R THEN 
GoTo 9060 

9050 IF AS(D+V,V)<>” " THEN LE 
T AS(D)=AS(D+V): LET D=D+V: GOT 
o 9040 

9060 LET AS(D)="": FOR F=V TO 1 
00: NEXT F: PRINT AT 19,U;” 


LET DD=DD-V: 


IF AS(V,V)=" " T 
RETURN 


9070 LET D=DD: 
HEN LET D=U: 


9072 IF D=U THEN LET D=V 

9075 IF AS(D,V)=" " THEN LET D 
-D-V 

9080 IF MD=V THEN RETURN 


9090 LET K=V 

9100 IF AS(K,B(Z)+V TO B(Z+V))= 

ZS(V) THEN GOTO 9130 

9110 IF K=R OR AS(K,V)=" " THEN 
LET DF=V: GOTO 4046 

9120 LET K=K+V: GOTO 9100 

9130 LET DD=D: LET PA=V 

9140 IF AS(DD,V)=" " OR DD=U TH 

EN LET PA=2: LET DD=D: LET MO= 

MO-V 

9150 IF AS(DD,B(Z)+V TO B(Z+V)) 

=ZS(V) THEN LET D=DD: RETURN 

9160 LET DD=DD+MO: GOTO 9140 


3000 cosuB8500 

3010 LOCATEO,22:PRINT"Modificar 
qual campo? (1 até ";A;")";: 
3020 IN&-INKEY8: IFINS-""THENSOZ 








o 

3030 J=VAL (INS) 

3040 IFJ<1ORJ>ATHEN3020 

3060 LOCATEO, 22:PRINTSPACES (39) 
; :LOCATEO, 22: PRINT"Entre com o 
campo modificado: ";:LINEINPUTA 
S(D,J) 

3070 AS(D,J) =LEFTS(AS(D,J) ,A(J) 
) 

3080 IFD=RTHENJ=-1:G0T03130 
3090 IFD=1THENJ=1:GOTO3120 
3100 IFAS(D,1)>AS(D+1,1)THENJ=1 
3110 IFAS(D,1)<AS(D-1,1)THENJ=- 
1 

3120 IFAS(D+1,1)=""ANDJ=1THEN3I1 
so 

3130 IFJ=1THEN3160 

3140 IFAS(D,1)>=AS(D-1,1)THEN31 
8o 

3150 FORN=ITOA:SWAPAS (D,N) ,AS(D 
=1,N) :NEXT:D=D-1:GOT0O3080 

3160 IFAS(D,1)<=AS(D+1,1)THEN31 
Bo 

3170 FORN=1TOA:SWAPAS (D,N) ,AS(D 
+1,N) :NEXT:D=D+1:GOTO3080 

3180 FORF=1T0300:NEXT:RETURN 
4000 G-=D 

4010 GosuB8500 

4020 LOCATEO,22:PRINT"Você conf 











irma 
4030 
o 

4040 


a deleção? (S/N)"; 
INS$=INKEY$: IFINS=""THEN403 


IFIN$<>"S”THENRETURN 

4050 IFG=NRTHENG=G-1 

4060 CLS:LOCATE12,15:PRINTCHRS ( 
7) ;"Apagando” ;CHRS (7) ; 

4070 IFD=NRTHEN4090 

4080 FORN=1TOA:AS(D,N) =AS (D+1,N 
) NEXT: D=D+1:GOTO4070 

4090 FORN=1TOA:AS(D,N)="":NEXT: 
NR=NR-1:D=G 

4100 FORF=1T0400:NEXT:RETURN 
5000 FORN=1TOA:LOCATES, 24N+2: PR 
INTN, N$ (N) :NEXT 

5010 LOCATEO,22:PRINT"Procurar 
por qual campo? (1 até ";A;")"; 
5020 INS=INKEYS: IFIN$=""THENSO2Z 


0 

5030 IFVAL(INS)<1ORVAL (IN$)>ATH 
EN5S020 

5040 PRINTCHRS (7) ;:Z=VAL (INS) :L 
OCATEO,22:PRINT"Procurar o que 
no campo ";Z;"?7";SPACES(8) 

5050 LINEINPUTZS 

5060 D=1:G=0:CH=1 

5070 IFD>NRANDG=1THENG=0:CH=-1E 
LSEIFD>NR14EN5230 

5080 IFD<1ANDG=1THENG=0:CH=1ELS 





EIFD<1THENS230 

5090 IFAS(D,Z)<>ZSTHEND=D+CH:GO 
TO5070 

5100 LD=D:G=-1:GOSUB8500 

5110 LOCATE3,22:PRINT"[Plrosseg 
ue [RJetorna tMJenu [cl)o 
rrige [Alpaga [Ilmprime” 


5120 INS=INKEY$S: IFINS=""THENS12 
o 
5130 IN=INSTR(1,R$,INS) 


5140 ONINGOTO5160,5160,5170,518 
0,5190,5200,5210 





5150 GOTO5120 

5160 CH=1:D=D+1:GOTO5070 

5170 CH=-1:D=D-1:GOT05070 

5180 RETURN 

5190 GOSUB3000:GOTO5090 

5200 GOSUB4000:GOTO5090 

5210 GOSUB10000:GOTO5070 

5220 GOTOS110O 

5230 CLS:LOCATEO,15:PRINT"Não e 
ncontrei ";2$;" em ";NS(Z) 


5250 FORF=1TO500:NEXT:RETURN 


POKE 34,22: GOSUB 6500 
VTAB 2 CALL - 958: 


3000 


3010 PRI 








NT "NUMERO DO CAMPO A SER MODIF 
ICADO =>";: GET CPS 

3020 IF CPS$ <"0” OR CPS > "8" 
THEN 3010 

3030 CP = VAL (CP$): IF CP = 0 
THEN POKE 34,0: RETURN 

3040 VTAB 23: HTAB 1: CALL - 
958 

3050 PRINT "CAMPO CORRIGIDO => 
";: INPUT AS(D,CP) 

3060 AS(D,CP) = LEFTS (AS(D,CP 
),A(CP)) 

3070 IF CP < > 1 THEN 3000 
3080 IF AS(D,1) > AS(D + 1,1) 
AND D< > NR THENV = 1: GOTO 
3200 º 
3090 IF AS(D,1) < AS(D - 1,1) 
AND D > O THEN V = - 1: GOTO 3 
200 

3100 GoTO 3000 

3200 FORN= 1 TO A:XS = AS(D, 
N):AS(D,N) = AS(D + V,N):AS(D + 
V$N) = X$: NEXT :D = D+ UV: GO 
To 3080 

4000 GOSUB 6500: VTAB 23 

401 PRINT "CONFIRMA A DELECAO 
7? ";: GET INS 

4020 IF INS < > "S” THEN RET 
URN 

4030 IF D = NR THEN 4060 

4040 FOR X = D TO NR 

4050 FOR Y = 1 TO A:AS(X,Y) = 
AS(X + 1,7): NEXT : NEXT 

4060 NR = NR - 1:D = NR: IF D = 
O THEN POP RETURN 

4070 RETURN 

5000 DD = 1: PRINT : FORX = 1 
TO A: PRINT : HTAB 10: PRINT X; 
P:-";NS(X): NEXT 

5010 VTAB 21: PRINT "PROCURAR 
POR QUAL CAMPO? ";: GET CP$S 
5020 CO - VAL (CP$S): IF CO >A 
OR CO < 1 THEN RETURN 

5025 PRINT CO 

5030 VTAB 22: HTAB 1: PRINT "P 
ROCURAR O QUE EM ";NS(CO) INP 
UT PR$ 

5035 IF PR$ = "” THEN RETURN 


5040 HTAB 13: PRINT "PROCURAND 
0..."; 
5050 FOR XX = DD TO NR: IF LE 
FTS (AS(XX,CO), LEN (PR$)) = PR 
$ THEN FL - 1:D = XX: GOSUB 602 
O: GOTO 5200 

5060 NEXT 

5070 IF FL = O THEN VTAB 21: 
HTAB 1: CALL - 958: PRINT "NAO 
ENCONTREI ";PR$;” EM ";NS(CO): 
FOR X = 1 TO 5000: NEXT : GOTO 
5090 

5080 VUTAB 21: HTAB 1; CALL - 
958: HTAB 8: PRINT "FIM DE ARQU 
IVO ENCONTRADO”: FOR X = 1 TO 5 
000: NEXT 

5090 FL - O:PR$ = ""; RETURN 
5200 IF XX = NR THEN 5090 

5210 VUTAB 15: PRINT "CONTINUO 
PROCURANDO ";PR$: PRINT " EM "; 
N$(CO);"? (S/N) ";: GET IN$ 

"N” THEN 5090 





5220 IF INS = 
5230 IF INS = "S” THEN DD = XX 
+ 1: GOTO 5050 
5240 GOTO 5210 


8 














PROGRAME JOGOS 
ACORES 
















O TRS-Color (e seus compatíveis na- 
cionais, como o CP-400) possui cinco 
modalidades para elaboração de gráfi- 
cos de alta resolução (PMODE), nume- 
rados de O a 4. Eles diferem na resolu- 
ção, no grau de detalhe e nas cores dos 
desenho exibidos. PMODE é uma ins- 
trução BASIC, específica para esses mi- 
cros, e significa picture modes (modali- 
dades gráficas). Ela estabelece o conjun- 
to de cores a ser empregado. Na moda- 
lidade de quatro cores — PMODE 1 ou 
3 —, o conjunto O consiste de verde, 
amarelo, azul e vermelho, enquanto o 
conjunto 1 de cores é formado por bran- 
co, azul-piscina (ciano), magenta e laran- 
ja. Para o conjunto O de cores, digite o 
comando SCREEN 1,0; para o conjun- 
to 1, recorra a SCREEN 1,1. 

A diferença entre PMODE 1 e PMO- 
DE 3 se encontra na resolução da tela 
gráfica que eles utilizam. Resolução grá- 
fica é o número de pixels (picture ele- 
ment ou elemento de figura) que podem 
ser traçados na tela e como o nome diz, 
é a unidade mínima de construção de fi- 
guras. Ele corresponde a um bloco re- 
tangular “aceso”na tela, 

O programa abaixo mostra a capaci- 
dade de trabalho com gráficos de reso- 
lução média do TRS-Color. Do jeito que 
está, ele roda apenas em máquinas com 
gravador cassete. Para executá-lo em 
uma máquina com Disk BASIC, altere 
os endereços nos comandos POKE nas 
linhas 30 e S0, mudando-os de 1800 e 
1801 para 3584 e 3585, respectivamente 


10 PMODE3,1:PCLS:SCREENI,0 

20 FOR I=1 TO 9 

30 READ A,B:POKE 1800+1*32,A:PO 
KE 1801+1*32,B 

40 NEXT 





É 





cio neces do 


ncia o canina 


Rindiianid 


Você já sabe como construir blocos 
gráficos em preto e branco. Aprenda 
agora a colorir seus desenhos em 
micros da linha TRS-Color, empregando 
técnicas mais sofisticadas. 





50 FOR K=10 TO 22:POKE 1800+K*3 
2,192:POKE 1801+K*32,0:NEXT 

60 coro 60 

70 DATA 192,0,213,149,213,149,2 
13,149,234,170,234,170,213,149, 
213,149,213,149 


O programa desenha uma bandeira 

e um mastro na tela. Os códigos dos blo- 

cos gráficos que constituem o desenho 

são especificados em uma linha DATA; 

o programa as lê e coloca os caracteres 

gráficos correspondentes na memória de 

vídeo, através do comando POKE ou 

PRINTO. Desta vez, para que você 

possa ver os blocos gráficos mais clara- 

mente, os códigos são colocados na pá- 

gina de memória de vídeo, a partir do 

endereço 1800, o que os situa no meio 

| da tela. Isto ocorre porque a página grá- 

fica usada (PMODE 3) tem seu endere- 

ço absoluto de início na locação 1536. 

! O programa não funcionará em máqui- 
: nas com BASIC de disco. 

A linha 10 seleciona o PMODE 3 
(conjunto de cores 0) e limpa a tela. As 
linhas 20 a 40 lêem nove pares de dados 
que definem o desenho da bandeira, e os 
colocam diretamente na página de vídeo 
correspondente, através do comando 
POKE. O restante da bandeira é desenha- 
do pela linha 50, que traça o mastro atra- 
vés de dois POKE (códigos 192 e 0), repe- 
tidos 22 vezes. A linha 60 forma um laço 
sem fim, cuja única função é “congelar” 
a tela gráfica. Pressionando <BREAK>, 
você interrompe o programa. 

A principal diferença entre a técnica 
que tinhamos aprendido antes e a utili- 
zada neste programa está nos dados de 
definição da figura. Os códigos estão em 
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149 
149 
170 
170 





decimal e foram convertidos a partir de 
um número binário de oito bits. Mas, 
ao invés de bits individuais, que dizem 
ao computador para ligar ou desligar pi- 
xels individuais, os pares de bits estabe- 
lecem agora que cor será atribuída aos 
pares de pixels. No PMODE 1, um par 
de bits diz ao computador para situar 
dois pares de pixels, um abaixo do ou- 
tro na tela. 

A figura | mostra como a bandeira 
é feita de pares de pixels: ela é definida 
através de um conjunto de números bi- 
nários de dois bits, correspondentes a 
cada um dos dois blocos de pixels. No 
conjunto de cores O você deve escrever 
00 para um bloco de cor verde, 01 para 
um bloco amarelo, 10 para um azul e 11 
para um vermelho. Quatro desses núme- 
ros de dois bits compõem cada parte dos 
dados de oito bits. 

Caso tenha escolhido o conjunto de 
cores 1, digitando SCREEN 1,1 na linha 
10, você terá uma bandeira desenhada 
em branco, ciano, magenta e laranja. 
Nesse conjunto de cores você escreve 00 
quando quer um bloco branco opaco, 
Ol para um azul ciano, 10 para um bloco 
magenta e 11 para um laranja. 


O programa abaixo permite ver o 
efeito que os códigos gráficos em DA- 
TA têm sobre os pixels e as suas cores 
em cada um dos PMODE (rodar apenas 
nos micros com BASIC para cassete). 
10 cLS 
20 INPUT”"MODO GRAFICO (0-4) 





";MO 















preto e verde 
preto e verde 


preto e verde 





E CONJUNTO DE CORES sa 
SCREEN 1,0 


verde, amarelo, 
azul e vermelho 


verde, amarelo, 
azul e vermelho 














COMO UTILIZAR CONJUNTOS 














DE CORES DIVERSAS 

nm COMO DEFINIR CORES EM 
BLOCOS GRÁFICOS 

[|] EXPLORE OS PMODE 










30 MO=INT(MO):IF MO<O OR MO>4 T 
HEN 20 
40 INPUT"NUMERO DA TELA(O-1) "; 












sT 

50 ST=INT(ST):IF ST<0 OR ST>1 T 
HEN 40 

60 INPUT "NUMERO (0-255) ";NU 
70 NU=INT(NU):IF NU<O OR NU>255 
THEN 60 

80 IF MO<4 THEN LE=2 ELSE LE=1 
90 IF MO<2 THEN DE=2 ELSE DE=1 
100 IF(MO AND 1)=1 THEN SP=-2 E 
LSE SP=-1 

110 FOR K=7 TO O STEP SP 
120 FOR L=1 TO LE 

130 FOR J=1 TO DE 

140 IF SP=-1 THEN PP=1358+32*J)+ 
(3-K) *LE+L:CO=INT(.5+(NU AND 27 
K)/2"K) :GOTO 160 

150 PP=1393+32*J+L- O=INT(.5+ 
(NU AND 342" (K-1))/2" (K-1)) 

160 POKE PP,113-SP*15+CO* (14-SP 
)j+s7x64 

170 NEXT J,L 
180 POKE PP-32*DE,47+K 

190 POKE PP-32*DE+1+SP,48+K 
200 IF SP=-2 THEN POKE PP+31,11 
2-(co>1) 

210 POKE PP+21,112+(CO AND 1) 
220 NEXT K 

230 PRINT €482,"PRESSIONE QUALQ 
UER TECLA PARA CONTINUAR” ; 

240 SCREEN 0,1-ST 
250 AS=INKEYS:IF A$="" THEN 250 
260 GoTo 10 


O programa lhe pedirá para selecio- 
nar uma modalidade de gráfico (PMO- 
DE) e o número de tela (SCREEN). A 
seguir, digite um número entre O e 255. 
Aparecerão na tela as cores e os tama- 
nhos relativos dos pixels, com os núme- 
ros dos bits em cima e os seus equiva- 
lentes binários embaixo. 
























































SCREEN 1,1 
preto e branco . ; 


branco, ciano, 
magenta e laranja 


preto e branco . 


branco, ciano, . 
magenta e laranja. 


preto e verde 












HE COMO ENCONTRAR UM LUGAR 
q TD ÓDIGO DE MÁQUINA 
PROGRAMA MONITOR 
SAIBA USAR O MONITOR 
E RODE UM PROGRAMA 





COMO ENTRAR 
CÓDIGO DE MÁQUINA : 
















O micro responde automaticamente a 
comandos em BASIC. Nesta lição você 
aprenderá a trabalhar com código 

de máquina, usando um programa em 
BASIC e a instrução POKE. 


Embora o código de máquina sejá a 
linguagem de microprocessador, não exis- 
tem meios de colocá-lo diretamente na 
memória de um computador pessoal. É 
preciso entrá-lo através de um outro pro- 
grama — o que na maioria dos micros 
atuais significa utilizar a linguagem BA- 
SIC para esse programa, pois ela é a úni- 
ca disponível na memória ROM da má- 
quina. Além disso, não podemos man- 
dar o computador executar um progra- 
ma em código de máquina utilizando um 
comando nesse código: é preciso utilizar 
também uma instrução em BASIC. 

Existem programas especiais para 
quem deseja programar diretamente em 
linguagem de máquina (ou seja, utilizan- 
do códigos em hexadecimal). Esses pro- 
gramas são chamados de monitores e 
permitem, entre outras coisas, entrar um 
programa em hexadecimal na memória 
da máquina, executá-lo, listá-lo na tela 
ou na impressora, corrigi-lo, etc. 


Os micros da linha TRS-80, comr 
tíveis com as máquinas de Radio Shacn 
americanas, modelos III e IV.ftêm um 
monitor disponível na memória. Esse 
monitor permite o trabalho direto com 
códigos hexadecimais e é bastante com- 
pleto. Já os micros compatíveis com o 
Modelo I do TRS-80 não dispõem des- 
se recurso, necessitando de um progra- 
ma elaborado em BASIC, especial ou 
disponível comercialmente. 


[gb Ló] 


Os micros das linhas Apple Il+, Ie 
e IIc, bem como o Microdigital TK-2000, 
em todas as suas versões, têm um pro- 
grama monitor embutido, para trabalho 
direto com hexadecimais. O modelo 
TK-2000 conta ainda com uma vantagem 





adicional; um miíni-Assembler disponível 
na ROM do equipamento, que permite 
a programação com códigos mnemôni- 
cos e que pode ser invocado diretamente 
do BASIC, pelo comando MA, 


EESES!;4 


Essas máquinas não oferecem moni- 
tores ou montadores embutidos na 
ROM. Precisam, portanto, de progra- 
mas externos, que devem ser carregados 
previamente na memória RAM, para o 
trabalho direto com a linguagem de má- 
quina (códigos hexadecimais). 

O instrumento básico para entrar 
uma rotina de máquina é o comando 
POKE. Ele serve para colocar os códi- 
gos de máquina, byte por byte, na me- 
mória do computador, usando endere- 
ços absolutos (isto é, o número real da 
locação de memória, em vez de um no- 
me simbólico de variável, como o As- 
sembler e o BASIC fazem). 

Nos micros compatíveis com Sinclair 
Spectrum, ZX-81, e TRS-80 Modelo 1 
(BASIC Nível II, da versão cassete), vo- 
cê não pode usar um hexadecimal com 
o comando POKE, apenas um número 
decimal, Assim, os hexadecimais de sua 
rotina de código de máquina devem ser 
convertidos para decimais, antes de se- 
rem entrados. Já o TRS-Color, os 
TRS-80 Mod. III e IV (com o Disk BA- 
SIC), o MSX e o Apple II aceitam he- 
xadecimais no POKE. 
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Antes de entrar um programa em có- 
digo de máquina, você deve decidir on- 
de irá colocá-lo na memória. Obviamen- 
te, não se deve pô-lo em uma área de 
memória utilizada pelo micro, senão o 
seu programa será destruído quando al- 
gum outro na memória ROM entrar em 
ação, ou o computador deixará de fun- 
cionar corretamente, pois terá algum da- 
do alterado pelo seu programa, 

Você também precisa ser cuidadoso 
quando utilizar as áreas de memória 
RAM normalmente reservadas pelo in- 
terpretador BASIC (essas áreas são des- 
critas no manual de operação ou progra- 
mação de seu micro). Como a rotina de 


código de máquina pode ser chamada de 
um programa em BASIC, se um código 
de máquina for gravado nessa área em- 
quanto o programa em BASIC estiver 
sendo rodado, ocorrerão falhas de ope- 
ração, perdas de programa, ou até o 
“congelamento” da máquina. 

Você pode utilizar áreas de memória 
intermediária, como o buffer da inter- 
face para o gravador cassete ou para a 
impressora, se o programa for curto, e 
desde que você não esteja utilizando es- 
ses periféricos. Se você olhar o manual 
de programação do seu computador, ve- 
rá também que alguns modelos têm na 
memória RAM áreas não usadas que 
podem ser empregadas para programas 
curtos em código de máquina. 


Nos micros compatíveis com o Sinclair 
Spectrum, como o Microdigital TK-90X, 
você pode utilizar a área de gráficos defi- 
níveis pelo usuário (UDG) — entre FF5S& 
e FFFF, no modelo de 48 K — desde que 
ela não esteja sendo utilizada pelo seu 
programa. Mas, normalmente, programas 
em código de máquina são colocados en- 
tre a área de gráficos UDG e o final da 
área BASIC, através da modificação do 
endereço do sistema, chamado RAMTOP 
(e que identifica o maior endereço dispo- 
nível na memória RAM do computador), 
para um valor menor. 

Desse modo, a área para o BASIC fi- 
ca diminuída, mas, como'não|podeul- 
trapassar o endereço armazenado na lo- 
cação RAMTOP, o código de máquina 
é protegido contra qualquer interferên- 
cia por parte do BASIC, 

A RAMTOP é uma variável de siste- 
ma, e sua posição é fornecida pelo apon- 
tador nas locações de memória SCB2 e 
5CB3. Para movimentar o RAMTOP 
para baixo você precisa apenas colocar, 
com o comando POKE, um valor mais 
baixo nessas duas locações. Mas o Spec- 
trum possui um outro comando BASIC: 
o CLEAR, que faz essencialmente a 
mesma coisa e deve ser seguido pelo en- 
dereço decimal do lugar para o qual vo- 
cê quer que o RAMTOP seja rebaixado. 

O comando CLEAR também limpa o 
arquivo de exibição (ou seja, a tela), da 
mesma forma que um CLS (e todas as va- 

















riáveis). Além disso, ele restaura a posi- 
ção do comando gráfico PLOT para as 
coordenadas 0,0 — que definem o lado 
inferior esquerdo da tela —, restabelece o 
apontador do comando READ para o iní- 
cio da lista de declarações DATA do pro- 
grama, e zera todos os RETURN ativos. 
Em um TK-90X com 16 K, por exemplo, 
o comando mais usual é: 
CLEAR 31999 

Isso modifica o RAMTOP para 31 999 
ou 7CFF em hexa, deixando 600 bytes 
acima dele — isto é, protegendo a área 
que vai desde esse ponto até o final da 
área de UDG (que está em 32 600) para 
a colocação de programas em código 
de máquina. No modelo de 48 K, o co- 
mando deve ser, neste exemplo: 


CLEAR 63999 


O RAMTOP desce, de tal modo que 
a área do BASIC passa a terminar em 
63 999, ou F999 em hexa: você pode, as- 
sim, iniciar o seu programa de código 
de máquina em 64 000 ou FADO em he- 
xa. Na maioria das aplicações isso dei- 
xará espaço suficiente para os seus pro- 
gramas em código de máquina. 

Com programas de código de máquina 
mais longos que o usual, você deve abai- 
xar o RAMTOP ainda mais. Mas isso po- 
de não ser bom na prática: com o RAM- 
TOP tão baixo, não existe espaço nem mes- 
mo para entrar uma linha de BASIC. 


No ZX-81, pode-se abaixar o RAM- 
TOP, alterando as locações de memória 
16 388 e 16 389 por meio de comandos 
POKE, de modo a criar uma área prote- 
gida, onde os programas de código de 
máquina não sejam modificados. O pro- 
blema é que não se pode armazenar em 
fita o programa que estiver nessa área. 

Programas curtos em código de má- 
quina podem ser colocados com POKE 
na memória intermediária (buffer) pa- 
ra a impressora, que ocupa as locações 
de memória de 16 444 a 16 476. Existem 
outras áreas pequenas nas quais você 
pode colocar seus programas em códi- 
go de máquina, mas não é possível 
guardá-los em fita. 

Existem três maneiras de se colocar 
um programa de código de máquina em 
uma área BASIC, protegendo-o contra 
outras gravações: pode-: se entrá-lo como 
parte de declarações REM; colocá-lo 
dentro de variáveis alfanuméricas ou 
cordões de caracteres; ou pode-se 
armazená-lo em um conjunto numérico. 

Para entrar um programa em código 
de máquina como parte de uma decla- 
ração REM você deve calcular qual se- 


rá sua extensão (contar os bytes). Então, 
na primeira linha do programa em BA- 
SIC, digite um REM seguido de pontos: 
10 REM 

O número de pontos deve ser pelo 
menos igual ao número de bytes em seu 
programa de código de máquina. 

Em seguida, você deve colocar os có- 
digos do seu programa nas locações de 
memória ocupadas pela declaração 
REM, um byte de cada vez. Isto é feito 
por intermédio da declaração POKE. Se 
sua REM estiver na primeira linha do 
programa em BASIC, a área reservada 
para isso começa na locação de memó- 
ria 16 514. 

Outra maneira de criar um espaço 
protegido é dimensionar um conjunto. 
A linha de programa em BASIC: 


10 DIM A(100) 


fornecerá 500 locações livres da memó- 
ria na área de variáveis. Para cada ele- 
mento desse conjunto, o ZX-81 deixa 
cinco locações livres. Se você quiser des- 
cobrir onde começar a armazenar o có- 
digo de máquina neste caso, deverá uti- 
lizar a função PEEK, para obter o va- 
lor armazenado na variável de sistema 
ri que está localizada em 16 400 e 
6 401: 


PRINT PEEK 16400+PEEK 16401+6 


Isso fornece o endereço inicial da 
área protegida que você criou (as seis lo- 
cações extras de memória contêm deta- 
lhes do conjunto). Você poderá, então, 
usar a instrução POKE para entrar o 
programa em código de máquina, a par- 
tir do endereço reservado. É possível 
também criar espaço em um cordão com 
uma linha BASIC, como: 


10 LET 889" ................... ” 


com tantos pontos quanto bytes no pro- 
grama de código de máquina. Para achar 
o endereço inicial, você deve examinar o 
que tem em VARS e acrescentar 6. As 
seis locações extras de memória, neste ca- 
so, contêm o nome do cordão. 

O problema com esses dois métodos 
é que a área das variáveis é apagada 
quando se aperta a tecla CLEAR ou se 
roda o programa em BASIC de novo. 


O modo mais fácil de proteger os 
programas de código de máquina nesse 
computador consiste em utilizar o co- 
mando CLEAR do BASIC. O CLEAR 
também zera todas as variáveis numéri- 
cas alfanuméricas. Usualmente, ele as- 
sume esta forma: 


CLEAR 200,30000 


Ele limita o topo da memória RAM 
(normalmente, em H7FFF ou 32 767 em 
decimal) em 30 000, deixando 2 767 
bytes livres para os programas de códi- 
go de máquina. 

Nesses micros o comando CLEAR 
tem outra função separada, e não rela- 
cionada: a atribuição de espaço de me- 
mória para as variáveis alfanuméricas. O 
primeiro número do comando CLEAR 
fornece o espaço de cordões que deve ser 
reservado para o programa em BASIC. 
Quando a máquina é ligada, o compu- 
tador guarda 200 bytes logo abaixo do 
endereço máximo de memória (RAM- 
TOP) paras as variáveis alfanuméricas. 
Assim, quando você deixar o RAMTOP 
mais baixo, deverá reservar, abaixo de- 
le, também uma quantidade similar (200 
bytes), para os cordões. 

Teoricamente, você pode baixar o 
RAMTOP do TRS-Color até quase o 
topo da área reservada para as telas grá- 
ficas, embora a máquina vá precisar de 
um mínimo de espaço para o BASIC, 

O PCLEAR 1 deixa apenas uma das 
páginas de gráficos; assim, você usa o 
CLEAR para limitar a memória em 
$H3680 (em computadores sem disco, 
apenas). O PCLEAR 8 atribui as oito 
páginas de gráficos, permitindo que se 
reserve memória só até $H3680. Se vo- 
cê não utiliza o comando CLEAR, o 
computador atribui quatro páginas de 
gráficos; assim, você só poderá usar o 
CLEAR até SHI E80. 

Esses limites dependem muito do que 
está dentro da máquina no momento. Se 
existir algum tipo de programa em BA- 
SIC, provavelmente você obterá uma 
mensagem de erro “OM” (out of me- 
mory). Assim, para todos os propósitos 
práticos, trabalhar próximo ao limite não 
será bom, pois você deverá entrar um 
programa BASIC em algum lugar para 
chamar o seu programa de código de má- 
quina. Se você quiser iniciar seu progra- 
ma de código de máquina com um nú- 
mero redondo como 30 000 então digite: 


CLEAR 200,29999 


hu 


Para proteger os programas de código 
de máquina neste micro utilize o coman- 
do CLEAR do BASIC. Este limita a me- 
mória RAM máxima, reservando um es- 
paço acima para seu programa em códi- 
go de máquina. O CLEAR também zera 
as variáveis numéricas alfanuméricas, 
Normalmente, ele assume esta forma: 


CLEAR 100,4HE000 


Ele limita o topo da memória RAM em 
57 344, deixando 8 192 bytes livres para os 








programas de código de máquina. 

Nestes micros o comando CLEAR 
tem uma outra função separada e não 
relacionada: a atribuição de espaço de 
memória para as variáveis alfanuméri- 
cas. O primeiro número do comando 
CLEAR fornece o espaço de cordões 
que deve ser reservado para O progra- 
ma em BASIC. O computador guarda 
automaticamente 100 bytes abaixo do 
endereço máximo de memória (RAM- 
TOP) para as variáveis alfanuméricas 
quando a máquina é ligada. Se você dei- 
xar o RAMTOP artificialmente mais 
baixo, deverá destinar também uma 
quantidade similar — 100 bytes — abai- 
xo dele, para OS strings. 
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O programa seguinte é um monitor 
simples para auxílio à programação em 
linguagem de máquina, Ele permite que 
você digite códigos de máquina na memó- 
ria do computador, guarde programas de 
código de máquina em fita e examine-os 
na memória. Antes de entrar o programa, 
é necessário dar o comando CLEAR apro- 
priado. Feito isso, o programa é entrado 
e rodado; em seguida, o computador pe- 
de que você forneça um endereço inicial, 
que deverá ser o da memória, acima do es- 
tabelecido em CLEAR. Lembre-se de que 
o comando CLEAR especifica o último 
endereço de BASIC, e o seu programa de 
código de máquina deverá começar na lo- 
cação acima dele. 

Agora digite o monitor de código de 
máquina para o seu computador. 





10 cLS 

20 PRINT 6193,"1: 
IGO DE MAQUINA " 
30 PRINT 6257,"2: 
RIA * 

40 PRINT €6321,"3: GRAVAR BYTES 
NA FITA ” 

50 AS=INKEYS:IF AS<”"1” OR AS>"3 
” THEN GOTO 50 

60 cLS 

70 ON VAL(AS) GOBUB 200,400,600 
80 GoTO 10 

200 INPUT "ENDERECO INICIAL ";S 
A 


ENTRAR EM COD 
EXAMINAR MEMO 


210 LINE INPUT D$ 

220 IF D$="" THEN GOTO 210 

230 IF LEFTS(DS,1)="4" TTHEN RE 
TURN 
240 
250 
260 
270 
280 
400 
410 


SS=LEFTS (D$,2) 

POKE SA, VAL ("&H"+S5) 

PRINT SA, LEFTS(DS,2) 
D$=MIDS (D$,3) 

SA=SA+l: GOTO 220 

INPUT" ENDERECO INICIAL ";SA 
PRINT"SAIDA PARA IMPRESSORA 


P(S/N)” 


420 AS=INKEY F A$="" THEN 420 
430 P=0:IF A$="S” THEN P=-2 
440 PRINT 4P,SA; 

450 FOR M=0 TO 7 

460 PRINT 4P,” ";RIGHTS(” "+HEX 
S(PEEK(SA+M)),2); 





470 NEXT:PRINT4P 
480 SA=SA+8 

490 AS=INKEYS:IF AS="" THEN 490 
500 IF A$=CHR$(13) THEN RETURN 
510 GOTO 440 

600 INPUT "ENDERECO INICIAL ";S 
A 

610-INPUT "NUMERO DE BYTES ";N 
620 LINE INPUT "NOME DO ARQUIVO 
"NS 


630 CSAVEM NS, SA, SA+N, SA 
640 RETURN 


5 POKE 23658,8 
10 PRINT INVERSE L;AT 5,6;" 
MONITOR TK 90 x ” 


15 PRINT AT 8,1;"1: ENTRAR EM 
CODIGO DE MAQUINA" 

20 PRINT AT 10,1;"2: EXAMINAR 
MEMORIA” 

30 PRINT AT 12,1;"3: GRAVAR P 
YTES EM FITA” 

70 LET AS-INKEY$S; IF AS<"1” 


OR A$>"3” THEN GOTO 70 


B0 CLS : GOSUB 100+200*(VAL A 
$-1) 

90 RUN 

100 INPUT "ENDERECO INICIAL? " 
1SA 

110 INPUT LINE DS 

120 IF D$="" THEN GOTO 110 
125 IF DS(1)="4" THEN RETURN 
127 IF LEN D$=1 THEN GOTO 110 
130 LET S$-DS(1 TO 2) 

140 FOR N=1 TO 2 

150 IF SS(N)>"9” THEN LET sS( 
N)=CHR$ (CODE SS(N)=7) 


155 IF SS(N)>"?” OR SS(N)<"o” 


THEN PRINT FLASH 1;"CARACTER 
E INVALIDO": GOTO 110 
160 NEXT N 


170 POKE SA, (CODE 8$(1)-48)*16 
*CODE S$(2)-48 

180 PRINT SA,D$S( TO 2) 

190 LET D$=DS(3 TO ) 

200 LET SA-SA+1 

210 Goto 120 

300 INPUT "ENDERECO INICIAL? ” 
;SA 

310 INPUT "IMPRESSORA (S/N)? " 
; LINE P$ 
320 LET ST=2: 
LET ST=3 

330 PRINT 4ST;SA; 
340 FOR M=0 TO 7 
350 LET HS="44" 
360 LET HS(1) 
(SA+M) /16) +48) 

370 LET HS(2)=CHR$ (48+PEEK (S 
A+M) -16* (CODE H$(1)-48)) 

380 FOR N=1 TO 2 

390 IF HS(N)>"9” THEN LET H$( 
N)=CHR$ (CODE HS (N)+7) 

400 NEXT N 

410 PRINT ASTYTAB 7+3*M;HS; 


IF P$=-"S” THEN 


HRS (INT (PEEK 








420 NEXT M 

440 LET SA=SA+8 

445 PRINT 4ST: POKE 23692,0 
450 LET AS=INKEYS: IF A$="" 
THEN GOTO 450 


460 IF AS=CHR$ 13 THEN RETURN 
470 goTo 330 

500 INPUT "ENDERECÔ INICIAL? " 
1SA 

510 INPUT "NUMERO DE BYTES? "; 
N 

520 INPUT "NOME DO ARQUIVO? "; 
LINE N$ 


530 IF LEN N$<1 OR LEN N$>10 
THEN GOTO 520 

540 SAVE NSCODE SA,N 

550 RETURN 


Antes de executar este programa, vo- 
cê deve digitar uma linha 1 contendo um 
REM seguido do número apropriado de 
caracteres, de modo a receber seu pro- 
grama em código de máquina (um ca- 
ractere por byte de programa). 


10 PRINT AT 4,9;"MONITOR TK85” 


15 PRINT AT 8,4;"1 - PROGRAMAR 
EM CODIGO” 
20 PRINT AT 10,4;"2 - EXAMINAR 
A MEMORIA” 


50 LET AS=INKEYS 
60 IF AS<"1” OR AS>"2” THEN 
Goto 50 


70 CLS 

80 GOSUB 100+200*(VAL AS-1) 
85 CLS 

90 RUN 

100 PRINT AT 21,0;"ENDERECO INI 
CIAL?” 

105 INPUT SA 

110 INPUT D$ 

120 IF D$="" THEN GOTO 110 
125 IF, D$(1)="8" THEN RETURN 
130 LET S$=D$(I TO 2) 

135 SCROLL 

140 FOR N=1 TO 2 

150 IF S$(N)<"0” OR SS(N)>"F” 


THEN PRINT "CARACTER INVALIDO” 
155 IF S$(N)<”0" OR SS(N)>"E” 
THEN GOTO 110 

160 NEXT N 

170 POKE SA, (CODE S$(1)-28)*16+ 
CODE S5(2)-28 

175 SCROLL 

180 PRINT SA,DS( TO 2) 

190 LET DS=D5(3 TO ) 

195 TF LEN D$=1 THEN GOTO 110 
200 LET SA=SA+1 

210 GOTO 120 

300 PRINTJAT 21,0;"ENDERECO INI 
CIAL?” 

310 INPUT SA 

320 SCROLL 

330 PRINT SA; 

340 FOR M=0 TO 7 

350 LET HS»" 

360 LET HS(1)=CHRS (INT (PEEK ( 
SA+M) /16)+28) 

370 LET HS(2)=CHRS (28+PEEK (SA 








+M)=16*(CODE H$(1)-28)) 

400 PRINT TAB 7+3*M; HS; 

410 NEXT M 

440 LET SA=SA+B 

450 LET AS=INKEYS 

460 IF A$="" THEN GOTO 450 

470 IF AS=CHRS 118 THEN RETURN 
480 coTO 320 


ya 


10 CLS 

20 LOCATE 8,7:PRINT "1 - Progra 
mar em código” 

30 LOCATE 8,9:PRINT 
ar memória” 

40 LOCATE 8,11:PRINT "3 - Grava 
r bytes na fita” 

50 AS=INKEYS:IF AS="" THEN GOTO 
50 


"2 - Examin 


60 CLS 

70 ON VAL(AS) GOSUB 200,400,600 
80 GOTO 10 É 

200 INPUT "Endereço inicial”;SA 
210 LINE INPUT D$ 

220 IF DS-"" THEN GOTO210 

230 IF LEFTS(D$,1)="4" THEN RET 
URN 
240 
250 


SS=LEFTS(DS,2) 

POKE SA, VAL (8H0+55) 

260 PRINT SA, LEFTS(D$,2) 

270 DS=MIDS (DS, 3) 

280 SA-SA+1:GOTO 220 

400 INPUT "Endereço inicial";SA 
410 PRINT "Saída para impressor 
a ? (S/N) 

420 AS=INKEYS:IF AS-"" THEN 420 
430 IF AS="S” OR AS-"s” THEN OP 
EN "LPT;” FOR OUTPUT AS 41 ELSE 
OPEN "CRT:"FOR OUTPUT AS 41 
440 PRINT 41,5A; 

450 FOR M=0 TO 7 

460 PRINT 41,” ";RIGHTS(” 
S(PEEK(SA+M)),2); 

470 NEXT:PRINT 41, 

480 SA=SAtI 

490 AS=INKEYS:IF AS="" THEN 490 
500 IF AS=CHR$(13) THEN CLOSE & 


"+HEX 


1: RETURN 
510 Goto 440 
600 INPUT "Endereço inicial ";S 


A 

610 INPUT "Número de bytes ";N 
620 LINE INPUT "Nome do arquivo 
";N$ 

630 XS="CAS:"+NS 

640 BSAVE XS,SA,SA+N,SA 

650 RETURN 


COMO O 





Quando você rodar o programa apro- 
priado à sua máquina, ele exibirá um 
menu onde aparecem as três opções bá- 
sicas de trabalho com o monitor: “En- 
trar Código de Máquina"”, “Examinar 
a Memória” ou — exceto no ZX-81 — 
“Armazenar Bytes na Fita”. 

Se você quiser entrar código de má- 
quina, deverá pressionar a tecla 1. De- 
pois de fornecer um endereço inicial pa- 


ra a máquina e pressionar <ENTER> 
ou <RETURN>, você deve começar a 
digitar os códigos de máquina na forma 
de valores hexadecimais de dois dígitos 
cada. Cada valor deve ser separado do 
seguinte por um espaço em branco. 

Antes de pressionar < ENTER > ou 
<RETURN> você pode entrar tantos 
pares|quantos'desejar. Mas é melhor di- 
gitar uma linha por vez e checar rigoro- 
samente os dígitos antes de pressionar 
<ENTER>, É muito mais fácil editá- 
los enquanto eles ainda estão na tela do 
que quando estiverem na memória. 

Você notará que as versões do progra- 
ma para o Spectrum e para o ZX-81 tra- 
duzem seus números hexa para decimais, 
antes de colocá-los na memória, Isto de- 
ve ser feito, como explicamos antes, por- 
que o POKE é uma declaração do BA- 
SIC, e o BASIC nestas duas máquinas 
não aceita números hexa. Mesmo assim, 
é melhor você pensar apenas em hexa 
pois isso lhe dará uma melhor percepção 
de como o computador funciona. 

Você deve finalizar os seus progra- 
mas de código de máquina com um si 
nal sustenido * ou, no ZX-B1, um si- 
nal de dólar. Isso trará o menu de volta 
para a tela. 

Se você selecionar a opção 2 para 
examinar a memória, o programa pedi- 
rá novamente um endereço inicial — 
desta vez é o início da área de memória 
que precisa ser observada. Para exami- 
nar todo o seu programa em código de 
máquina, esse endereço inicial deverá ser 
o mesmo que o endereço inicial que vo- 
cê forneceu anteriormente. 

A seguir, exceto no ZX-81, será pergun- 
tado se você quer imprimir uma cópia de- 
finitiva do programa em código de máqui- 
na na sua impressora. Se você não quiser 
fazer isso, e pressionar N, o programa im- 
primirá o endereço inicial e os conteúdos 
dessa locação e das sete locações de memó- 
ria subsequentes em uma linha na tela. 

Se, ao contrário, você responder à 
questão acima pressionando qualquer 
tecla do teclado — exceto < ENTER > 
ou <RETURN> —, o endereço origi- 
nal será impresso, junto com seus con- 
teúdos e os conteúdos dos sete bytes sub- 
sequentes. Assim, seguindo esse méto- 
do, você poderá imprimir todo o seu 
programa de código de máquina. 

Se você localizar um erro e quiser 
corrigilo, pressione <ENTER> ou 
<RETURN>, e o programa retorna- 
rá ao menu. Pressione 1 para entrar o 
código de máquina, e o computador pe- 
dirá novamente um endereço inicial. 
Desta vez, forneça o endereço do byte 
que estiver errado. Se o erro atingir to- 
da uma série, forneça apenas o endere- 
ço do primeiro byte da série; em segui- 








da, entre os bytes corretos. 

Outro modo de fazer correções, 
quando existe apenas um erro, consiste 
em acionar a tecla < BREAK > (nos mi- 
cros da linha Sinclair e TRS-Color), ou 
as teclas <CONTROL> <STOP> 
(no MSX), para interromper o progra- 
ma monitor, e usar o POKE de modo 
direto, para corrigir o conteúdo da lo- 
cação apropriada. Lembre-se de que no 
Spectrum e no ZX-81 você deve usar o 
POKE com um número decimal. Assim 
que terminar a correção, pressione 
<ENTER> ou <RETURN> e exami- 
ne mais uma vez a memória para ter cer- 
teza de que dessa vez você acertou, 


ASUS 


Se você quiser conservar o monitor 
de código de máquina, deverá guardá- 
lo em uma fita separado de seus progra- 
mas de código de máquina, da maneira 
usual. A opção “Armazenar Bytes em 
Fita” no menu do programa monitor 
serve apenas para guardar as rotinas de 
código de máquina que foram entradas 
com o monitor. A única exceção é para 
o ZX-81, no qual você deve guardar suas 
rotinas de código de máquina junto com 
o programa monitor, 

Nas outras máquinas, se você pres- 
sionar 3, o programa pedirá mais uma 
vez um endereço inicial. Este deverá ser 
normalmente o endereço inicial da roti- 
na de máquina que você acabou de en- 
trar, embora qualquer parte da memó- 
ria possa ser guardada por meio da utis 
lização de um endereço diferente. 

As versões deste programa para o S- 
pectrum, o TR$-Color e o MSX pedi- 
rão então a você os números de bytes 
que a sua rotina em código de máquina 
ocupa, Você pode calcular isso pela con- 
tagem dos pares de dígitos hexas que fo- 
ram entrados anteriormente. Cada par 
é um byte. Em seguida, você deve en- 
trar um nome para a rotina — assim, O 
seu computador será capaz de identificá- 
lo quando você quiser carregá-lo, A ro- 
tina será gravada pressionando-se as te- 
clas <PLAY> e <RECORD> no 
gravador, antes de acionar a tecla 
<ENTER> do computador. Quando 
a gravação se completar, aparecerá o 
menu na tela, novamente, 
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Com o Spectrum, o TRS-Color e o 
MSX a rotina de código de máquina é 
carregada de modo normal (por exem- 
plo, no MSX deve-se utilizar o coman- 
do BLOAD “CAS:ROTINA”, onde 
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ROTINA é o nome dado à rotina quan- 
do esta foi gravada). Contudo, se o mo- 
nitor na memória da máquina estiver ro- 
dando, você deverá antes disso pressio- 
nar <BREAK> ou < L> 

<STOP>, pa interrompê-lo. 
Lembre-se de repetir CLEAR para 
proteger uma área de memória para o 
você tenha Pd mina, e ai 
t a máquina, ou al- 
ão do RAMTOP desde 

tou, 

Di O seu programa em có- 
digo de máquina será automaticamente 
Pilha da fita junto com o monitor. 


RR 


Para exemplificar o uso do monitor, 
tente o programa listado abaixo. Com 
exceção dos micros da linha MSX, esse 
programa rola a tela para trás — isto é, 
de cima para baixo e não o contrário. 
Para o MSX, a rotina apresentada ser- 
ve para preencher a tela com traços co- 
loridos (é o mesmo programa apresen- 
tado na primeira lição desta série). En- 
tre a rotina adequada à sua máquina, 
utilizando o programa monitor. Termi- 
ne digitando um sinal *. 


BE 05 EO AS 84 A? 
00 30 88 EO A6 84 


o: o 


Bc 06 00 25 E4 39 


01 18 03 2a 0C 40 09 54 
5D 01 F7 02 2A 0C 40 09 
ED B8 2A OC 40 23 36 00 
54 SD 13 01 1F 00 ED BO 
cs 


nd 


98 ED 6B 02 03 


[o DOTE 


Uma vez digitado o programa em có- 
digo de máquina e verificados os possi- 
veis erros, chegou o momento de rodá- 
lo, Lembre-se que ele não reagirá ao co- 
mando RUN normal. Para rodar pro- 
gramas em código de máquina, são ne- 
cessárias instruções especiais que variam 
de computador para computador. 


O Spectrum co ZX-81 utilizam a fun- 
ção USR (abreviatura de USer Routine) 
do BASIC, seguida de um endereço ini- 
cial do ja em código de máqui- 
na, O USR faz retornar o valor decimal 
contido no registro interno BC do mi- 
era eaadDEs uma vez que se tenha 

a execução da rotina em có- 
ia de máquina. Isto não é muito útil 
para você, no momento, mas significa 
que se esse retorno não ocorrer normal- 
mente O programa em código de máqui- 
na não deve ter rodado corretamente. 

O USR não é um comando, mas sim 
uma função. E a estrutura do BASIC do 
Sinclair exige que uma linha executada 
seja iniciada com um comando. Assim, 
o USR deve ser prefaciado por uma pa- 
lavra de comando. Se você utilizou os 
endereços iniciais sugeridos neste artigo, 
para o Spectrum, faça: 


RANDOMIZE USR 32000 
e no ZX-81 utilize: 
RAND USR 16514 


(observe que a tecla RAND no Spectrum 
fornece RANDOMIZE na tela. No 
ZX-81 a tecla RAMD fornece RAND na 
tela). Em si próprio, o comando não tem 
sentido, mas ele dá resultado quando 
você rodar a rotina em código de má- 
quina. Lembre-se de que a linha acima 
é apenas um exemplo, Troque o núme- 
ro que vem depois de USR pelo endere- 
ço decimal inicial de seu programa, for- 
necido para o monitor quando digitado- 

Na verdade, qualquer comando BASIC 
pode ser utilizado para prefaciar USR. Por 
exemplo, o PRINT USR 32000, embo- 
ra este, na verdade, imprima o valor do 
par de registros BC na tela, e isso sem- 
pre seja desejável, 


RANDOMIZE USR 32000 ou 
RAND USR 16514) é mais utilizado 
porque evita efeitos colaterais indeseja- 
dos. Mas deverá ser evitado se você es- 
tiver utilizando números aleatórios em 
qualquer parte do programa, pois ele irá 
acionar o gerador de números aleatórios 
novamente. Então, utilize no Spectrum: 








LET L = USR 32000 
e no ZX-81 empregue: 
LET L - USR 16514 


Isso coloca o valor dos registros BC 
na variável L, quando o programa em 
código de máquina termina de rodar — 
isso pode não ter nenhuma utilidade pa- 
ra o seu programa, mas no Sinclair os 
comandos LET, L, = e USR estão to- 
dos nas mesmas teclas, O que simplifica 
o trabalho de digitar. 


O TRS-Color também possui instru- 
ções para executar programas em códi- 
go de máquina. EXEC é um desses 

; deve ser seguido pelo endere- 
ço inicial da rotina em código de máqui- 
na que você quiser rodar, Por exemplo: 
EXEC 24000 


rodará a rotina do código de má- 
quina que se inicia na locação de memó- 
ria em 24000 decimal, Existe também a 
função USR, que aceita parâmetros ou 
variáveis para serem passados entre o 
programa BASIC e a rotina em código 
de máquina. Antes de começar, você 
precisa definir onde deve se iniciar a ro- 
tina em código de máquina. Isso deve 
ser feito por meio da instrução DE- 
FUSR, seguida de um número de 0 a 9 
Assim, você pode definir até 10 rotinas 
USR diferentes dentro de um programa 
em BASIC. Quando DEFUSR não é se- 
guido de um número o computador es- 
tabelece que seu significado equivale a 
DEFUSR). A sintaxe normal em um 
programa BASIC é: 


10 DEFUSR1 = 24000 


Isso define a rotina USR número 1, 
como se iniciando na locação 24000 de- 
cimal da memória. 

A função que realmente executa o có- 
digo de máquina é USR. Devido a um 
defeito na ROM, para chamar uma ro- 
tina de código de máquina do TRS- 
Color, USR deve ser seguida de O e o nú- 
mero da rotina que você já definiu. 

A sintaxe normal é: 


P = USROL(O) ou PRINT USROI(Q) 


A função USR copia o valor da va- 
riável Q no acumulador interno do mi- 
ecroprocessador. Assim, ela pode ser 
captada e usada pela rotina em código 
de máquina, se for necessário. 

Neste exemplo, quando a rotina em 
código de máquina termina sua execução, 
os conteúdos do acumulador retornam 
ao programa BASIC, como variável P. 

Como em outros casos, variáveis de 








string também podem ser transmitidas 
entre o programa em BASIC e progra- 
mas em código de máquina. 


DD 

Para executar programas em código 
de máquina, o MSX utiliza a função do 
BASIC chamada USR (abreviatura do 
USer Routine), seguida de um endereço 
inicial do programa de código de máqui- 
na, A USR retorna o valor decimal con- 
tido em um par de registros internos do 
microprocessador, uma vez que se tenha 
completado a execução da rotina em có- 
digo de máquina, Isto não é muito útil 
para você, no momento, mas, se este re- 
torno não ocorrer normalmente, signifi- 
ca que o programa em código de máqui- 
na não deve ter rodado corretamente. 

A função USR aceita também pará- 
metros ou variáveis para serem passa- 
dos entre o programa BASIC e a rotina 
em código de máquina. 

Como já foi dito anteriormente, 
USR é uma função e não um coman- 
do. Ora, a estrutura do BASIC do MSX 
impõe que ela esteja contida numa li- 
nha iniciada com um comando. Pode- 
mos utilizar então algo do gênero: 


P = USR(Q) ou PRINT USR(Q) 


A função USR copia o valor da va- 
riável Q no acumulador interno do mi- 
croprocessador. Assim, ele pode ser cap- 
tado e usado pela rotina em código de 
máquina, em caso de necessidade. 

Tal como nos exemplos já vistos, quan- 








do a rotina em código de máquina termi- 
na sua execução, os conteúdos do acumu- 
lador retornam ao programa BASIC, co- 
mo a variável P. Para a rotina apresenta- 
da neste programa, é necessário preparar 
a tela gráfica antes de chamá-la, pois ela 
não faz isso internamente. Para executá- 
Ja, faça o seguinte programa e rode-o com 
o comando RUN: 


1 SCREEN 2 
2 PSET(0,0) 
3 A=USR(B) 

4 coro 4 


Como foi reservado o espaço em 
RAM acima de &HE000, usamos o en- 
dereço inicial - 8191 ou $HE001, em he- 
xadecimal, de modo a iniciar o USR. O 




































pino X 
complemento do número decimal que 
normalmente apareceria como negativo, Ay 
“Uma observação final para a 
de exemplo para o MSX : ela usa a tela Ê 
gráfica 1); por isso, se o lei- 
tor acidentalmente rodar a rotina sem 
o programa dado acima iu retorna. 
as coisas ao normal), deverá digitar 
SCREEN 0 e pressionar a tecla | 
<RETURN> depois. o 
















VARIÁVEIS 


Quando você quiser armazenar uma 
informação qualquer na memória do 
computador, será necessário, identificá- 
la; do contrário, o computador será c; 
paz de descobrir onde está a informa- 
ção no momento em que você precisar 
dela novamente. Muitas vezes a infor- 
mação que se pretende armazenar con- 
siste em um número cujo valor se mo- 
difica sempre que o computador execu- 
ta uma repetição (laço) em uma se: 
do programa. Abaixo temos um exem- 
plo de uma situação desse tipo: 


anne é [4 


LET X=0 
20 LET X=X+1 
30 PRINT X;" *; 
40 FOR T=0 TO 10 
50 NEXT T 
60 Goto 20 

A linha 60 cria o laço, fazendo com 
que o programa se repita indefinidamen- 
te. O número representado por X (ori- 
ginalmente zerado pela linha 10) atinge 
a linha 20 e é aumentado em 1. O X é 
chamado de variável numérica, pois ar- 
mazena um número. 

Para entender melhor como funciona 
uma variável numérica, imaginemos que 
a memória do computador é constituí- 
da por uma série de caixas ou comparti- 
mentos. Cada caixa recebe um nome. 
Num computador simples, esses nomes 
poderão ser letras do alfabeto. Para ar- 
mazenar um número na memória, bas- 
tará atribuir esse valor a uma das caixas: 











LET C= 25 


Essa instrução armazena o valor 25 
na variável C, Nem todos os computa- 
dores exigem o emprego do comando 
LET, mas é uma boa idéia incluí-lo até 
que você esteja experiente. 

Uma vez armazenado, esse valor po- 
de ser utilizado por outras declarações 
em outros cálculos, etc. Você pode di- 
gitar, por exemplo: 


PRINT C* 4 
ou: 
PRINT C/5 
Essas declarações deverão fornecer as 


respostas 100 e 5 respectivamente, se 
continuarmos com o valor definido pa- 





Todos aqueles Xs e Ys esquisitos nos 
programas tornam-se simples quando 
se entende realmente sua função. 

Aprenda como trabalhar com variáveis 
em seus próprios programas. 


ra C, acima. Mas se você digitar: 
PRINT C 


verá que o. valor de C permanece inal- 
terado. Para modificar o valor de C, 
aumentando-o para 30, por exemplo, di- 
gite diretamente: 


LET C= 30 


ou, ainda: 
LETC=C+5 


Note que a linha de comando acima 
não faz sentido do ponto de vista mate- 
mático. Entretanto, o comando LET 
não deve ser entendido como uma equa- 
ção, apesar do sinal de igualdade. A de- 
claração acima significa apenas: “tome 
o valor numérico armazenado na variá- 
vel €, some 5 a ele, e coloque de volta 
o resultado na variável C”. O que acon- 
tece é que o valor anterior presente em 
€ (no caso, 25) é apagado quando ar- 
mazenamos um novo valor na variável. 








A combinação de caracteres permiti- 
dos pelo BASIC para se dar nome: 
variáveis numéricas difere de computa- 
dor para computador. As principais re- 
gras são mostradas no box na página 99. 

Mas uma coisa que nenhum 
tador aceitará é um nome de vari 
se inicie por um número. Por exemplo: 


LET 7 = 14 











não tem sentido, Um nome de variável 
pode incluir números (exemplos: VART, 
AJ98S, etc.), mas o primeiro caractere 
precisa ser sempre uma letra. Além dis- 
so, não é é permitido utilizar como nome 
de variáveis palavras que representem 
comandos, como TO, THEN, OR ou 
AND, etc. Alguns micros não aceitam 
que essas palavras-chaves façam parte 
do nome da variável: a variável BEND, 
não seria aceita pelo interpretador BA- 
SIC, pois inclui a expressão END. 


ELI 


A maioria dos programas que você 
escrever utilizará diversas variáveis. Eis 








A E 11107 
O QUE SÃO 




























































































































































um programa curto que simula a ação 
deuma bomba “universal” de combus- 
tível (gasolina, álcool, etc.) e que fun- 
ciona de maneira muito interessante: 


LET LITROS=0 

20 LET CRUZ=0 

30 CLS:PRINT 

40 PRINT ” ESCOLHA O COMBUSTIVE 

Es aLCOOL 9ASOLINA 
dIESEL * 

50 INPUT AS 

60 IF AS$="A” THEN QTY=0.3 

70 IF A$="G” THEN QTY=0.2 

80 IF A$="D" THEN QTY=0.4 

90 cLS 

100 PRINT €130,"COMBUSTIVEL "; 

As 
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E O QUE É UMA VARIÁVEL? O QUE É CORDÃO (STRING) 
E COMO SÃO UTILIZADAS AS E VARIAVEIS NUMÉRICAS E 

VARIÁVEIS? ALFANUMÉRICAS 
E VARIÁVEIS DE CONTROLE HH CORDÕES VAZIOS E 








“PARA LAÇOS FOR...NEXT 





110 PRINT €199,"LITROS” 120 PRINT €512,"PRECO A PAGAR” 
120 PRINT 6256,"PRECO A PAGAR” 160 PRINT 6396, LITROS; 
130 LET K=PEEK(344) 170 PRINT €526,CRUZ;"MIL CRU- 
140 IF K=251 THEN CLS:GOTO 10 ZEIROS"; 
150 IF K=253 THEN LET CRUZ=CRUZ 

' +L:LET LITROS=INT((LITROS+QTY)* 
10)/10 


160 PRINT 6206, LITROS 
170 PRINT €270,CRUZ;"MIL CRUZEI 10 LET litros=0 
0 





Ros” Ê 20 LET cru 
200 GOTO 130 40 PRINT ” Escolha o combusti 
E É vel: * 
Atenção: o programa listado acima 45 pRINT "A(lcool) G(asolin 
rodará apenas nos compatíveis com o a) D(iesel)” 


TRS-Color. Para poder executá-lo tam- 50 INPUT AS 
bém em micros da linha TRS-80, faça 60 IF A$="a” THEN LET aty=1/ 





À as seguintes modificações: 3 
70 IF AS= LET aty=1 

100 PRINT €258,"COMBUSTIVEL 5 
";aAs 80 IF AS= LET qty=1/ 

110 PRINT €385,"LITROS” 3 

















PROGRAMAÇÃO DE JOGOS 





90 cLS 
100 IF INKEYS 





n” THEN LET cr 





uz=cruz+l: LET litros=INT ((l1 
trostaty)*10)/10 
105 PRINT AT 6,2;"COMBUSTIVEL 


";AS 
110 PRINT AT 9,7;"LITROS” 

120 PRINT AT 9,15; litros; 

130 PRINT AT 12,0;"PRECO A PAG 
AR" 

140 PRINT AT 12,15;cruz;” mil 
cruzeiros” 

150 IF INKEY$="f” THEN CLS 
Goto 10 

200 GoTO 100 


5 CLS 
10 LET LITROS=0 


MEBBBRDDE O 6 procramuçiomsi 6 











20 LET CRUZ=0 


40 PRINT ” ESCOLHA O COMBUSTIV 
EL: * 
45 PRINT "A(LCOOL)  G(ASOLIN 


A)  D(IESEL)” 

50 INPUT AS 

60 IF AS="A” THEN LET QTY=1/3 
70 IF AS="G" THEN LET QTY=1/5 
80 IF AS="D" THEN LET QTY=1/3 
90 cLS 

100 IF INKEYS<>"N” 
5 

101 LET CRUZ=CRUZ+1 
102 LET LITROS-LITROS+QTY 

105 PRINT AT 6,2;"COMBUSTIVEL 
";AS 

110 PRINT AT 
120 PRINT AT 
130 PRINT AT 
R” 

140 PRINT AT 
RUZEIROS” 
150 IF INKEYS="F” 
200 GoTo 100 


THEN GOTO 10 


9,7;"LITROS” 
9,15;LITROS; 
12,0;"PRECO A PAGA 


12,15;CRUZ;” MIL C 


THEN RUN 


5 REM ***TECLE A BARRA DE ESPAÇ 
Os PARA LIGAR A BOMBA E D PARA 
DESLIGA-LA*** 

10 LET LITROS=0 

20 LET CRUZEIROS=0 

30 CLS:LOCATE 10:PRINT"BOMBA DE 
COMBUSTIVEL” 

40 PRINT:PRINT:PRINT"Escolha o 
seu combustível” 


50 LOCATE 10,5:PRINT"I- alcool” 
60 LOCATE 10,6:PRINT”"2- gasolin 
a” 

70 LOCATE 10,7:PRINT"3- diesel” 
80 LOCATE 15,12: INPUT"Sua opção 
2 “O 

90 IF C=1 THEN P=1/3.1 


100 IF C=2 THEN P=1/4.7 

110 IF C=3 THEN P=1/3.5 

120 cLs 

130 LOCATE 10,5:PRINT"Combustív 
ei ";c 

140 LOCATE 10,10:PRINT"Preço a 
pagar =>" 

150 LOCATE 17,12:PRINT"Litros=> 


160 INS=INKEYS:IF INS=CHRS (68) 
THEN END 

165 IF INS<>CHRS (32) THEN 160 
170 CR=CR+1000:LI=LI+P 

180 LOCATE 26,10:PRINT CR 

190 LOCATE 26,12:PRINT LI 

200 coTo 160 


5 REM **TECLE A BARRA DE ESPA 
cos PARA RODAR A BOMBA E F PARA 
TERMINAR 

10 LET LITROS = 0 

20 LET CRUZEIROS - O 


30 HOME : HTAB 10: PRINT "BOMB 
A DE COMBUSTIVEL” 
40 PRINT : PRINT "Escolha o se 


u combustivel:” 





50 PRINT : HTAB 5: PRINT "1- A 
LCooL” 

60 BTAB 5: PRINT "2- GASOLINA” 
70 HTAB 5: PRINT "3- DIESEL” 
80 VTAB 15: HTAB 10: INPUT "Op 
cao =>";C 

90 IF C=1THENP=1/3.1 
100 IF C=2THENP=1/4.7 
110 IP C=3THENP=-1/3.5 
120 HOME 

130 VTAB 5; HTAB 10: PRINT "Co 
mbustivel ";C , 

140 VTAB 10: HTAB 10: PRINT "P 
reco a pagar =>" 

150 PRINT : HTAB 17: PRINT "Li 
tros =>" 

160 GET INS: IF INS = CHR$ (7 
0) THEN END 

165 IF INS < > HRS (32) THE 
N 160 

170 CR = CR + 1000:LI = LI + P 
180 VTAB 10: HTAB 26: PRINT CR 
190 VTAB 12: HTAB 26: PRINT I 
NT (LI * 100 + .5) / 100 

200 Goto 160 


Vale a pena experimentar esse pro- 
grama de muitas maneiras, até entender 
como ele funciona, pois há nele um con- 
junto razoável de variáveis. 

A função de algumas delas é bastan- 
te evidente: a variável A, por exemplo, 
seleciona o tipo de combustível, através 
de um número (1, 2 ou 3) e determina, 
nas linhas 60 a 80, qual é a fração de li- 
tro do combustível escolhido que vale 
mil cruzados. 

A tecla N aciona a bomba que mede 
o fluxo de combustível. O programa 
começa então a incrementar o número 


de litros de combustível (variável 
CRUZ, inicialmente zerada na linha 
20, bem como a variável LITROS). 
Enquanto a tecla N estiver sendo pres- 
sionada, o programa continuará avan- 
çando; ao atingir a linha 200, ele re- 
tornará à linha 130 (100 no Spectrum), 
e manterá o medidor funcionando. Pa- 
ra terminar de abastecer, pressione a 
letra F. 

A presença na tela de frações deci- 
mais com muitos dígitos revela a impre- 
cisão própria do computador, quando 
é feita a conversão de números binários 
internos, para decimais comuns 


PANE de ut 


Assim como são utilizadas em decla- 
rações LET, as variáveis também podem 
aparecer em laços FOR...NEXT, como 
você já deve ter percebido. Neste caso, 
a variável que é alterada a cada repeti- 
ção do laço é chamada de variável de 
controle. 

Em alguns computadores, os carac- 
teres empregados para dar nome às va- 
riáveisde controlenão podem ser aplica- 
dos a variáveis numéricas (veja quadro). 
Nos micros da linha Sinclair, por exem- 
plo, você pode digitar: 








LET SCORE = 0 
LET RECORDE = O 


para variáveis numéricas, mas não po- 
de utilizar nomes como estes em instru- 
ções FOR...NEXT, tais como em: 














FOR TEMPO = 1 TO 99999 


Ao invés disso, você é obrigado a em- 
pregar a variável de controle com uma 
única letra, como por exemplo T. Os ou- 
tros computadores (linhas TRS, Apple 
e MSX) não têm essa exigência. 


UV 


E se, além de números, quisermos ar- 
mazenar na memória do computador in- 
formações como nomes, endereços, etc.” 

As variáveis capazes de armazenar um 
conjunto de caracteres, incluindo letras 
enúmeros, são chamadas de variáveis al- 
fanuméricas, em BASIC. Outra denomi- 
nação usada é a de cordão (ou string, em 
inglês). Para facilitar a compreensão des- 
se novo elemento, podemos partir de 
uma comparação: um cordão funciona 
como uma espécie de sacola de compras. 
Você pode enchê-la com um grande nú- 
mero de artigos e manejá-la como uma 
unidade — sem ter que ocupar-se com 
cada artigo separadamente. Da mesma 
forma, um único nome de variável alfa- 
numérica serve para caracterizar várias 
memórias, simultaneamente. 

Os cordões podem conter quase tu- 
do: letras, números, sinais de pontua- 
ção, espaço em branco, e até mesmo ca- 
racteres gráficos. Eles devem estar sem- 
pre delimitados entre aspas 


“NOMES E ENDEREÇOS DE 
CLIENTES”. 


“POR FAVOR ENTRE AGORA SUA 
RESPOSTA” 


“24 de Janeiro” 
*01-7346710" 


“NE 135 S 181” 


O exemplo seguinte também é um 
cordão, embora apenas alguns compu- 
tadores, como o Spectrum, o TK-2000 
eo MSX, permitam que se possa digitá- 
los desta forma diretamente no teclado: 


A linguagem BASIC tem recursos pa- 
ra manipular cordões alfanuméricos de 
diversas maneiras. Por exemplo, existem 
funções e operações para juntar dois ou 
mais cordões uns nos outros (operação 
de concatenação), ou para dividi-los em 
dois ou mais subcordões . 

Entretanto, o computador não “*en- 
tende” o que está dentro de um cordão 
e reproduz o conteúdo deste sempre de 
forma exatamente igual, mesmo que ele 
esteja escrito em sânscrito ou alemão. 
Não é possível, também, efetuar opera- 







































































ções matemáticas com um cordão, como 
somas, multiplicações, divisões e outras. 

Para provar isso, rode o programa 
abaixo: 


[é ló adSEs 


10 PRINT "2+2= "; 
20 FOR N=-1 TO 40 
25 NEXT N 


30 PRINT 1+2*2 


O conteúdo do cordão (entre aspas) 
é impresso como você o entrou. Na ver- 
dade, somente a linha 30 é calculada, e 
seu resultado, impresso (a linha 20 simu- 
la o tempo que o computador está “'gas- 
tando” para pensar, antes de fornecer 
sua resposta). No MSX, no Apple e no 
TRS-80, modifique 40 para 2000, para 
um retardo razoável de tempo. 

Mas se quiser utilizar o mesmo cor- 
dão mais de uma vez, pode economizar 
tempo de digitação (e espaço em memó- 
ria) criando um rótulo ele. Esse ró- 
tulo é chamado também de variável al- 
fanumérica. Sua extensão pode variar de 
um computador para outro (veja qua- 
dro) mas a variável deve ser sempre se- 
guida por um sinal de cifrão ($). 

Eis aqui, por exemplo, um sistema au- 
tomático de pedidos em uma lanchonete: 





Variáveis: o que você pode e não pode usar 
Tipo de 
variável 
Variável Comprimento: | Comprimento: | Comprimento: | Comprimento: 
numérica sem limite, todas | máximo de 255 | máximo de 255 | máximo de 255 
as letra: caracteres, mas | caracteres, mas | caracteres, mas 
conhecida: só as duas pri-| só as duas pri- | só as duas pfi- 
meiras letras são | meiras letras são | meiras letras são 
reconhecidas. | reconhecidas. reconhecidas. 
No ZX-81, só le-| No TRS-Color, só | Conversão au- | Só letras maiús- 
tras maiúsculas. | letras maiúscu- | tomática para | culas: não há 
No Spectrum | las. No TRS-BO | maiúsculas. conversão auto- 
maiúsculas e mi-| há conversão au- mática. 
núsculas, mas 56| tomática para 
maiúsculas são| maiúsculas. 
reconhecidas. 
Caracteres espe- | Caracteres espe- | Caracteres espe- | Caracteres espe- 
ciais no nome] ciais no nome | ciais no nome | ciais no nome 
não permitidos. | não permitidos. | não permitidos. | não permitidos. 
Espaços no no- | Espaços no no- | Espaços no no-| Espaços no no- 
me: permitidos | me: não permiti- | me: não permiti- | me: não permiti- 
mas não contam | dos. dos. dos. 
Variável de con- | Uma letra ape- | Variável numéri- | Variável numéri-| Variável numéri- 
trole p/ nas. ca inteiraou de | ca sem restri-| ca sem restri- 
FOR... precisão simples.| ções. ções. 
Variável Uma letra ape-| Como nas va-| Como nas va-| Como nas variá- 
alfanumérica nas, seguida de| riáveis numéri-| riáveis numéri- | veis numéricas, 
ha cas, seguida de | seguida de $. 
$, ou declarada 
pela inicial em] pela inicial em 
DEF: EFSTR. 












































































































































tó uaaaESEs 


10 LET A$="POR FAVOR, DIGITE QU 
ANTOS” 


20 LET B$=" VOCE QUER” 

30 PRINT AS;"HAMBURGERES” ; BS 
35 INPUT H 

40 PRINT AS;"SACOS DE FRITAS”; 
BS 

45 INPUT 5 

50 PRINT AS;” MILK SHAKES";BS 
55 INPUT M 

60 PRINT "OBRIGADO. IRA CUSTAR 
"; (HX 15000+5*5000+M*13000) ; 


” POR FAVOR.” 





A possibilidade de reduzir o tamanho 
dos programas é a razão pela qual sis- 
temas de processamento de dados e de 
textos — que incluem informações e 
mensagens muito utilizadas, tais como 
“número da conta do cliente” e “'pre- 
ço por milhar” e “18% de ICM” — uti- 
lizam variáveis alfanuméricas. 

Você também poderá empregá-las na 
programação de jogos. Suponhamos que, 
em um jogo, seja necessário a todo mo- 
mento colocar na tela uma linha enorme 
de símbolos gráficos — o muro de uma 
prisão para um jogo de aventuras, por 
exemplo. Tudo o que você precisa fazer 
é digitá-lo uma única vez, “rotulá-lo” e 








utilizá-lo sempre que quiser. 


la, como mostramos no programa: 


5 CLS 
10 LET B$S=" 


20 LET AS=BS+” 

A PARA VOCES"+BS 
30 FOR N=1 TO 65 
40 PRINT €160,MIDS(AS,N,32) 

50 PRINT €320,MIDS(AS,66-N,32) 
60 SOUND N*3,1:NEXT N 

80 coro 30 


Para rodar o programa acima nos mi- 
cros da linha TRS-80, substitua as linhas 
40, 50 e 60; assim: 


40 PRINT €320,MIDS(AS,N,32) 


50 PRINT €640,MIDS (AS$,66-N,32) 
60 NEXT N 


10 LET B$S=" 


20 LET AS=B5+" UMA FELIZ 
PASCOA P ARA VOCES "+BS 
30 FOR N=1 TO 65 

40 PRINT INK Z;AT 8,0;AS(N 
TO N+31) 

50 PRINT INK Z;AT 12,0:;AS(66 
-=N TO 97-N) 

60 SOUND .02,N/2 

70 NEXT N 

80 Goro 30 

10 LET BS=" 


20 LET AS=BS+" 
SCOA PARA VOCES 
30 FOR N=1 TO 65 
40 PRINT AT 8,0;AS(N TO N+31) 
50 PRINT AT 12,0;AS(66-N TO 97 
=N) 

70 NEXT N 

80 Goto 30 


sy 


10 CLS:CLEAR 1000 
20 B$=SPACES(40) 
30 AS=BS+" 


UMA FELIZ PA 
"+B5 


Movimente esse cordão por toda a te- 


UMA FELIZ PASCO 


UMA FELIZ PASCO 








à PARA VOCÊS 
40 FOR N=1 TO 80 

50 LOCATE 0,7:PRINT MIDS(AS,N,3 
9) 

60 LOCATE 0,14:PRINT MIDS(AS,81 
-N,39) 

65 FOR X=1 TO 50 
70 NEXT 


[ÉS] 


10 HOME 
20 BS - 


"+Bs 


NEXT 


": REM 40 ES 
PACOS 

30 AS - BS +" UMA FELIZ 
PASCOA PARA VOCES "+ B$ 
35 INVERSE 
40 FORN = 
50 VTAB 7: 
0) 

60 TAB l4: 
- N,40) 

65 FORX = 
70 NEXT 

80 Goto 40 


1 TO 80 


PRINT MIDS (AS,N,4 


PRINT MIDS (AS,81 


1 TO 100: NEXT 


Aqui você tem um cordão enorme, co- 
mo mostramos na linha 20 — todos os 
espaços na linha 10, mais a mensagem, 
colocados juntos. Mais adiante, veremos 
como isso é feito, e como o cordão é 
“cortado” novamente para caber na te- 
la. Mas, se nesse meio tempo você qui- 
ser modificar a mensagem, certifique-se 
de que sua nova declaração, incluindo os 
espaços, tem a mesma extensão da origi- 
nal. De outro modo você terá que desco- 
brir o que significam os números nas li- 
nhas 40 a 55 e modificá-los. 

As variáveis alfanuméricas são tam- 
bém muito empregadas quando o pro- 
grama precisa entrar uma informação 
que é sempre modificada. Por exemplo: 


[é [Shy na dE 


10 PRINT "QUAL E O SEU NOME ” 
20 INPUT N$ 


30 PRINT "ALO, ";N$ 


Neste programa a linha 10 imprime 
o seguinte cordão na tecla: QUAL E O 
SEU NOME, seguido por um ponto de 
interrogação. O computador espera que 
você entre um nome (um outro cordão) 
eo chama de N$. Na linha 30, ele im- 
prime o cordão “ALO"*, e chama de 
volta o cordão N$ armazenado na linha 
acima. Assim será exibido na tela: 


ALO, TOM ( ou PAULO ou PEDRO ) 


ou qualquer outro. Observe que, aqui, 
os cordões QUAL É O SEU NOME e 
ALO não são armazenados dentro de 
variáveis, tais como A$ ou QUES ou 
ALOS, porque eles aparecem apenas 
uma vez no programa, e o computador 
não precisa se lembrar do que seja ALO 































































— quando ele atinge a linha 20 simples- 
mente lê esse cordão e o imprime. 

Ao mesmo tempo, é necessário dar 
um rótulo para o nome que vai ser en- 
trado. Assim, ele poderá ser diferente ca- 
da vez que o programa for rodado. Ele 
é armazenado em uma variável, na linha 
20 do programa, e usado na linha 30. 

Existem computadores que admitem 
uma forma mais curta e mais clara de 
programação da declaração INPUT, 
através da combinação do PRI 
“mensagem” da linha 10, com o 
PUT da linha 20: 


[é Ló hum ia o 


10 INPUT "QUAL E SEU NOME?" N$ 
20 PRINT"OLA, ";NS 


CORDÕES VAZIOS 


Outro modo de trabalhar com variá- 
veis alfanuméricas já foi mostrado an- 
teriormente na lição “'Apontar...Fogo!” 
(págs. 28 e 33 ). Embora varie de com- 
putador para computador a forma de 
escrever uma variável, nesse caso, é esta; 











20 IF AS = "” THEN GOTO 10 


As duas aspas sem nada entre elas são 
conhecidas como um cordão nulo ou va- 
zio. A linha de programa significa: “se 
a entrada for igual a nada” — isto é, se 
nenhuma tecla estiver sendo pressiona- 
da — ““volte para a linha 10 e espere até 
que uma tecla seja pressionada”. Isto 
evita que o computador salte para outra 
parte do programa tão rapidamente que 
o jogador não tenha tempo de pressio- 
nar uma tecla de comando qualquer, ou 
de ver um resultado ou gráfico na tela. 

Duas aspas com um espaço em bran- 

co entre elas, no entanto, são uma coi- 
sa muito diferente. Se você modificar a 
linha: 
20 IF AS =" 
o programa retrocederá à linha 10 ape- 
nas se o caractere entrado pelo jogador 
for um espaço — isto é, se ele estiver 
pressionando a tecla de espaço. 


” THEN GOTO 10 





ATAQUE 


n IDÉIAS PARA UM 


JOGO ESPACIAL 


EXTRATERRESTRE 


Batalhas interplanetárias foram sempre 
um dos pratos fortes dos livros de 
ficção científica, inspirando até mesmo 
a estratégia de "Guerra nas Estrelas" 
proposta por Ronald Reagan. No 
computador, elas podem ser tema de 
um jogo fascinante. 


Os jogos para micros ficam muito 
melhores quando os recursos gráficos de 
alta resolução do computador são bem 
aproveitados. Esses gráficos permitem 
cenas muito mais detalhadas do que os 
simples caracteres ASCII (ou gráficos de 
baixa resolução), com os quais apren- 
demos a lidar até agora. Evidentemen- 
te, os programas que utilizam gráficos 


m COMO DESENHAR NA TELA 
OS ELEMENTOS DO JOGO 

m INCLUA MOVIMENTO 
MÍSSEIS: ELEMENTO DE PERIGO 
COMO CONTROLAR O JOGO 


de alta resolução são bem mais comple- 
xos do que aqueles que trabalham ape- 
nas com os caracteres pré-programados 
do teclado, mas os resultados certamen- 
te valerão o esforço. 

Muitos jogos para computador do ti- 
po videogame envolvem oponentes, in- 
vasores extraterrestres ou outros adver- 
sários que revidam os disparos ao invés 








de esperarem tranquilamente que você os 
aniquile. 

Agora, vamos ver um jogo chamado 
Estação Espacial, adequado a todos os 
tipos de computador (com exceção do 
ZX-81 e do Apple II), que vai ensiná-lo 
a fazer rotinas gráficas para movimen- 
tar aleatoriamente uma nave extraterres- 
tre inimiga na tela, bem como lançar 
mísseis contra um alvo — no caso, a es- 
tação espacial controlada por você, 

O jogador dispõe de 4 blindagens que 
poderá utilizar para se proteger dos ata- 
ques dos mísseis inimig Entretanto, 
você não pode mantê-las “ligadas” du- 
rante todo o tempo, pois a quantidade 
de combustível destinada a alimentar 
sua potência é limitada. 

Para tornar o jogo mais difícil, o pro- 
grama não só movimenta a nave inimi- 
ga de um lado para o outro, mas pode 
também fazê-la desaparecer subitamente 
dentro do hiperespaço e reaparecer em 
algum lugar inteiramente inesperado. 

Do modo como foi descrito, o jogo 
não está realmente completo; assim, na- 
da existe nele para medir a passagem do 
tempo e os pontos, o que pode diminuir 
o interesse pelo combate. Mas isso po- 
de ser facilmente resolvido utilizando- 
se os métodos explicados nas páginas 61 
a 67. 

Embora a nave extraterrestre seja 
bem parecida com as dos fliperamas, a 
estação espacial é apenas um esboço. 
Você pode replanejá-la, se quiser gastar 
meia hora de modo interessante, utili- 
zando para isso gráficos que você mes- 
mo definirá. Os proprietários de micros 
da linha MSX podem ainda trabalhar 
com gráficos programáveis chamados 
sprites, que explicaremos em detalhes 
mais adiante. No entanto, mantenha o 
gráfico da sua nova estação espacial 
































mo uma espécie de sub-rotina em uma 


dentro da área utilizada por aquela de- 
finida neste jogo. Caso contrário, as 
blindagens defensivas poderão ser su- 
perpostas, tornando necessárias modi- 
ficações mais drásticas do programa. 


an Sr 


Digite e execute o programa abaixo: 


10 PCLEAR 4:PMODE 4,1:PCLS 

15 SCREEN 1,1 

20 DIM AL(6),BL(6),BO(4) 

30 DEFFNZ(X)=SGN(X) *SQR(VAVAX*K 
/((127-AX)*(127-AX) +(95-AY)* (95 
-AY))) 

40 LET PW=250 

50 FOR I=0 TO 7:READ A:POKE 153 
6+1*32,A:NEXT 1 

60 GET(0,0)-(7,7),AL,G 

65 GoTO 65 

250 DATA 24,126,90,126,126,195, 
129,129 


Você verá a nave espacial extraterres- 
tre aparecer na tela. 

Os gráficos de alta resolução são 
apresentados na linha 10, Neste estágio 
a tela é ligada na linha 15; assim, você 
poderá ver como o programa funciona, 
porém, mais tarde, quando o jogo esti- 
ver completo, a linha será removida. 

Os conjuntos que conterão a nave ex- 
traterrestre (AL), o míssil (BO) e um 
bloco em branco (BL) são dimensiona- 
dos pela linha 20. A linha 30 utiliza a 
expressão DEFFN que significa DEFi- 
ne a FuNction. Caso seja necessário em= 
pregar com fregiuência uma longa ex= 
pressão matemática no programa, & fun 









e: D predefinida o poupará de digitá-la 
diversas vezes em diferentes pontos do 
programa. Ela funciona, portanto, co- 





linha só. A expressão matemática na | 
mha 30 é chamada de FNZ e será utili- 
gada mais tarde no programa para mo- 










vimentar um míssil em sentido diagonal, 
no vídeo. A linha 40 estabelece na tela 
a posição final de um indicador de com- 
bustível. 

A linha 50 desenha a nave na tela, len- 
do os códigos gráficos correspondentes 
através de instruções READ e DATA na 
linha 250, e colocando-os na página de 
vídeo, no canto superior esquerdo da te- 
la, com comandos POKE. A linha 60 usa 
a função GET para capturar esse padrão 
gráfico definido pelo bloco que vai de 0,7 
a 7,7 na tela, e armazená-lo no conjun- 
to denominado AL. 

A linha 65 também é temporária. Tu- 
do o que ela faz é manter a tela “con- 
gelada”, de modo que se possa ver o re- 
sultado do processamento feito pelas li- 
nhas anteriores. Ela será removida mais 
tarde, quando o resto do jogo for acres- 
centado ao programa. 


MES E LUESES 


Agora, remova a linha 65, digitando 
o número 65 seguido de <ENTER>: 
depois, acrescente essas linhas e rode o 
programa. 

















OR J=0 TO 4:READ A:POKE 153 
6+JA32,A:NEXT 

BO GET (0,0)-(4,4),B0,G 
B5 GOTO 85 

260 DATA 32,112,248,112,32 


O míssil que será lançado pelo E.T. 
é lido em conjunto de códigos em DA- 
TA, e desenhado com o auxílio de co- 
mandos POKE no canto superior esquer- 
do da tela. Da mesma forma que ante- 
riormente, usamos GET para registrar 
essa forma no conjunto BO. 

Não importa que o foguete desenha- 
do na tela se sobreponha ao desenho an- 
terior da nave inimiga, deixando ainda, 
aparentemente, vestígios dela, pois a li- 
nha 80 apenas memoriza com o GET a 
área ocupada pelo míssil e não os seus 
arredores. 






































NSTRUA A ESTAÇÃO ESPACIAL 


Remova a linha 85, digitando 85 se- 
guido de <ENTER>, acrescente essas 
linhas, e depois execute o programa. 


90 LET AX=RND(248)-1:LET AY=RND 
(178)+5 

100 PCLS 

110 CIRCLE(127,95),12,5:DRAW"BM 
127,95;C5S48NUNLNDNR” 

115 GoTo 115 


A linha 90 escolhe uma posição alea- 
tória para a nave E.T. A linha 100 lim= 
pa a tela e a linha 110 desenha a estas 
ção espacial, que é simplesmente um Cir 


Eruz bem no meio da estação espacial. 
Esse comando (DRAW) pode ser imagi- 
nado como uma sucessão de declarações 
LINE, como já se explicou na lição an- 
terior de programação BASIC. Ele será 
melhor explicado numa lição posterior. 


DESENHE O INDICADOR DE COMBUSTÍVEL 


Remova a linha 115 do mesmo mo- 
do que removeu as linhas 65 e 85. Acres- 
cente essas linhas e aparecerão na tela 
maiores detalhes gráficos. 


120 DRAW"BM131,87;S4DSBD6BLRIDZ 
L3D2R3BLI2R3UZNLIUZNLIBUGUSG4ARI 













130 DRAW"BMS, 1;L4D2NR4D2BE4BR2D 
4RIU4BRSLIDZNRID2RIBE4DAR3I” 

140 LINE(25,1)-(PW,5),PSET,BF 
145 Goro 145 


A linha 120 traça na estação espacial 
um número que corresponde à quanti- 
dade de blindagens. Na linha 130 mos- 
tramos a palavra FUEL (combustível). 
Infelizmente, o TRS-Color não conse- 
gue escrever caracteres normais numa 
tela gráfica de alta resolução; por isso, 
letras e números devem ser literalmente 
“desenhados” com comandos DRAW. 





A linha 140 exibe o indicador cheio 
de combustível para as blindagens, uti- 
lizando um método rápido para dese- 
nhar retângulos. Usamos a instrução LI- 
NE para traçar uma linha no alto da tes 
la, indo da posição extrema esq 
(coordenadas 25,1) até a posi 


bustível no momento (assinalada 
pela variável PW). O comando PSET 
diz ao TRS-Color para traçar essa linha 
em branco opaco e, deste modo, esta- 
belece a cor. BF é uma abreviação Cs 
box fill (preencher a caixa) e “pinta” 
retângulo com a cor utilizada pela linha 
original, Se vo: ar um retân- 
gulo vazio, utilize B ao invés de 

tão agora completos os gráficos de alta 
resolução para o jogo. O resto do pro- 
grama está relacionado com o movimen- 
to do E.T. e do míssil e a ativação das 
blindagens. 


UTI 


Existem três sub-rotinas que devem 
ser acrescentadas ao programa. A pri- 
meira diz respeito ao movimento da na- 
ve inimiga. Digite-a, mas não a rode ain- 
da porque não acontecerá nada. 















1000 LET LX=AX:LET LY=AY 

1010 IF RND(10)=1 THEN LET AX=R 
ND(248)-1:LET AY=RND(178)+5 
1020 LET AX=AX+RND(15)-B:LET AY 
=AY+RND(15)-8 

1030 IF AX>103 AND AX<144 AND A 
Y>71 AND AY<112 THEN LET AX=LX: 


LET AY=LY 

1040 IF AX<O THEN LET AX=-AX 
1050 IF AX>248 THEN LET AX=497- 
AX 

1060 IF AY<6 THEN LET AY=12-AY 
1070 IF AY>184 THEN LET AY=369- 
AY 

1080 PUT(LX,LY)-(LX+7,LY+7),BL, 
PSET 

1090 PUT(AX,AY)-(AX+7,AY+7) AL, 
PSET 

1100 RETURN 


“seis da lição Aponta: 











































g 
mave E.T. (extraterrestre) é contro- 
de forma semelhante à base de mis- 
Fogo! (páginas 
28 a 33). A linha 1000 iguala as coorde- 
nadas da última posição da nave às 
coordenadas da posição atual, antes que 
ela seja movimentada. 

A linha 1010 escolhe um número 
aleatório para que a nave inimiga possa 
mudar de posição na tela. Se esse núme- 
ro for 1 (ou seja, em 10% das vezes, em 
média), então o E.T. saltará para uma 
nova posição na tela o número não 
for 1, será escolhida uma nova posição 
para a nave, distante entre -7 e + 7 pon- 
tos na direção X (da esquerda para a di- 
reita), e entre -7 e +7 pontos na tela, 
na direção Y (de cima para baixo) — ve- 
ja a linha 1020. A linha 1030 impede que 
a nave E.T. sobreponha-se à estação es- 
pacial, enquanto as linhas 1040 a 1070 
não permitem que ela saia para fora da 
tela. 

A nave invasora é é apagada na linha 
1080, colocando-se uma série de gráfi- 
cos em branco nas últimas posições; em 
seguida, ela é posta na nova posição pela 
linha 1090. A Ainha 1100 retorna o pro- 
grama à linha 160, que, a propósito, ain- 
da não foi inserida. 


[UE 


A próxima-sub-rotina serve para de- 
cidir, em primeiro lugar, se o míssil de- 
ve ser disparado ou não. Caso ocorra o 
disparo, ela estabelece a posição do mis- 
sil na tela e define com que blindagem 
a defesa vai bloqueá-lo. 


2000 IF RND(7)<>1 THEN RETURN 
2010 V=RND(8)+5:DX=FNZ(127-AX): 
DY=FNZ (95-AY) 

2020 IF DX<=0 AND DY>=0 THEN LE 
T MA=1:GOTO 2050 

2030 IF DX<=0 AND DY<=0 THEN LE 
T MA=2:GOTO 2050 

2040 IF DX>=0 AND DY<=0 THEN LE 
T MA=3 ELSE LET MA=4 

2050 LET MX=AX:LET MY=AY 

2060 PUT(MX,MY)- (MX+4,MY+4) BO, 
OR 

2070 LET AF=1:RETURN 




























A linha 2000 
míssil. Existem s 
que ele seja disparado, mas, Seiá há Em 
missil na tela, o programa não pode dis- 
parar outro. Se um foguete não puder 
ser disparado, a sub-rotina terminará. 

A linha 2010 estabelece a extensão do 
deslocamento do míssil na tela — você 
pode pensar em V como se fosse a sua 
velocidade. O conteúdo de V é passado 
para a função FNZ — definida na linh 
30 — de modo a calcular a nova posi- 
ção do míssil na tela. 
As linhas 2020 a 2040 averiguam o 
ponto em que o míssil está na tela e tam- 
bém a blindagem necessária para blo- 
quear o míssil — MA é o ângulo de des- 
locamento do míssil 

A linha 2050 inicia a trajetória do 
míssil a partir da posição da nave ini- 
miga. E a linha 2060 coloca o foguete 
na tela antes de a linha 2070 definir a 
variável sinalizadora AF = 1, que diz ao 
programa se um míssil foi disparado. 
Uma vez concluídos esses passos, a sub- 
rotina termina 

A sub-rotina final vai da linha 3000 
à 3070. Digite as linhas, mas novamen- 
te nada acontecerá se você rodá-las. 


3000 
PSET 
3010 
3020 
Y>79 
3030 
OR 










































«PUT (MX,MY)-(MX+4,MY+4), BL, 


LET MX=MX+DX:LET MY=MY+DY 
IF MX>110 AND MX<140 AND M 
AND MY<108 THEN GOTO 3050 


104 PUT (MX,MY) - (MX+4,MY+4) , BO, 


“3040 RETURN 
3050 IF SH(MA)=0 THEN GOTO 
3060 LET AF=0:RETURN 


e CÃODEJOGOS 5 


3070 CLS:PRINT €256,"BANG.. SUA. 
BLINDAGEM ESTAVA DESLIGADA!” 





O míssil é apagado pela linha 3000, 
e sua nova posição é computada pela li- 
nha 3010. A linha 3020 verifica se o mis- 
sil já atingiu a blindagem. Se isso não 
aconteceu, o programa pula rapidamen- 
te para a linha 3050, verificando se a 
blindagem correta estava posicionada. 
Quando nenhuma blindagem é encon- 
trada no caminho do foguete, o progr: 
ma limpa a tela e termina com a mens: 
gem: “BANG! ... SUA BLINDAGEM 
ESTAVA DESLIGADA”. 

Se o míssil ainda não atingiu o pon- 
to esperado para alcançar as blindagens 
da estação espacial, a linha 3050 o co- 
locará rapidamente em nova posição 
com o comando PU 

A linha 3040 finaliza a rotina. Para 
terminar, as seguintes linhas completam 
o nosso programa: 














150 SCREEN 1,1 

160 IF AF=0 THEN GOSUB 2000 ELS 
E GOSUB 3000 

170 GOSUB 1000 

180 FOR J=1 TO 4 

190 LET PE=PEEK(338+J) :IF 
THEN LET PE=225 

200 IF (255-PE)/16<>SH(J) THEN 
LET SH(J)=1-SH(J) :CIRCLE (127,95 
),16,5*SH(J),1, (J+2)/4, (J+3)/4 
21C IF SH(J)=1 THEN LET PW=PW-2Z 


Pw<25 





(PW,1)-(PW+2,5), PRESET, 






160 


s de rodar o programa, remova 

15 e 145. Feito isso, você não 

que está se desenvolvendo na te- 
durante a definição dos blocos grá 

Os. Rodado o programa ocorrerá uma 

pausa, antes que uma exposição 

pleta apareça na tela, 
A tela gráfica é agora ligada pela 

mha 150. A linha 160 checa se um mis 










para a sub-rotina que se refere 
ento do míssil, que começa na 
ou então o programa pula 
tina que movimenta o mis- 
começa na linha 3000. 

E R 

























linha 170 faz com que o progi 
para a sub-rotina na linha 1000 
A parte do programa das linhas 

a 220 diz respeito à ativação das blim: 
dagens. A linha 190 verifica que tecla es- 
tá sendo pressionada. Se a tecla for um 
número de 4, a linha 2000 desenha- 
rá a blindagem; se alguma das blinda- 
gens for acionada, a linha 210 diminui- 
rá o combustível 
A linha 230 traça um retângulo ne- 
gro no final do indicador do combusti- 
vel, dando a impressão de que o supri- 
mento de combustível está acabando, à 
medida que o valor em PW vai dimi- 
nuindo. Finalmente, a linha 240 repete 
tudo de novo. 













































O programa para o Spectrum utiliza 
diversos recursos novos que não foram 
explicados em capítulos anteriores. Por 
isso, é aconselhável estudar um pouco es- 
ses recursos e fazer algumas experiências. 











= 








Como de costume, você pode ir che- 
cando se os trechos que acabou de en- 
trar funcionam corretamente. O primei- 
ro grupo de linhas define o gráfico da 
nave extraterrestre e o desenha na tela, 
quando executado. 


10 BORDER 0: PAPER O: 

BRIGHT 1: CLS 

20 FOR n=USR "a” TO USR "b"+7 
READ a: POKE n,a: NEXT n 

200 LET ax=INT (RND*32) 

210 LET ay=INT (RND*21)+1 

220 IF ax>11 AND ax<21 AND ay> 

6 AND ay<16 THEN GOTO 200 

490 PRINT INK 4,AT ay,ax;CHRS 

144 

800 DATA 60,126,219,219,126,60 

+90,153,0,0,24,60,60,24,0,0 


As linhas 20 e 800 definem a nave e 
seu míssil (que ainda não é visível). Elas 
utilizam a técnica de colocar em uma 
área de memória RAM uma série de blo- 
cos gráficos elementares, definidos den- 
tro das declarações DATA. Essa área é 
chamada de área de gráficos definíveis 
pelo usuário (ou UDG, abreviatura em 
inglês da expressão user = defined- 
graphics), Os comandos USR “a” e 
USR “'b'' definem, para o laço 
FOR...NEXT, os endereços inicial e fi 
mal dessa área. Os comandos POKE 

E gem esse trabalho. 


INK 6: 
















tade de omitir a linha 10, pois pode ser 
mais difícil ler o programa listado em 
amarelo sobre uma tela negra. Se qui- 
ser fazer isso, lembre-se de reintegrá-la 
mais tarde, ou a linha 640 (explicada 
mais adiante) não funcionará. 


(TRAS oe 





AL 





Estas poucas linhas desenharão a es- 
tação espacial: 

110 PRINT AT 10,15;"4 1";AT 12 
PES pras ar 

120 PLOT 132,107: DRAW 25,-25: 
DRAW -25,-25: DRAW -25,25: 

DRAW 25,25 

130 PLOT 107,82: DRAW 50,0: 
PLOT 132,57: DRAW 0,50 


Por enquanto, a estação espacial ain- 
da parece bastante primitiva. Se você 
quiser projetar e entrar uma mais ade- 
quada ou mais bonita, precisará apenas 
de duas adições ao programa: 

- Uma linha extra parecida com a 
linha 20, mas que comece com USR “te” 
e que continue por tantas letras do al- 
fabeto quanto o tamanho de sua esta- 
ção espacial necessitar. 

- Um conjunto de declarações DA- 
TA em uma ou mais linhas extras no fi- 
nal do programa, listando os códigos 
gráficos que compõem a nova estação 
espacial na tela do computador. 


UAU E 


A próxima tarefa é imprimir na tela 
o míssil da nave E.T. e traçar sua traje- 
tória em direção à estação espacial, 







































espacial em uma posição aleatória natos 


la, e a linha 490 a imprime, (O PRINT 
CHRS$ 144 nessa linha mostra o caraes 
tere gráfico associado à tecla A). 

A linha 220 pode parecer estranha 
nesse estágio mas, à medida que o pro- 
grama progredir, você verá que esta é 
uma maneira de impedir que a nave ini- 
miga apareça inesperadamente no meio 
de sua estação espacial, trazendo pâni- 
co e destruição. 

No momento, você pode sentir von- 












150 LET mf=0 
300 IF mf=1 THEN | GOMO 
310 IF RND<,9 THEN O 4 
320 LET mf=l: LET mysavs bl 
x-ax: LET fy=ll-my: LER 

mx 








330 LET b=1 
THEN LET b=2 
340 IF b=1 THEN LET sx=SGN fx 
LET sy=SGN fy*ABS (fy/£x) 
350 IF b=2 THEN LET sy=SGN £y 
LET sx=SGN fx*ABS (fx/fy) 
400 PRINT AT my,mx;” ": LET my 
=my+sy: LET mx=mxt+sx: PRINT 
INK S;AT my, mx;CHR$ 145: IF my 
>10 AND my<12 AND mx>15 AND mx 
<17 THEN GOTO 700 
620 IF RND>.9 THEN 
y,ax;” ": GOTO 200 
630 IF mf=0 THEN GOTO 300 
650 GOTO 300 
700 cLS PRINT FLASH 1; 
PAPER 2;AT 10,1;"BANG! Voce e 
sta sem protecao!” 


IF ABS fy>ABS fx — 


PRINT AT a 


Toda esta seção do programa, como 
você pode ver a partir da linha 650, é 
um laço que o computador percorre di- 
versas vezes sempre que a nave inimiga 
aparece. 

A linha 150 descreve todo o cenário: 
não existe nenhum míssil vindo em sua 
direção (até agora...). 

A linha 310 decide se a nave lançará 
um míssil em sua direção, dentro dessa 
repetição do laço (existe uma chance em 
nove de que irá disparar). 

Se houver um míssil, a linha 320 o co- 
locará na posição inicial (my, mx), no 
lugar mais óbvio — ou seja, no lugar em 
que a nave E.T. se encontra no momen- 
to (ax, ay). A parte do meio da linha 400 
imprime o missil, usando o caractere 
gráfico CHR$ 145 (correspondente à te- 
cla B). 

O trecho do programa a partir da me- 
tade da linha 320 até a linha 400 é um 
pouco “'manhoso”. O que ele faz é to- 
mar as coordenadas do ponto médio da 
estação espacial e as coordenadas refe- 
rentes à posição atual da nave e subtrair 
estas das primeiras, de modo a disparar 
o míssil na direção exata da estação es- 
pacial (numa reta passando por dois 
pontos). 

Como alguns dos números envolvi- 
dos nesses cálculos podem ser negativos 
(em movimentos para a esquerda e pa- 
ra baixo) e outros positivos (em movi- 
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mentos para a direita e para cima), vo- 
cê vai achar difícil entender como o pro- 
grama funciona, caso não compreenda 
o que são ABS e SGN, que foram defi- 
nidos no capítulo anterior. Mas eis aqui 
algumas dicas para esclarecer o assun- 
to: 

A segunda metade da linha 320 de- 
duz a posição atual do míssil (my, mx) 
do ponto central da estação espacial (po- 
sição na tela 11, 16) e chama as coorde- 
nadas resultantes (fy e fx). 

As linhas 330 e 350, utilizando ABS 
e SGN, acrescentam um fator de corre- 
ção de trajetória (sy, sx) para fy e fx. 
A linha 400 começa imprimindo um es- 
paço em branco sobre a posição ante- 
rior do míssil. Em seguida, soma-se sx 
e sy às coordenadas da posição anterior, 
de modo a preparar a parte restante da 
linha 400 para imprimir o míssil em sua 
nova posição, apenas um passo distan- 
te da anterior. 


ELVAS 


Agora que a nave inimiga já dispa- 
rou seu míssil, é hora de fazê-la mover- 
se; acrescente essas linhas: 








420 LET xx=ax: LET yy=ay: LET 
m=INT (RND*4) 

430 IF m=0 AND ax<31 THEN LET 
xx=axt1 

440 IF m=1 AND ax>0 THEN LET 
xx=ax-1 

450 IF m=2 AND ay<21 THEN LET 
yy=ay+l 

460 IF m=3 AND ay>1l THEN LET 
yy=ay-1 


470 IF xx>11 AND xx<21 AND yy> 
6 AND yy<l6 THEN GOTO 490 

480 PRINT AT ay,ax;”" ": LET ax 
=xx: LET ay=yy 


Em primeiro lugar o Spectrum deci- 
dirá em que direção a nave E.T. se mo- 
vimentará. Uma vez que isso seja feito, 
por um número aleatório na linha 420, 
os objetivos das linhas 430 a 460 tornam- 
se óbvios. Estas são as linhas convencio- 
nais de animação gráfica, A linha 470 
mantém a nave fora da estação. A linha 
400 (inserida anteriormente) registra um 
impacto, direcionando o programa pa- 
raa linha 700, caso o míssil atinja o meio 
da estação. Se você não sabe por que es- 
sa linha usa IF my>10 AND my< 12, 
ao invés de um 11 (mais simples) e IF 
mx> 15 AND mx< 17, em vez de 16, 
basta lembrar-se do seguinte: embora o 
computador imprima a nave extraterres- 
tre em uma posição com coordenadas in 
teiras, os números calculados a cada pas- 
so do movimento são uma série de fra- 
ções decimais. Assim, torna-se remota a 
chance de eles tornarem-se 11 e 16. 


PROGRAMAÇÃO DE JOGOS 


Finalmente, depois de mais ou menos 
dez repetições do laço, a linha 620 apa- 
ga a nave inimiga de sua posição e co- 
meça tudo de novo na linha 200. 


EUR 


As linhas seguintes constroem as blin- 
dagens destinadas a bloquear o avanço 
do míssil. 


140 PLOT INVERSE 1;132,122 
500 DIM a(4) 

510 LET a$=INKEYS: IF as="" 
THEN GOTO 600 

520 IF a$="1" THEN LET a(l)=1 
530 IF a$="2" THEN LET a(2)=1 
540 IF a$="3" THEN LET a(3)=1 
550 IF a$="4" THEN LET a(4)=1 
560 LET fu=fu-l 

600 DRAW INK a(1)*4, INVERSE 
1-a(1),40,-40: DRAW INK a(2)* 


4, INVERSE 1-a(2),-40,-40: 
DRAW INK a(3)*4, INVERSE l-a( 
3),-40,40: DRAW INK a(4)*4, 
INVERSE 1-a(4),40,40 

640 IF ATTR (my,mx)=68 THEN 
PRINT AT my,mx;" ": LET mf=0 





sição PLOT para traçar as lin 
De fato, o programa utiliza) 
traço (INK), que é a mesma 
(PAPER), para traçar um los 
mente quando você pressiong 
teclas numeradas de 1 a 4, um 
losango mudará de cor e aj 
tela. A linha 640 utiliza o A 
número da cor das blindagei 
repelir o míssil, se ele acertar. 
gem, apagando-o da tela, 






LIMPEZA FINAL 


de se compreender. Elas estabelecem o 
suprimento do combustível na linha 100 
eo fazem desaparecer até que, no meio 
da linha 510 (já modificada), as blinda- 
gens tornam-se inativas. Lembre-se de 
reintegrar a linha 10. 


100 PRINT PAPER 2; 
+0;" COMBUSTIVEL ” 
160 LET fu=100 
510 LET aS=INKEYS: 
THEN GOTO 600 
560 LET fu=fu-1 
610 PRINT PAPER 3; 
.13;" "tu" 


INK 6;AT O 


TF age"” 


INK 7;AT O 


10 R=RND(-TIME) 
15 SCREEN 2,0 


30 DEF FN Z(X)=SGN(X) *SQR(VXV*X. 


As linhas restantes são muito fáceis 


5 


*X/((127-AX)*(127-AX)+(95-AY)*( 
95-AY))) 

LET Pw=250 

FOR 1=0 TO 7 

READ A:LET AS=AS+CHRS (A) 
NEXT 1 

SPRITES (1) =AS 

PUT SPRITE 1,(8,0) 

goto 65 

250 DATA 24,126,90,126,126,195, 
129,129 


Digitando e executando esse progra- 
ma, você verá a nave espacial extrater- 
restre aparecer na tela. 

A linha 10 serve apenas parí 
duzir o-gerador de número 
usando o conteúdo do rel 
(TIME). 

A linha 301 
uma palavii 


ve que você ainda não viu: DEFFN, 
significa DEFine a FuNchi tion, ou seja, 


utilizar com frequência uma longa ex- 
pressão matemática no programa, a fun- 
ção predefinida o poupará de digitá-la 
diversas vezes, em diferentes pontos do 
programa. Ela funciona, portanto, co- 
mo uma espécie de sub-rotina em uma 
linha só. A expressão matemática na 
nha 30 é chamada de FNZ e será utili- 
zada mais tarde no programa para mo- 
vimentar um míssil em sentido diagonal 
na tela. A linha 32 estabelece na tela a 
posição final de um indicador de com- 
bustível (variável PW). 

As linhas 50 a 61 desenham a nave 
E.T. na tela, lendo os códigos gráficos 
correspondentes através de instruções 
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READ e DATA na linha 250, e 


colocando-os na página de vídeo, no 
canto superior esquerdo da tela, com o 
comando PUT SPRITE. A linha 60 
usa a função SPRITE para definir es- 
te padrão gráfico e armazená-lo no 
“sprite” número I (por enquanto, não 
explicaremos detalhadamente o que é 


um sprite: veja MICRODICAS na pá- 
gina 108). A linha 61 é temporária, pois 
apenas mostra o resultado do SPRITE, 
sendo retirada depois. 

A linha 65 também é temporária. Tu- 
do o que ela faz é manter a tela “con- 
gelada”*, de modo que se possa ver o re- 
sultado do processamento feito pelas li- 
nhas anteriores. Ela será removida mais 
tarde, quando o resto do jogo for acres- 
centado ao programa. 


DESA UESES 


Agora remova as linhas 61 e 65, di- 
gitando os números 65, seguido de 
<ENTER>, e 61. Também seguido de 
<ENTER>. Acrescente depois essas li- 
nhas e rode o programa. 





crias. 


70 FOR J=0 TO 7 

75 READ B:LET B$=BS+CHRS(B) 
79 NEXT J 

80 SPRITES(0)-BS 

81 PUT SPRITE 0, (16.13) 

85 coro 85 

260 DATA 0,0,0,8,28,62,28,8 


O míssil que será lançado pelo E.T. 
é lido em um conjunto de códigos em 
DATA e definido como o sprite núme- 
ro 0, nas linhas 70 a 80. O comando 
PUT coloca-o no canto superior esquer- 
do da tela para você ver, na linha 81. 
Assim, as linhas 81 e 85 são temporá- 


ENE RS OT 


mova as linhas 81 e 85 como ante- 
ente, e acrescente essas linhas, exe- 
lo em seguida o programa: 


AX=INT (RND(1)*200)-1:LET 
(RND (1) *100)+5 
'RCLE (127,95),12,15:DRAW 
27, 95;C15S48NUNLNDNR” 
Goto 115 


linha 90 escolhe uma posição alea- 
ja para a nave E.T. A linha 110 de- 
lha a estação espacial, que é simples- 

te um circulo (comando CIRCLE). 


PO comando DRAW, no final dessa li- 
É nha, traça uma cruz bem no meio da es- 


tação espacial. Como foi dito anterior- 
mente, o comando DRAW pode ser 
imaginado como uma sucessão de decla- 
rações LI Uma explicação mais de- 
talhada será encontrada em outra lição, 
mais adiante. 

A linha 115 é temporária. 


[o Lea e la 


Remova a linha 115 do mesmo mo- 
do que removeu as linhas 61, 65, 81 e 
85. Acrescente essas linhas e aparecerão 
na tela maiores detalhes gráficos. 


120 DRAW "BM 131,87; S4DSBD6BR3IB 
D4USG4R3BDBLIZR3VZNL IUZNLIBULOB 
L3R3ID2L3D2R3” 
130 DRAW "BM5, 1;L4D2NR4D2BE4BR2Z 
D4R3U4BRSL3IDZ2NRIDZRIBEADAR3” 
140 LINE(30,1)-(PW,5),10,BF 
145 GoTO 145 

A linha 120 traça um número na es- 
tação espacial, que corresponde ao nú- 
mero de blindagens. Na linha 130 mos- 
tramos a palavra FUEL (combustível). 
Infelizmente o MSX não consegue escr: 
ver caracteres normais numa tela grá! 
ca de alta resolução; por isso letras e nú- 
meros devem ser literalmente “desenha- 
dos” com comandos DRAW. 

A linha 140 exibe o indicador cheio 
de combustível para as blindagens. Es- 
sa linha emprega um método rápido pa- 








ra traçar retângulos. Usamos a instru- 
ção LINE para traçar uma linha no al- 
to da tela, indo da posição extrema es- 
querda (coordenadas 30,1) até a posição 
atual do combustível (assinalada pela 
variável PW). O número 10 diz ao MSX 
para traçar essa linha em cor branca. BF 
é uma abreviação para box fill e preen- 
che o retângulo com a cor utilizada pe- 
la linha original. Se você quer traçar um 
retângulo vazio, utilize B ao invés de 
BF 


Estão agora completos os gráficos de 
alta resolução para o jogo. O resto do 
programa está relacionado com o mo- 
vimento do E.T. e do míssil e a ativa- 
ção das blindagens. 


ERAS 


Existem três sub-rotinas a serem 
acrescentadas ao programa. A primei- 
ra diz respeito ao movimento da nave 
inimiga. Digite-a, mas não a rode ain- 
da porque nada acontecerá. 


1000 LET LX=AX:LET LY=AY 

1010 IF INT(RND(1)*10)=1 THEN L 
ET AX=RND(1)*248-1:LET AY=INT(R 
ND(1)*178)+5 

1020 LET AX=AX+INT (RND(1)*15)-8 
:LET AY=AY+INT (RND(1)*15)-8 
1030 IF AX>103 AND AX<144 AND A 
Y>71 AND AY<112 THEN LET AX=LX: 
LET AY-LY 

1040 IF AX<O THEN LET AX=-AX 
1050 IF AX>248 THEN LET AX=497- 
AX 

1060 IF AY<6 THEN LET AY=12-AY 
1070 IF AY>184 THEN LET AY+369- 
AY 

1080 PUT SPRITE 1, (AX,AY) 

1100 RETURN 


A nave E.T. é controlada de forma 
semelhante à base de mísseis na lição das 
páginas 28 a 33. (Apontar...Fogo!). A 
linha 1000 iguala as coordenadas da úl- 
tima posição da nave às coordenadas da 
posição atual, antes que ela seja movi- 
mentada. 

A linha 1010 escolhe um número ao 
acaso, provocando uma brusca mudan- 
ça de posição da nave inimiga na tela 
(“hiperespaço”). Se esse número alea- 
tório for I (ou seja, em 10% das vezes, 
em média), o E.T. saltará para uma no- 
va posição na tela. Se for diferente de 
I, será escolhida uma nova posição pa- 
ra a nave, distante entre -7 e + 7 pontos 
na direção X (da esquerda para a direi- 
ta), e entre -7 e +7 pontos na tela, na 
direção Y (acima e abaixo) — veja a li- 
nha 1020. A linha 1030 impede que a na- 
ve E.T. superponha-se ao desenho da es- 
tação espacial, enquanto as linhas 1040 
a 1070 impedem que ela saia para fora 
da tela. 








A nave invasora é colocada na nova 
posição pela linha 1080. A linha 1100 
faz retornar a sub-rotina. 





. A próxima sub-rotina serve para de- 
cidir, em primeiro lugar, se dispara ou 


O QUE É UM SPRITE? 

Um sprite é um tipo de caractere de 
alta resolução gráfica definido pelo 
usuário. Ele é utilizado para acrescen- 
tar movimento aos gráficos de alta re 
solução do MSX. 

O uso do sprite fornece um aspecto 
contínuo ao movimento de figuras na 
tela. Esse movimento pode ser facil- 
mente programado ponto por ponto, 
como se o objeto que se move fosse 
apenas um caractere. Além disso, um 
sprite pode ter até 16x 16 pontos de al- 
ta resolução, enquanto um caractere 
comum tem 8x8 pontos. O contorno ou 
a forma do caractere ou do sprite é de- 
finido por pontos “acesos"" que assu- 
mema cor de frente, e por pontos “apa- 
gados" que assumem a cor de fundo. 

É possível definir até 256 sprites pe- 
quenos (8x8 pontos) e até 64 sprites 
grandes (16x 16), com padrões diferen- 
tes. Todavia, só podem ser mostrados 
quatro sprites diferentes na mesma Ii- 
nha horizontal de alta resolução, Spri- 
tes podem ser agrupados para formar 
figuras maiores; podem ser sobrepos- 
tos para obtermos efeitos tridimensio- 
nais; podem, ainda, ter seu tamanho 
dobrado. Por outro lado, é possível sa- 
ber quando dois sprites colidiram; tudo 
isso faz deles caracteres de alta reso- 
lução extremamente versáteis. 

Programar sprites é realmente mais 
fácil que utilizar caracteres definidos pe- 
lo usuário (compatíveis com o Sinclair 
Spectrum) ou funções como PUT, GET 
(compatíveis como TRS-Color) e DRAW 
(compatíveis com o Apple Il), principal- 
mente quando se deseja uma animação 
mais sofisticada. Não é necessário, por 
exemplo, seguir o rastro de um sprite, 
apagando as posições já ocupadas por 
ele, Os sprites são compatíveis com ou- 
tros modos de utilização da tela do MSX: 
texto em 32 colunas (SCREEN 1) e mo- 
do multicor (SCREEN 3). Não se pode, 
contudo, utilizá-los em modo texto de 
40 colunas (SCREEN 0). 





não o míssil. Sendo positivo (isto é, se 
o disparo ocorrer), então ela estabele- 
cerá a posição do míssil na tela e deter- 
minará a blindagem que irá bloqueá-lo. 


2000 IF INT(RND(1)*7)<>1 THEN R 
ETURN 

2010 LET V=INT(RND(1)*8)+5 

2015 LET DX=FNZ(127-AX):LET DY= 
FNZ(95-AY) 

2020 IF DX<=0 AND DY>=0 THEN LE 
T MA=-1:GOTO 2050 

2030 IF DX<=0 AND DY<=0 THEN LE 
T MA=4:GOTO 2050 

2040 IF DX>=0 AND DY<=0 THEN LE 
T MA=3 ELSE MA=2 

2050 LET MX=AX:LET MY=AY 

2060 PUT SPRITE O, (MX,MY) 

2070 LET AF=1:RETURN 


A linha 2000 decide se dispara um 
míssil. Existem seis chances em uma de 
que ele seja disparado; mas, se já há um 
míssil na tela, o programa não pode lan- 
çar outro. Se um foguete não puder ser 
disparado, a sub-rotina terminará. 

A linha 2010 estabelece a extensão de 
deslocamento do míssil na tela — você 
pode pensar em Y como se fosse a sua 
velocidade. O conteúdo de V é passado 
para a função FNZ — definida na linha 
30 — de modo a calcular a nova posi- 
ção do míssil na tela. 

As linhas 2020 a 2040 investigam o 
ponto em que o míssil está na tela e tam- 
bém que blindagem será necessária pa- 
ra bloqueá-lo — MA é o ângulo de des- 
locamento do míssil. 

A linha 2050 inicia a trajetória do 
míssil a partir da posição onde está a na- 
ve inimiga. A linha 2060 coloca o míssil 
na tela antes de a linha 2070 definir a 
variável sinalizadora AF =, que diz ao 
programa que um míssil foi disparado. 
A sub-rotina termina. 

A sub-rotina final vai da linha 3010 
à 3080. Digite as linhas, mas observe que 
novamente não acontecerá nada se vo- 
cê rodá-las nesse estado. 


3010 
*DY 
3020 IF MX>110 AND MX<140 AND M 
Y>79 AND MY<108 THEN GOTO 3050 

3030 PUT SPRITE O, (MX,MY) 

3040 RETURN 

3050 IF SH(MA)=0 THEN GOTO 3070 
3055 PUT SPRITE O,(-1,-1) 

3060 LET AF=0:RETURN 

3070 SCREEN O 

3080 LOCATE 0,11:PRINT "BANG!! 

- Sua blindagem estava desligad 
a” 


A nova posição do míssil é compu- 
tada pela linha 3010. A linha 3020 che- 
ca se o míssil já atingiu a blindagem. Se 
isso não acontecer, o programa pula pa- 
ra a linha 3050, com o objetivo de veri- 


LET MX=MX+2*DX:LET MY=MY+2, 


ficar se a blindagem correta estava po- 
sicionada. Se não for encontrada nenhu- 
ma blindagem no caminho do foguete, 
o programa limpará a tela e terminará 
com a mensagem: “BANG! ... SUA 
BLINDAGEM ESTAVA DESLIGA- 
DA”. 

Se o míssil ainda não atingiu o pon- 
to esperado para as blindagens da esta- 
ção espacial, então a linha 3050 o colo- 
ca em nova posição com o comando 
PUT. ; 

A linha 3040 finaliza a rotina. Final- 
mente, as seguintes linhas completam o 
nosso programa: 


160 IF AF=0 THEN GOSUB 2000 ELS 
E GOSUB 3010 

170 GOSUB 1000 

180 FOR J-1 TO 4 

190 K$=INKEYS:IF K$="" THEN K$= 
nam 

195 LET PE-ASC(KS)-48 

200 IF PE=J THEN SH(J)=1 ELSE S 
H(J)=0 

201 IF SH(J)<>1 THEN LET SH(J)= 
o 


205 CIRCLE(127,95),18,15*SH(J), 
6.2*(J-1)/4,6.2*(J)/4 

210 IFSH(J)=1 THEN LET PW=PW-2 
220 NEXT 

230 LINE (PW,1)-(PW,5),0,BF 
240 GoTO 160 


Antes de rodar o programa, remova as 
linhas 115 e 145. Agora que a linha 145 
foi removida, você não verá o que está 
se desenvolvendo na tela durante a de- 
finição dos blocos gráficos. Após o pro- 
grama ter sido rodado, ocorrerá uma 
curta pausa, antes que uma exposição 
completa apareça na tela. 

A linha 160 verifica se um míssil foi 
lançado. A equação AF = indica que 
nenhum míssil foi disparado, e o pro- 
grama pula para a sub-rotina que se refe- 
re ao lançamento do míssil — que come- 
ça na linha 2000 — ou pula para a sub- 
rotina que movimenta o míssil; esta co- 
meça na linha 3010. Depois, a nave E.T. 
é movimentada. A linha 170 faz com 
que o programa salte para a sub-rotina 
que tem igício na linha 1000. 

A parte do programa das linhas 180 
a 220 diz respeit» à ativação das blin- 
dagens. A linha 190 checa qual tecla es- 
tá sendo pressionada. Se a tecla for um 
número de 1 a 4, a linha 2000 desenha- 
rá a blindagem; se alguma das blinda- 
gens for acionada, a linha 210 diminui- 
rá o combustível. 

A linha 230 traça um retângulo ne- 
gro no final do indicador do combustí- 
vel, dando a impressão de que o supri- 
mento de combustível está acabando, à 
medida que o valor em PW diminui. 

Finalmente, a linha 240 repete tudo 
novamente, indo para a linha 160. 
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Para entender a linguagem de máquina 
é necessário aprender primeiro como 
funciona o microprocessador, que é, ao 
mesmo tempo, o coração e o cérebro 
de um computador pessoal. 


Como você já sabe, os computadores 
possuem memória. Mas eles não se limi- 
tam a lembrar-se das coisas; na verda- 
de, essas máquinas também são capazes 
de manipular e processar aquilo que me- 
morizam, através da unidade central de 
processamento (UCP), que é formada 
por um único circuito integrado (chip), 
conhecido como microprocessador. 

Esse circuito integrado é muito mais 
complexo do que um circuito de memó- 
ria. As memórias são dispositivos rela- 
tivamente passivos, que armazenam pa- 
drões binários e os desenvolvem. O mi- 
croprocessador, entretanto, realiza fun- 
ções bem mais “inteligentes”. Ele pode 
adicionar, subtrair, movimentar infor- 
mação de uma locação de memória pa- 
ra outra, e deslocar e alternar seus pa- 
drões de bits. A programação em lingua- 
gem de máquina tem por objetivo “di- 
zer” ao microprocessador (UCP) como 
ele deve proceder para processar dados 
e informações, executando uma grande 
variedade de operações. 


(UEL 


Tudo que acontece no computador es- 
tá literalmente sob controle direto do mi- 
croprocessador. Verdadeiro “cérebro”, 
ou centro de controle da máquina, ele 
efetua todas as operações aritméticas, 
copia dados de uma locação de memó- 
ria para outra, atribui funções para áreas 
de memória e executa os programas. 
com o microprocessador que você está 
se comunicando quando escreve seus 
programas em código de máquina. Den- 
tro dele existem inúmeras locações espe- 
cializadas de memória, chamadas regis- 
tros. Cada registro tem uma função es- 
pecífica. E a seleção dos que serão utili- 
zados depende inteiramente das instru- 
ções que você fornece quando escreve o 
seu código de máquina. 


o 
DDDD—>DDDD>D>D>>>>>>"= 


Uma das coisas mais importantes so- 
bre os registros é que eles não possuem 
endereços. Isso faz com que eles se tor- 
nem de utilização muito mais rápida. 


OS REGISTROS INTERNOS 


As diferentes linhas de computado- 
res pessoais utilizam, geralmente, micro- 
processadores de marcas diferentes. As- 
sim, os micros das linhas Sinclair, 
TRS-80 e MSX, por exemplo, empre- 









































gam o microprocessador de oito bits de 
comprimento de palavra chamado Zilog 
Z-80A (este é o seu nome comercial). Já 
os micros da linha Apple II utilizam um 
microprocessador também de oito bits 
mas inteiramente diferente, o 6502. 

A complicação para o futuro progra- 
mador de linguagem de máquina come- 
ça aqui: cada um dos diversos chips de 
microprocessadores citados possui um 
conjunto diferente de registros internos 
e de instruções em código de máquina. 
Em geral, o que se aprende para um ti- 











po de chip não se aplica para os outros. 

Felizmente, alguns dos registros têm 
funções similares em todas as máquinas. 
Os microprocessadores de oito bits pos- 
suem um registro chamado PC (Pro- 
gram Counter) de dezesseis bits: é o con- 
tador de programa. Este armazena o en- 
dereço do byte seguinte do código de 
máquina de um programa a ser execu- 
tado. Ele “avisa” ao computador onde 
se encontra, dentro de um programa. E, 
assim que o byte do programa de códi- 
go de máquina é executado, o registro 
PC é aumentado de um. 

Todos os microcomputadores de oi- 
to bits também têm, pelo menos, um ou- 
tro registro, chamado acumulador de oi- 
to bits ou registro A. É o registro utili- 
zado pela UCP para efetuar operações 
aritméticas. Se você quiser, por exem- 
plo, acrescentar um número a outro (ou 
subtraí-lo dele), uma das duas parcelas 
deverá estar no acumulador. Isso tam- 
bém afeta a multiplicação e a divisão — 
que são apenas combinações de opera- 
ções lógicas como as adições e as sub- 
trações. 

Cada uma dessas máquinas possui 
também um par de registros de indexa- 
ção. Nos microprocessadores Z-80A es- 
tes são registros de dezesseis bits que 
contêm endereços. Tais endereços po- 
dem ser aumentados, diminuídos ou 
modificados aritmeticamente no acumu- 
lador, de modo a fornecer outros ende- 
reços. Os micros da linha Apple (micro- 
processador 6502) possuem registros de 
indexação de oito bits cujos conteúdos 
são incorporados a um endereço para 
fornecerem um endereço adicional. 

Conhecido como endereçamento in- 
dexado, esse tipo de operação é mais co- 
mumente utilizado para ler dados de 
uma tabela, byte por byte. O programa 
começa com o endereço do primeiro 
byte da tabela e, a seguir, percorre seu 
caminho aumentando o registro de in- 
dexação de um em um. 


PIU! 


O sinalizador (registro-bandeira, ou 
Tlag-register, em inglês, numa ana- 
logia à bandeira dos taxímetros) é ou- 
tro registro existente em todos os micro- 
processadores de 8 bits. Um registro si- 
nalizador tem normalmente oito bits, 
que podem estar “ligados” (bit 1), ou 
“desligados” (bit 0), dependendo do re- 
sultado de certas operações. Cada bit de 
um registro sinalizador é chamado de 
bandeira, ou sinalizador. 

Todo sinalizador tem um significado 
próprio. Por exemplo, o bit número 0, 
ou seja, o bit menos significativo do re- 








gistro sinalizador (o último bit à direita 
na convenção normal de escrita), é o bit 
de transporte ou sinalizador C (carry, 
em inglês). Se a UCP efetuar uma adi- 
ção, uma subtração, ou qualquer outra 
operação lógica ou aritmética que exija 
um bit para ser emprestado ou transpo! 
tado (o ““vai-um” das operações aritm 
ticas), então o sinalizador C será esta- 
belecido em 1. 

Os outros bits indicam se o resulta- 
do de uma operação foi zero (o sinali- 
zador de zero) ou negativo (o sinaliza- 
dor de sinal), ou ainda se um registro foi 
excedido em capacidade porque o núme- 
ro era muito grande (o sinalizador de ex- 
cesso, ou overflow). Esses sinalizadores 
são comuns a todas as máquinas, em- 
bora não estejam necessariamente na 
mesma posição no registro sinalizador. 
Existem também sinalizadores específi- 
cos para cada máquina. 

Os sinalizadores são utilizados em 
instruções de desvio condicional em lin- 
guagem de máquina — o equivalente em 
BASIC ao IF...THEN. No programa 
em código de máquina, podemos escre- 
ver instruções que farão com que a má- 
quina salte ou desvie se um sinalizador 
estiver em O ou em 1, por exemplo. 


ERRA 


Comum a todos os computadores, o 
indicador da pilha (em inglês: stack- 
pointer) é um registro destinado a reter 
o endereço de uma locação de memória 
RAM. Esse endereço marca o fim de 
uma área de memória, como todos os 
indicadores fazem; mas, aqui, essa é uma 
área especializada de memória, de uso 
exclusivo da UCP e conhecida como pi- 
lha. Ela é uma área de rápido acesso, 
onde a informação pode ser temporaria- 
mente armazenada e chamada de volta 
sem precisar dos procedimentos normais 
de endereçamento. 

A pilha da UCP funciona de modo pa- 
recido a uma pilha comum de papéis: to- 
da informação nova que se quer acrescen- 
tar a ela deve ser colocada em seu topo. 
Inversamente, quando se quer tirar dela 
alguma coisa, é necessário começar pelo 
topo, retirando as folhas mais altas (não 
vale tirar um papel do meio ou da parte 
mais baixa da pilha). A regra é: o último 
aentraréo primeiro a sair (em inglês: /ast 
in, first out). Por isso, esse tipo de pilha 
é chamado de LIFO. Existem outras es- 
pécies como a pilha FIFO (first in, first 
out). A fila de um supermercado é um 
exemplo de pilha FIFO... 

Uma das funções do microprocessa- 
dor consiste em colocar dados, endere- 
gos ou códigos no topo da pilha da me- 








mória. Se ele for instruído para retirar 
algo da pilha, começará sempre pelos 
itens mais altos. Isso significa que você 
não precisa especificar a locação de me- 
mória que lhe interessa, ou sua posição 
na pilha. Existe apenas uma locação do 
topo de cada vez; assim, o microproces- 
sador não se confundirá. 

Mas você, o programador, pode fi- 
car extremamente confuso, se não pres- 
tar atenção! É importante lembrar-se de 
tudo o que existe em cada locação de 
memória da pilha, quando se estiver fa- 
zendo um programa que a utiliza, e 
certificar-se de que o dado desejado es- 
tá no topo da pilha. 

Agora que você já domina o concei- 
to de pilha LIFO, podemos revelar-lhe 
um segredo: em todas as máquinas ci- 
tadas aqui, a base da pilha é dirigida pa- 
ra o topo da RAM, com o resto da pi- 
lha acumulado abaixo, item por item. 
Assim, na verdade, você introduz e tira 
coisas da parte inferior da pilha! 

Isto quer dizer que, quando um novo 
item é introduzido, o indicador de pilha 
é diminuído, e, quando um item é tira- 
do, o indicador é aumentado, 

Apesar disso, o conceito de pilha se 
mantém verdadeiro, com a base da pi- 
lha fixada por uma variável de sistema, 
eos itens dos dados adicionados ou sub- 
traídos a partir de um final livre, um de 
cada vez. 


EUR 


Uma das funções mais comuns de 
uma pilha é manter a UCP a par de seu 
lugar em um programa quando uma 
sub-rotina for executada. Isso pode pa- 
recer simples, mas devemos nos lembrar 
de que uma sub-rotina pode chamar ou- 
tra; esta, uma outra, e assim por dian- 
te. Quando o computador atinge uma 
instrução que lhe diz para saltar para 
uma sub-rotina, o conteúdo do conta- 
dor de programa nesse momento (isto 
6 onde o programa se encontra no ins- 
tante em que a instrução de desvio ocor- 
re) é copiado no topo da pilha. 

O endereço inicial da sub-rotina é en- 
tão escrito no registro contador de pro- 
gama. À medida que cada instrução é 
executada em uma sub-rotina, o conta- 
dor de programa é incrementado da ma- 
neira normal, até que atinja uma instru- 
ção de retorno. Então, o endereço que 
está no topo da pilha é retirado e colo- 
cado de volta no registro contador de 
programa. Esse processo permite que a 
UCP reinicie a execução do programa 
exatamente no ponto onde estava antes 
de chamar a sub-rotina e passe a incre- 
mentar o contador de programa nova- 


mente. Isso explica por que, em progra- 
mas BASIC, cada sub-rotina encaixada 
dentro de uma outra deve estar conti- 
da completamente naquela que a pre- 
cede; do contrário, os endereços incor- 
retos de partida seriam colocados no to- 
po da pilha. O mesmo acontece com os 
laços de repetição, tipo FOR...NEXT, 
cujos endereços de retorno no progra- 
ma são armazenados na pilha. Agora 
que você domina os conceitos básicos 
da programação de códigos de máqui- 
na, descubra como eles se relacionam 
ao microprocessador específico de seu 
computador. 
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O microprocessador dessas máquinas 
é o Zilog Z80A, de oito bits. Ele tem ca- 
racterísticas exclusivas, como o fato de 
contar com um grande número de regis- 
tros internos (21, para ser exato). Estes 
são também chamados de registros do 
usuário, porque podem ser controlados 
diretamente pelo usuário ou pelo pro- 
gramador da máquina. 

Existem dois acumuladores de oito 
bits: A e A”. Esses acumuladores não 
podem ser utilizados ao mesmo tempo, 


mas você pode comutá-los para desem- 
penharem simultaneamente duas opera- 
ções. Contudo, não é aconselhável ten- 
tar isso no ZX81. Se a máquina estiver 
na modalidade SLOW (lenta) você po- 
derá perder o conteúdo da tela. 

O registro sinalizador F também pos- 
sui oito bits. O bit na posição O é o si- 
nalizador de transporte C; o bit na po- 
sição 1 é o sinalizador de subtração N, 
o qual entra em ação apenas quando 
operações codificadas em BCD (decimal 
codificado em binário — uma represen- 
tação especial de números decimais em 
binário) são utilizadas; o bit 2 é o sina- 








lizador de paridade/excedente P/V; o 
bit 4 é o sinalizador de meio transporte 
H, que também é utilizado em BCD; o 
bit 6 é o sinalizador de O Z, e o bit 7 é 
o sinalizador de sinal S. Existe um re- 
gistro sinalizador alternativo F* que é 
comutado junto com A”. 

Existem seis registros de propósitos 
gerais — B, C, D,E, He L — que tan- 
to podem ser utilizados separadamente, 
como registros de oito bits, quanto em 
pares, como registros de dezesseis bits 
(neste caso, são chamados coletivamente 
de registros BC, DE e HL). Também 
existe um conjunto alternativo: B '*C”, 
D'E'eH'L'.O HL e os registros al- 
ternativos H 'L" podem igualmente ser 
utilizados como acumuladores de dezes- 
seis bits. Contudo, os registros H *L” 
devem ter seus valores anteriores 
restaurados antes de retornarem para 
BASIC. 

O indicador de pilha do Z-80 tem de- 
zesseis bits, assim como os registros de 
indexação IX e IY, Estes últimos retêm 
endereços que podem ser aumentados 
ou deslocados por meio da adição ou 
subtração de números conhecidos como 
“deslocamentos” (off-sets), destinados 
a fornecer um outro endereço. O IY 
aponta para o centro das variáveis de 
sistemas e é utilizado pelas rotinas ROM 
para indexá-las. Se o registro IY for 
acionado, seu valor original deverá ser 
restaurado mais tarde ou o computador 
não funcionará. 

Existem mais dois registros de pro- 
pósitos especiais no microprocessador 
Z-80;0 Teo R. O registro I armazena 
parte do endereço utilizado para iniciar 
“rotinas interrompidas”. São rotinas 
que interrompem o curso normal do seu 
programa de código de máquina a cada 
1/50 de segundo, para desempenhar al- 
guma função vital tal como a varredu- 
ra do teclado. 

O registro R renova a memória dinã- 
mica (refresh), mas você não poderá 
utilizá-lo no Spectrum ou no ZX-81. 

A parte inferior da pilha está no RAM- 
TOP (locação máxima da memória RAM 
em um microcomputador) e pode ocupar 
uma área tão grande da RAM quanto se- 
ja necessário. O indicador de pilha, ou 
registro SP, possui dezesseis bits; assim, 
ele armazena todo o endereço do último 
byte ocupado da pilha. 
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Os micros da linha Apple II, bem co- 
mo o TK-2000, utilizam o microproces- 
sador 6502. 

Esse chip possui um único acumula- 
dor de oito bits e dois registros de inde- 





xação de oito bits cada: X e Y. Estes 
contêm deslocamentos (off-sets), que 
são acrescentados a um endereço-base 
para se obter outro endereço. Esse mé- 
todo é muito utilizado para ler uma ta- 
bela de dados, por exemplo. O endere- 
ço-base, no caso, é o início da área de 
memória contendo uma tabela. Para ler 
a tabela, usamos um laço, que incremen- 
ta apenas o deslocamento a cada passa- 
gem. Com isso, o programa é direcio- 
nado para o próximo byte de tabela, ca- 
da vez que o laço é repetido. 

possível direcionar um programa 
em código de máquina para um endere- 
ço que contenha um outro endereço — 
desde que este se encontre na página 
zero da RAM, pois os endereços 
indiretos podem ter só oito bits de 
comprimento (isto limita em 255 o nú- 
mero de memórias endereçáveis por es- 
te método). Você pode deslocar um des- 
ses dois endereços, mas o registro X de- 
ve ser utilizado para deslocar a partir do 
primeiro endereço, e-o registro Y 
deve deslocar a partir do segundo 
endereço. 

O registro processador P de oito bits, 
também conhecido como registro de es- 
tado (status-register), contém um sina- 
lizador. Os sinalizadores de transporte 
C são os mais importantes e ocupam o 
bit 0; o sinalizador de O Z ocupa o bit 
1; o sinalizador de excesso V ocupa o bit 
6; e o sinalizador de sinal N ocupa o 
bit 7. 

Existem mais três sinalizadores que 
você pode utilizar. O sinalizador de de- 
cimal D, que é o bit 3, é estabelecido 
quando o microprocessador efetua ope- 
rações aritméticas em binário codifica- 
do em decimal (BCD). O sinalizador de 
pausa B e o sinalizador de interrupção 
I'são utilizados em “rotinas de interrup- 
ção”, Estas interrompem, a intervalos 
regulares, o fluxo normal dos seus pro- 
gramas em código de máquina para de- 
sempenharem funções vitais, como a 
varredura do teclado. 

O 6502 também tem uma pilha que 
está limitada à página 1, com sua base 
em $01FF, pois o indicador de pilha, ou 
registro SP, tem apenas 8 bits. Esse in- 
dicador pode conter qualquer número 
de $00 a $FF e fornece o byte menos sig- 
nificativo do primeiro endereço livre lo- 
calizado abaixo da pilha. O micropro- 
cessador já sabe que o bit mais signifi- 
cativo do endereço é 01, pois a pilha es- 
tá na página 1. 


O microprocessador existente nos 
computadores da linha TRS-Color é do 





tipo Motorola 6809E de oito bits, ope- 
rando a uma frequência de 0,895 MHz. 
Ele tem dois acumuladores: os registros 
Ae B, que podem ser utilizados inde- 
pendentemente, como registros separa- 
dos de oito bits, ou juntos, como um 
acumulador D de dezesseis bits. 

Ele conta ainda com dois registros de 
indexação de dezesseis bits — X e Y — 
que retêm os endereços que podem ser 
aumentados ou deslocados, por meio da 
adição ou subtração de números (conhe- 
cidos como “'deslocamentos” ou off- 
sets), para fornecerem um outro ende- 
reço. Frequentemente, essa forma de 
programação é utilizada para ler uma ta- 
bela de dados a partir de um endereço- 
base. 
O registro de código de condição re- 
tém os diversos bits sinalizadores. O bit 
0é o sinalizador de transporte C; o bit 
1 é o sinalizador de excesso V; o bit 2 
é o sinalizador de zero Z; o bit 3 é o si- 
nalizador de sinal N; o bit 5 é o sinali- 
zador de meio transporte, que é ativa- 
do apenas com operações aritméticas 
com BCD (decimal codificado em biná- 
rio, que é uma representação especial de 
números decimais); o bit 4 é o sinaliza- 
dor da máscara de interrupção normal 
I; o bit 6 é o sinalizador da máscara de 
interrupção rápida F; e o bit 7 é o sina- 
lizador de total E — todos são utiliza- 
dos em rotinas de interrupção, que in- 
terrompem, a intervalos regulares, o flu- 
xo normal do programa de código de 
máquina para desempenharem funções 
decisivas, como atualizar o cronômetro 
interno, fazer a varredura do teclado pa- 
ra ver se alguma tecla foi apertada 
etc. 

O chip 6809 possui ainda um regis- 
tro de página direta — ou DP — de oi- 
to bits. A função desse registro é arma- 
zenar o byte mais significativo dos en- 
dereços que você escolheu para a pági- 
na direta, de modo que a locação nessa 
página possa ser endereçada apenas pe- 
lo seu byte menos significativo. 

São dois os indicadores de pilha, de 
dezesseis bits cada: S e U. O primeiro 
revela o último endereço completo no 
hardware da pilha cuja base está em 
RAMTOP ou &H7FFF (a menos que 
tenha sido empurrado para baixo, de 
modo a deixar espaço a um programa 
em código de máquina). O indicador U, 
por sua vez, é utilizado com a pilha do 
usuário, cuja base deve ser normalmente 
definida pelo programador. A pilha do 
usuário é pouco utilizada; assim, o re- 
gistro U serve como um registro extra 
de indexação de dezesseis bits pelos có- 
digos de máquinas mais sofisticados no 
TRS-Color ou pelo programador de lin- 
guagem Assembly. 

















COMO DESENHAR 


EM BASIC 


Alguns comandos simples e muita 
imaginação: isso é tudo que você 
precisa para produzir imagens 
sensacionais na tela do computador. 
Veja aqui por onde começar. 


Ligue um aparelho de TV ou um mo- 
nitor de vídeo ao seu computador e a te- 
linha ficará à sua disposição. Pratica- 
mente todos os microcomputadores pes- 
soais permitem que você desenhe nela, 








m — UTILIZE OS COMANDOS 


— DESENHE QUADRADOS, 
TRIÂNGULOS E CÍRCULOS 
USE FLASH PARA ANIMAR 
PROGRAMAS NO SPECTRUM 








GRÁFICOS DO BASIC 


EE GRÁFICOS NO APPLE E NO MSX 





acrescente cor onde e como desejar, etc. 
Em pouco tempo você estará fazendo 
desenhos realmentte complicados. 

Os gráficos para computador evoluí- 
ram muito nos últimos anos e atualmen- 
te são utilizados em muitos tipos de apli- 
cações. Gráficos e tabelas constituem 
um exemplo óbvio, mas você também 
já deve ter notado o aumento no núme- 
ro de imagens geradas por computado- 
res em propagandas de TV, revistas e até 
mesmo em efeitos especiais de filmes. 
Na verdade, muitas das ilustrações de 
INPUT foram produzidas ou modifica- 





das por um computador. 

É claro que os computadores utiliza- 
dos para esses tipos de imagem sofisti- 
cada são muito maiores do que o mo- 
desto micro que você tem em casa. Mas 
existe uma quantidade impressionante 
de coisas que você pode fazer em sua 
maquininha doméstica 

A maioria dos micros entende co- 
mandos simples, tais como PLOT, 
DRAW, PAINT e INK. Para usá-los 
com eficiência e facilidade, contudo, é 
preciso compreender bem como a tela 
gráfica do computador é organizada. 
































Praticamente todos os computadores 
com capacidade gráfica de alta resolu- 
ção utilizam a mesma forma de organi- 
zação da tela. Esta é dividida em um 
conjunto de elementos individuais de 
imagem chamados pixels (termo que de- 
riva da abreviatura da expressão ingle- 
sa picture element). Cada pixel é um pe- 
queno retângulo na tela, que pode ser 
“ligado” ou “desligado” individual- 
mente, por diferentes comandos. Os pi- 
xels são dispostos em uma espécie de 
matriz retangular, como um sistema de 
coordenadas, e cada um deles tem um 
“endereço”, que geralmente é um par 
de números: sua posição na tela em re- 
lação ao eixo horizontal e ao vertical. 

O número de pixels na tela define o 
seu grau de resolução gráfica. Em al- 
guns computadores, você pode escolher 
entre desenhos de alta resolução com 
poucos “pixels” e linhas finas, ou de- 
senhos de baixa resolução, com pixels 
maiores e linhas grossas. Muitos com- 
putadores permitem também que você 
Selecione a cor que o pixel terá na tela 
ao)ser iluminado. 

Assim, desenhar na tela é apenas uma 
questão, de dizer ao computador quais 
pixels devem ser acendidos. Em poucos 
minutos, Experimentando os comandos 
gráficos maisisimples, você estará fazen- 
do belos desenhos Sozinho. 

Alguns micrãs, como os tompatíveis 
com o ZX-B1, têm uma capacidade grá- 
fica relativaménte limitada, poissseus 
programas exploram a utilização de dois 
comandos apenas; O PLOT, quesim- 
plesmente aceride um ponto na tela, e O 
UNPLOT, encarregado de apagá-lo. 
Além disso, a resolução Bráfica da tela 
é bastante pequena. No entanto, esses, 
micros podem ser equipados, opcionalé 
mente, com uma placa ou um cariáeho 
para gráficos de alta resoluçãof 

Já os microcomputadoresidas tinhas 
TRS-Color, Apple II, Sijaélair Spectrum 
eMSX dispõem de recúirsos bastante sós 
fisticados para desenhar em alta re- 
solução. 

Além disso, os migros mais moder- 
nos contam com comandos gráficos adi- 
cionais que permiteud eriar figuras geo- 
métricas, como cireulos e tetângulos, e 
pintá-las com cores diversas. 

Para esses computadores, existe o 
conceito de cursor gráfico, ou seja, um 
ponto imaginário na tela-queindica as 
coordenadas finais do último ponto ou 
reta traçados. 


A imagem de alta resolução que o 
Spectrum produz na tela é de 256 pixels 





no sentido horizontal e 176 no sentido 
vertical. 

Os pixels são numerados de uma ma- 
neira aparentemente estranha à primei- 
ra vista. Se você já utilizou as declara- 
ções PRINT AT antes, sabe que: 


PRINT AT 10,15 ... 


significa que o que deve ser impresso se- 
rá colocado na tela em uma posição de- 
finida por 10 linhas, contadas a partir 
do alto da tela, e 15 colunas, contadas 
a partir da borda esquerda. 
Entretanto, quando você emprega a 
instrução PLOT para acender um pixel, 
o primeiro parâmetro do comando for- 
nece a distância a partir da margem es- 
querda do vídeo, e o segundo define a 
distância para cima, a partir do lado in- 
ferior da tela. Esse método, aparente- 
mente em conflito com o anterior, se- 
gue a convenção adotada para o siste- 
ma de coordenadas ortogonais (cartesia- 
nas). Assim, por exemplo, o comando 


PLOT 10,15 


diz ao computador para colocar um si- 
nal na tela distante 10 pixels da margem 
esquerda e 15 linhas contadas de baixo 
para cima, Equivale, portanto, a X= 10 
eY=15, Se você fizer a experiência ve- 
ro ponto aparecer na parte inferior es- 
querda da tela. As posições horizontais 
são numeradas de 0 a 255, e as verticais, 
de 0 a 175. Para sentir melhor como 
funciona a numeração das posições de 
ela, tente digitar essas linhas, uma de 
cada vez: 





PLOT 0,0 
PLOT 0,175 
PLOT 255,0 
PLOT 255,175 


Os quatro Pântos vistos agora na tela 
marcam os limitésda área na qualsepods 
desenhar alguma cdisa. Tudo o que esti- 
ver fora desses limites cairá numa parte da 
felágonhecida como moldura ou borda 
(BORDER) (veja mais adiante). Você po- 
deusar, nestetaso,o comando PLOT com 
todas as cores disponíveis no Spectrum. 


[o on ILS 


O comando DRAW do Spectrum faz 
exatamente o que você espera: Ele dese- 
nha uma linha reta. 

Antes; porém, o computador tem que 
saber onde começar a desenhá-ta, qual 
serão seu comprimento, e em que Hlire- 
ção você quer orientá-la. 

Para iniciar a reta, você pode utili- 
zar uma posição qualquer na tela, con- 
forme foi definido para o comando, 





PLOT. Tente essas retas em ordem, sem 
limpar a tela entre elas: 


PLOT 100,75 
DRAW 50,0 


Se você não fornecer uma nova coor- 
denada na tela, por intermédio do co- 
mando PLOT (que pula para ela, sem 
desenhar nada), o computador conti- 
nuará a desenhar a partir da última po- 
sição, ou seja, do ponto final da última 
reta traçada (que é onde está o cursor 
gráfico). Para comprovar isso, adicio- 
ne as seguintes retas, uma de cada vez, 
às duas que você acabou de desenhar; 


DRAW 0,50 
DRAW -50,0 
DRAW 0,50 


Como você pode observar, é neces- 
sário empregar números positivos para 
desenhar para cima ou para a direita e 
números negativos para desenhar para 
baixo ou para a esquerda. 

Para traçar uma reta inclinada, você 
deve seguir a mesma regra: primeiro, es- 
tabeleça quantas posições para a direi- 
ta ou para a esquerda o cursor gráfico 
deve se movimentar, depois quantas po- 
sições para cima ou para baixo. Por 
exemplo, acrescente essa reta àquelas já 
traçadas acima: 


DRAW 50,50 





Bis aqui um programa mais interes- 
ante, utilizando o comando DRAW. 
Para que você possa ver o que está acon- 
tecendo, entre e execute as linhas dos 
programas abaixo: 





lo INK 2 

20 PLOT 0,175 

30 LET t=255: MET re-175: 

LET b=-255: LET 1=169 

40 DRAW t,0: DRAW O,r: DRAW b 


«0: DRAW 0,1 


Se você digitou o programa correta- 
mente (e não cometeu erros, como u! 
lizar O número 1 no lugar do L minús- 
culo, ou vice-versa), obterá um retângu- 
lo sem um dos lados. Em seguida, adi- 
cionelb,programa as linhas abaixo: 


50 LET t=t-6 

60 LET rºPMIZENLET b=-b+12: 
LET 1=1-12 

JO DRAW t,0: DRAW 0,Ps 
+0: DRAW 0,1 





DRAW b 


Ao executar O programa, você nota- 
rá que agora apareceu um outro retân- 
gulomenor, dentro do primeiro, Acres- 
cente então o-resto do programa: 





BO LET t=t-6 
90 coTo 50 


Veja o que acontece: cada vez que o 
seu programa executa o laço entre as li- 
nhas 50 e 90, deduz 12 de cada um dos 
números positivos. A variável t (topo), 
por exemplo, diminui 255 para 243, de- 
pois para 231... para 219... e assim por 
diante. Eventualmente, ele vai aquém do 
zero e se torna um número negativo — 
assim, a reta que está sendo controlada 
pelo laço muda de direção. Do mesmo 
modo, as variáveis inicialmente negati- 
vas (tais como b, para baixo) podem 
tornar-se positivas e também mudar de 
direção. 

Para observar mais de perto esse pro- 
cesso, rode novamente o programa com 
a seguinte adição: 


85 PAUSE 100 


AO 


O Spectrum não tem a declaração 
COLOR, usada para colorir fácil e ra- 
pidamente uma área de fundo. 

Todavia, você pode “'sombrear” o 
desenho, utilizando uma série de retas 
paralelas de uma só cor. Mas, como ca- 
da nova reta precisa ter seu próprio co- 
mando PLOT, os programas tendem a 
se tornar demasiado lentos. 

Um modo de se contornar essa difi- 
culdade é utilizar um laço FOR...NEXT: 
o programa seguinte desenha a parede 
direita de uma casa (figura 2): 


20 FOR h=56 TO 100 STEP 3 

30 PLOT 160,h 

40 DRAW 23,12 

50 NEXT h 

60 PLOT 183,110 : DRAW 0,-97 
: DRAW -23,-13: DRAW 0,100 


Como isso funciona? Cada vez que 
o laço é executado, o programa desenha 
uma linha de 23 pixels, inclinando-a de 
12 pixels, da esquerda para a direita. A 
cada nova linha, ele inicia 160 pixels à 
esquerda. 








Fig. 1: Um padrão de gráfico para o Spectrum. 
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Fig. 2: A casa em perspectiva. 


Mas a cada “viagem” do laço a li- 
nha 20 acrescenta 3 à variável h, que re- 
presenta a altura da posição PLOT. As- 
sim, o início de cada linha será três pi- 
xels mais alto que o da anterior. 

Acrescente as próximas linhas e sua 
casa passará a tera maior parte do 
telhado: 


70 LET r=100 

80 FOR p=140 TO 150 
90 PLOT r,p 

100 DRAW 69,-44 

110 LET r=r+2 

120 NEXT p 


Existem aqui duas variáveis, p e r. Is- 
so se deve a que as posições PLOT 
movimentam-se não apenas para cima 
mas também para a direita. 

Observe a utilização de números ne- 
gativos na linha 100 para fazer o decli- 
ve do telhado para baixo. As próximas 
linhas completam o contorno da casa: 


100,140 
-60,-40 
46,103 
0,-96 
113,-7 


130 PLOT 
140 DRAW 
150 PLOT 
160 DRAW 
170 DRAW 


Agora você pode terminar a casa, 
uma porta, as janelas e uma chaminé 
com o auxílio dos comandos PLOT e 
DRAW. Se você decidir copiar a casa 
que aparece na figura 1, eis aqui algu- 
mas sugestõe: 

O triângulo do revestimento abaixo 
do telhado requer três variáveis. A pri- 
meira define a altura onde cada linha co- 
meça. A segunda controla a distância, 
à direita, de onde ela parte. A terceira, 
finalmente, determina o comprimento 
da linha. 

As janelas do andar superior são tra- 
çadas sobre o revestimento, depois que 
este é desenhado. Para fazer isso, você 
precisará jogar espaços em branco, 
usando o PRINT AT, nos pontos ade- 
quados. Em seguida, trace o contorno 
das janelas, utilizando PLOT e DRAW 
da maneira usual. 





COMO DESENHAR CÍRCULOS 


A declaração CIRCLE do Spec- 
trum também se comporta de modo pre- 
visível: ela desenha um círculo. 

necessário não esquecer que os pri- 
meiros dois números após uma declara- 
ção CIRCLE definem as coordenadas 
do centro do círculo — o qual não é tra- 
çado —, enquanto O terceiro número 
fornece o seu raio em pixels. Assim a 
linha: 

CIRCLE 127,87,50 


desenha um círculo de 100 pixels de 
iâmetro (50 de raio) no meio da tela 
(posição x= 127 e y=87). 

No programa da casa, por exemplo, 
você pode ““instalar" uma janela redon- 
da na porta da frente, utilizando a de- 
claração CIRCLE. 

Se você seguir um CIRCLE com uma 
declaração DRAW, a linha que você de- 
senhar começará a partir do ponto on- 
de o circulo termina. 








CORES 





láã 





O Spectrum tem uma gama de oito 
cores, identificadas por rótulos acima 
das teclas numéricas de O a 7, que são 
utilizadas para chamá-las quando isso se 
faz necessário. O comando BORDER 
(bordas) controla a área externa da te- 
la, sobre a qual você não pode desenhar 
nem imprimir nada. 

Os outros comandos de cores podem 
ser utilizados de duas maneiras bem di- 
versas, Se você rodar um programa 
com, por exemplo, 





10 BORDER 2:PAPER 2:INK 7 


tudo o que se seguir no programa, de- 
pois que essa linha for executada, será 
impresso em branco (INK 7), sobre uma 
tela de fundo vermelho (PAPER 2) 
Tal situação só será alterada quando 
você substituir essa linha por outra que 
modifique os comandos de cor. Note 
que a moldura é da mesma cor que o 
fundo da tela (BORDER 2), mas 
você poderia ter especificado outra cor 
para ela. Até mesmo as listagens dos 
programas aparecerão nas cores indica- 
das, o que pode dificultar a sua leitura. 
Se, por outro lado, você iniciar com: 


10 PRINT PAPER 2:INK 7:AT 
15,10; "x" 

então, apenas a pequena área da tela on- 
de o asterisco entre aspas aparece fica- 
rá vermelha. 

Observe que no primeiro exemplo as 
declarações de cor são seguidas por dois 
pontos, ao passo que no segundo exem- 








plo cada uma delas é separada por um 
ponto e vírgula. 

Você pode incorporar essas declara- 
ções de cor a qualquer linha do progra- 
ma, utilizando PLOT, DRAW ou CIR- 
CLE. Tente essas linhas limpando a te- 
la (comando CLS) entre as linhas: 


PLOT PAPER 1:INK 7:125,87 


(Dá para ver o ponto?) 


PLOT 125,87:DRAW INK 2;50,50 
PLOT 125,87:DRAW PAPER 1; INK 





7:50,50 
CIRCLE INK 4;127,87,50 
e até mesmo esta: 
CIRCLE PAPER 2; INK 6;125,87,50 
: DRAW 
PAPER 3; INK 7;75,0 

Esta última combinação pode ser uti- 
lizada para produzir alguns efeitos es- 
petaculares. 

O último dos comandos gráficos do 
Spectrum tratados neste artigo — o 
FLASH — é igualmente espetacular, e 
muito utilizado em programação de jo- 
gos. O que ele faz é reverter rapidamente 
as cores da tinta e do papel. 

O FLASH deve ser seguido por um 
número — tanto o 1 para ligar, como 
o O para desligar; eis aqui um exemplo 
de sua utilização: 


10 PAUSE O 
20 IF INKEY$="" THEN GOTO 30 


30 FOR n=10 TO 23: SOUND .015 
sn: NEXT n 

40 BORDER 2: PAPER 2: INK 6: 
FLASH 1 


50 PRINT "NAO TOQUE !" 

60 PRINT "ESTE COMPUTADOR E P 
ERIGOSO!” 

70 PRINT 

80 coro 30 


Quando você tiver entrado esse pro- 
grama, rode-o. Então pressione qual- 
quer tecla... e saia de perto! 


O ZX-81 utiliza o comando PLOT de 
um modo parecido ao do Spectrum: 
PLOT, seguido por dois números que 
controlam a posição do pixel. Mas existe 
uma diferença: os pixels do ZX-81 são 
dezesseis vezes maiores do que os pixels 
do Spectrum, pois neste existem apenas 
quatro pixels em cada espaço de carac- 
tere, enquanto que o Spectrum tem 64 
pixels em um espaço de caractere. 

Como resultado, você não consegui- 
rá fazer desenhos ou padrões tão deta- 
lhados; mas tornará cada pixel mais 
visível, 

O programa a seguir traça um padrão 


gráfico na tela. Como ele recomeça ca- 
da vez que vai para a linha 70, você de- 
verá pressionar a tecla <BREAK> 
quando quiser parar: 


10 LET X=INT (RND*32) 
20 LET Y=INT (RND*24) 
30 PLOT X,Y 

40 PLOT 63-X,Y 

50 PLOT X,43-Y 

60 PLOT 63-X,43-Y 

70 coro 10 


O ZX-81 não tem o comando 
DRAW, mas você pode utilizar a instru- 
ção PLOT para compor uma reta com 
pontos. Você poderá ver como isso fun- 
ciona com o programa seguinte, o qual 
desenha um certo número de quadrados 
utilizando dois laços FOR... NEXT. 


10 FOR N=0 TO 20 STEP 2 
20 FOR M=N TO 43-N 

30 PLOT M,N 

40 PLOT M,43-N 

50 PLOT N,M 

60 PLOT 43-N,M 

70 NEXT M 

80 NEXT N 


E de um modo parecido, você pode 
imitar o comando CIRCLE, empregan- 
do a seguinte rotina: 


10 FOR N=0 TO 2*PI STEP .1 
20 PLOT 32+20*SIN N,22+20*Cos N 


30 NEXT N 


Ela utiliza as duas funções matemá- 
ticas — o seno (SIN) e o cosseno (COS) 
— para calcular as coordenadas dos pi- 
xels que compõem o circulo. Elas serão 
explicadas em detalhes em um artigo 
posterior, mas, no momento, você po- 
de experimentar com o tamanho do cir- 
culo, modificando os dois números 20. 
O número máximo que você pode ter é 
22 (maior que isso não caberá na tela). 
Outra maneira é modificar a posição do 
círculo. No momento, seu centro está 
em 32,22 (você pode ver essas coorde- 
nadas na linha 20). Não se esqueça de 
fazer o circulo menor se você movê-lo 
para perto da borda da tela. 


é“ REM 


Os microcomputadores compatíveis 
com Apple II também têm recursos ra- 
zoáveis para a elaboração de desenhos 
em alta resolução, em cores. 

O Apple tem três modalidades de te- 
la: a tela de texto (invocada pelo coman- 
do TEXT e limpada pelo comando HO- 
ME); a tela gráfica de baixa resolução 
(que tem 40 pixels na direção horizon- 
tale 40 pixels na direção vertical, usan- 
do dezesseis cores); e a tela gráfica de 


alta resolução (que tem 280 pixels na di- 
reção horizontal e 192 na direção vei 
cal, com seis cores). O comando para li- 
gar a tela gráfica de baixa resolução é 
o GR; e, para a tela de alta resolução, 
o HGR. 

Existe um conjunto diferente, embo- 
ra parecido, de comandos gráficos pa- 
ra os modos de alta e de baixa resolu- 
ção. Para o modo de baixa resolução te- 
mos os seguintes: COLOR, PLOT, 
HLIN e VLIN. Para a alta resolução, 
os comandos que mostraremos nesta li- 
ção são o HCOLOR e o HPLOT. 

Além disso, existem outros comandos 
mais sofisticados para o modo de alta 
resolução, tais como DRAW, ROTA- 
TE, SCALE, etc., que serão tratados em 
uma lição futura. 

Os micros da linha Apple II têm a li- 
mitação de não permitir a exibição si- 
multânea de letras e de gráficos de bai- 
xa e de alta resolução na mesma tela. Só 
o modelo nacional TK-2000, da Micro- 
digital, tem essa capacidade. 


DEC RUI LDA 


Para demonstrar a utilização dos co- 
mandos gráficos de alta resolução no 
Apple Il e no TK-2000, vamos fazer um 
desenho bem simples, passo a passo: um 
aparelho de TV em que aparecem uma 
série de pontos coloridos, distribuídos 
aleatoriamente na tela. O programa co- 
meça com as linhas a seguir, que dese- 
nham a caixa do televisor: 





10 HGR2Z 

20 HCOLOR= 3 

30 HPLOT 10,75 TO 200,75 
40 HPLOT 200,75 TO 200,190 
50 HPLOT TO 10,190, 

60 HPLOT TO 10,75 


A linha 10 define o tipo de tela grá- 
fica a ser utilizada, com o comando 
HGR2. O HGR significa que a tela será 
de alta resolução (Hligh-resolution GRa- 
phics), e o número 2 diz ao computador 
que a tela será inteiramente tomada pe- 
los gráficos (se não houvesse esse 2, o 
computador reservaria automaticamen- 
te cinco linhas de texto na parte de bai- 
xo da tela). Sem esse comando, o com- 
putador não aceitaria os comandos grá- 
ficos subsegientes. 

A linha 20 define a cor a ser usada 
para o traço em alta resolução. E usa- 
do o comando HCOLOR, seguido do 
número da cor desejada. O Apple não 
tem um comando para definir a cor de 
fundo, como é o caso do MSX e do 
TRS-Color. Se for necessário ter uma 
cor de fundo diferente do preto (a nor- 
mal da tela), usa-se uma sucessão de li- 


nhas paralelas da mesma cor (essa ma- 
nobra, porém, leva muito tempo). 

As linhas 30 a 60 traçam um retân- 
gulo na tela, com o canto superior es- 
querdo em (10,75) e o canto inferior di- 
reito em (200,190). O comando utiliza- 
do é o HPLOT. Esse comando pode ser 
usado de várias maneiras. 

A variante do HPLOT mostrada nes- 
se segmento de programa serve para tra- 
çar retas. Os parâmetros básicos para o 
HPLOT são conjuntos de dois números 
ou expressões numéricas, separados por 
uma vírgula. Tais parâmetros indicam 
a posição em que o cursor gráfico deve- 
rá ser colocado na tela de alta resolução. 
Por exemplo: HPLOT 10,75... diz ao 
computador para começar a traçar uma 
reta em alta resolução, nas coordenadas 

=10e Y=75 (ou seja, 10 pixels dis- 
tantes da margem esquerda da tela, e 75 
pixels abaixo do topo). 

Para traçar uma reta, usa-se O co- 
mando do HPLOT seguido da palavra 
TO. Por exemplo, na linha 30 do pro- 
grama, traçamos uma reta começando 
no ponto (10,75), e indo até o ponto 
(200,75) — portanto, paralela ao eixo 
horizontal — usando o comando: 


HPLOT 10,75 TO 200,75 


O cursor gráfico agora fica no últi- 
mo ponto da tela depois do TO: no 
exemplo acima, em (200,75). Se quiser- 
mos traçar uma reta a partir daí, não é 
necessário especificar um novo começo 
para ela. Basta usar o comando assim: 


HPLOT TO 200,190 


Essa nova forma vai traçar uma linha 
de (200,75) a (200,190) — uma reta ver- 
tical, portanto. 

A linha 300 simplesmente ““congela”” 
a tela gráfica, impedindo que o fim do 
programa a cancele. 

Vamos traçar agora o restante do te- 
levisor, adicionando as linhas abaixo: 





70 HPLOT 25,85 TO 155,85 TO 15 
5,180 TO 25,180 TO 25,85 

80 HPLOT 10,75 TO 45,50 

90 HPLOT 200,75 TO 235,50 


100 HPLOT 200,190 TO 235,165 
110 HPLOT 45,50 TO 235,50 TO 2 
35,165 

120 HPLOT 190,60 TO 230,0 

130 HPLOT 190,60 TO 150,0 

140 HPLOT 175,85 TO 179,85 TO 
179,89 TO 175,89 


150 HPLOT 175,105 TO 179,105 T 
O 179,109 TO 175,109 
160 HPLOT 175,135 TO 179,135 T 
O 179,139 TO 175,139 
170 HPLOT 175,155 TO 179,155 T 
O 179,159 TO 175,159 


A linha 70 traça um outro retângulo 
dentro do primeiro. Note que podemos 


utilizar uma série de cláusulas TO, den- 
tro da mesma linha com o HPLOT, A 
linha 70, funciona de modo idêntico às 





As linhas 80 e 90 servem para dese- 
nhar a antena. Note que linhas inclina- 
das são traçadas exatamente com a mes- 
ma técnica do HPLOT. As linhas res- 
tantes, de 100 a 170, servem para traçar 
o restante do desenho do televisor, e dar 
perspectiva a ele. 

Finalmente, para fazer aparecer um 
“chuvisco” colorido na tela do televi- 
sor que está sendo esboçado no vídeo do 
seu computador, adicione as linhas: 


180 X = INT ( RND (1) * 130) + 
26 

190 Y = INT ( RND (1) * 95) + 
B6 

200 COLOR= RND (1) * 10 

210 HPLOT X,Y 

220 Goto 180 


As coordenadas dos pontos aleató- 
rios são definidas nas linhas 180 e 190 
e são armazenadas nas variáveis X e Y. 
Note que a expressão aritmética sorteia, 
usando a função RND, um número in- 
teiro dentro dos limites da tela. 

O HPLOT mostrado aqui é mais sim- 
ples, pois é seguido apenas por dois nú- 
meros ou duas expressões numéricas, se- 
paradas entre si por uma vírgula. Esses 
dois parâmetros indicam a posição em 
que o cursor gráfico deverá ser coloca- 
do na tela de alta resolução. 


HPLOT X,Y 











diz ao computador para traçar um pon- 
to em alta resolução, nas coordenadas 
Xe tr. 

Finalmente, a linha 220 gera novos 
pontos aleatórios em um laço infinito. 
Para interrompê-lo, use as teclas 
<CTRL><C>. 


[o [RR 





Os micros da linha Apple não têm um 
comando específico para traçar círculos, 
mas você pode imitar o comando CIR- 
CLE utilizando a seguinte rotina: 





10 HOME INPUT "COR:";C 

12 INPUT "CENTRO (X,Y):";XC,YC 
14 INPUT "RAIO:";R 

15 HCOLOR= € 

16 HGR 


17 HPLOT XC,YC + R 
20 FORN = O TO 6.2856 STEP .1 


Formas simples como esta televisão podem ser | 
desenhadas no Apple II e no TK-2000. 























30 HPLOT TO XC+R * SIN (N) 
»XC + R* cos (N) 
40 NEXT N 


Essa rotina utiliza as duas funções 
matemáticas — o seno (SIN) e o cosse- 
no (COS) — para calcular as coordena- 
das de cada pixel que compõe o circu- 
lo. Tais funções serão melhor explica- 
das em uma futura lição; no momento, 
porém, você pode experimentar com o 
tamanho do círculo, modificando os 
dois números 20 na linha 20. O número 
máximo que se pode ter é 22 (a tela não 
comporta um valor mais alto). Você po- 
de também modificar a posição do cir- 
culo. Seu centro está em 32,22; observe 
essas coordenadas na linha 20, Não se 
esqueça de fazer o círculo menor se vo- 
cê movê-lo para perto da borda da tela. 


Assim que você liga o computador, 
ele exibe a tela de texto. Nela você pode 
mostrar todos os caracteres do teclado, 
mais os caracteres gráficos da ROM, já 
utilizados antes. 

Se você quiser desenhar qualquer coi- 
sa mais sofisticada do que aquilo que es- 
ses simples gráficos permitem, deve em- 
pregar os gráficos de alta resolução da 
máquina. Estes são obtidos em uma te- 
la completamente diferente da tela de 
texto — pois, nos computadores com- 
patíveis com o TRS-Color, não é possi- 
vel colocar-se, ao mesmo tempo, texto 
e ralis de alta resolução na mesma 
tela. 


RETAS CRUZADAS 


Eis aqui um programa que desenha 
duas retas cruzadas na tela, utilizando 
a tela gráfica em modo 3: 











20 PMODE 3,1 

30 PCLS 

40 SCREEN 1,0 

50 LINE (0,191)-(255,0), PSET 
60 LINE (0,0)-(255,191),PSET 
soro 70 


O programa começa especificando a 
modalidade gráfica e a página (parte da 
memória do computador) em que você 
deseja colocar a informação gráfica. A 
linha 20 declara isso com PMODE 3,1. 
Essa informação diz à máquina para de- 
senhar em modalidade de gráficos 3 e 
para armazenar qualquer coisa que vo- 
cê desenhar na tela na página de memó- 
ria gráfica número 1. Se você quiser de- 
senhar apenas uma tela cheia de gráfi- 
cos será mais fácil especificar a página 1. 
A linha 30 limpa a tela de alta reso- 





lução. PCLS é o comando para alta re- 
solução, equivalente ao CLS. 

Para “ligar” a tela de alta resolução 
o programa utiliza o comando SCREEN 
1,0. O conjunto de cores é escolhido 
colocando-se O como o segundo no co- 
mando SCREEN: esse conjunto consiste 
de verde, amarelo, azul e vermelho. Se, 
ao invés disso, você tivesse colocado 1, 
o conjunto de cores seria branco, azul 
ciano, magenta e laranja. 

Esse programa desenha linhas em 
verde e vermelho, que são as cores pré- 
definidas (são as normalmente utiliza- 
das pelo computador, se você não espe- 
cificar nenhuma outra). Para utilizar 
qualquer outra combinação do conjun- 
to de cores você deverá utilizar o coman- 
do COLOR. Isso será explicado em de- 
talhes, futuramente. 

A primeira reta é desenhada pelo co- 
mando LINE na linha S0. Os números en- 
tre parênteses dizem ao computador em 
que pontos você quer que a linha comece 
etermine. A tela de alta resolução é divi- 
dida em 256 pixels por 192 — no sentido 
vertical, eles são numerados de 0 a 191, 
a partir do alto; no sentido horizontal, 
de0a 255, a partir da esquerda. Note que 
a convenção adotada no TRS-Color pa- 
raas coordenadas cartesianas éo oposto 
ao normal. 

Portanto, LINE (0,191)-(2: 
ça uma reta com a origem em ) 
19l e fimem X=255e Y=0. 
inalmente, PSET sozinho, no co- 
mando LINE, diz à máquina para dese- 
nhar a cor de maior número do conjunto 

















Ea, 
ii 


de cores — neste caso, o vermelho, 

A linha 60 desenha a próxima reta. 
Isto funciona exatamente do mesmo 
modo como na linha 50, mas os pontos 
iniciais e finais são definidos no- 
vamente. 

Para evitar que o computador retor- 
ne automaticamente para a tela de tex- 
to, uma vez que a tela de alta resolução 
tenha sido desenhada, estabelecemos um 
laço sem fim: é o que a linha 70 faz, com 
o comando GOTO 70. Se o computador 
ligasse novamente a tela de texto, não 
seria possivel ver o que foi desenhado 
na tela de alta resolução. 


[AURA So] 


E muito fácil desenhar círculos no 
TRS-Color, pois o seu BASIC possui 
um comando CIRCLE. 

Este programa desenhará três circu- 
los com tamanhos diferentes, cada um 
com uma cor diferente 


20 PMODE 3,1 
30 PCLS 

40 SCREEN 
50 CIRCLE 
60 CIRCLE 
70 CIRCLE 
80 GOTO 80 


1,0 
(70,95),10,2 
(118,95),20,3 
(184,95),30,4 





A modalidade gráfica é escolhida co- 
mo no programa anterior, assim como 
o conjunto de cores para os círculos. 

O comando CIRCLE nas linhas 50 a 
70 tem quatro elementos. O primeiro e 





O desenho do jipe torna-se fácil com o comando PAINT do TRS-Color. 














o segundo números definem as coorde- 
nadas do centro do círculo, o terceiro é 
o seu raio, em pixels, e o quarto é a cor. 
Assim, o círculo desenhado pela linha 
50 tem o seu centro em (70,95), um raio 
de 10 pixels e está colorido de amarelo 
(Cor 2). 

O circulo desenhado pela linha 60 é 
azul, com raio de 20 pixels, e com cen- 
tro em (118,95). O último círculo, dese- 
nhado pela linha 70, é vermelho, com 
raio de 30 pixels e com centro em 
(184,95). 

Finalmente, a linha 80 é um laço que 
impede que o programa pare e desligue 
a tela de alta resolução. 


DS AURA: 


Agora você possui os ingredientes pa- 
ra desenhar muitas coisas diferentes. Di- 
gite e rode o programa abaixo e você ve- 
rá o esboço da carroçaria de um jipe, 
ainda sem os detalhes internos mostra- 
dos na figura 3. 


20 PMODE 3,1 


30 PCLS 
40 SCREEN 1,0 
50 LINE (108,64)-(188,64), PSET 


60 LINE-(188,116),PSET 
70 LINE-(104,116),PSET 
BO LINE-(96,96), PSET 

90 LINE-(70,96), PSET 
110 LINE-(74,96), PSET 
120 LINE-(74,86),PSET 
130 LINE-(114,86),PSET 
140 LINE-(132,104), PSET 
150 LINE-(140,104),PSET 
160 LINE-(140,64),PSET 
170 LINE(76,96) -(76,108) , PSET 
180 LINE-(100,108),PSET 
320 GOTO 320 


Assim como antes, a modalidade es- 
colhida é a de número 3. A linha 50 co- 
meça traçando uma linha vermelha de 
(108,64) a(188,64). Para continuar o de- 
senho a partir do mesmo ponto, não se 
deve dizer ao computador por onde co- 
meçar — ele apenas prossegue de onde 
estiver no momento. As linhas 60 a 160, 
portanto, apenas definem os finais de li- 
nhas sucessivas. 

A linha 170, no entanto, desenha 
uma linha a partir de um novo ponto 
inicial; assim tanto o início como o fim 
devem ser definidos. 

Acrescente agora algumas linhas pa- 
ra definir o pára-brisa, as rodas e as 
calotas: 


200 
220 
230 
250 
270 
290 


LINE (140,88)-(188,88),PSET 
LINE (118,64)-(104,86), PSET 
CIRCLE(82,116),14,3 
CIRCLE(82,116),6,2 
CIRCLE(168,116),14,3 
CIRCLE(168,116),6,2 


A linha 200 desenha a janela, en- 
quanto o pára-brisa é determinado pela 
linha 220. O comando CIRCLE é utili- 
zado pelas linhas 230 e 270 para definir 
as rodas e pelas linhas 250 e 290 para 
desenhar as calotas. 


UA 


Agora que o desenho está feito, é fá- 
cil colorir o seu jipe: você nem precisa 
de uma pistola de pintura, porque a má- 
quina faz isso através do comando 
PAINT. 

O comando PAINT preenche com 
uma cor especifica qualquer forma que 
você tenha desenhado na tela. Ele tam- 
bém possui quatro elementos. Os dois 
primeiros, como você já deve ter adivi- 
nhado, marcam o local onde a pintura 
deve começar. O terceiro é o código da 
cor a ser utilizada. E o quarto é o códi- 
go de cor da borda, ou da linha onde 
a pintura deve acabar. 

Acrescente essas linhas e você verá, 
na prática, como fica o programa: 
190 PAINT(90,100),2,4 
210 PAINT(120,110),4,4 
240 PAINT(82,116),3,3 
260 PAINT(8B2,116),2,2 
280 PAINT(168,116),3,3 
300 PAINT(168,116),2,2 
310 PAINT(180,80),2,4 


Rode agora o programa: como num 
de mágica, o jipe se cobrirá de 





cores. 

Não é possível colocar ao final do 
programa todas as linhas com PAINT, 
por uma razão muito importante: 

A área que você quer colorir deve ser 
fechada completamente por uma série 
de retas da mesma cor (a cor da borda), 
ou pela borda da tela. Qualquer linha 
de cor diferente que estiver localizada no 
meio da figura geométrica a ser preen- 
chida será pintada por cima. 

As cores disponíveis no PMODE 3,1 
são: verde (1), amarelo (2), azul (3) e 
vermelho (4). Se você quiser pintar o ji- 
pe de modo diferente, tudo o que tem 
a fazer é modificar o número de cor da 
pintura nas linhas PAINT correspon- 
dentes. 

Você pode, se quiser, acrescentar ou- 
tras partes ao jipe, equipando-o com no- 
vos elementos, como uma roda de dire- 
ção, por exemplo. Para isso, empregue 
os comandos LINE e CIRCLE. 


DR o 


Assim que você ligar o computador, 
ele exibirá a tela de texto, na qual po- 
dem ser mostrados todos os caracteres 


do teclado, mais os caracteres do gráfi- 
co da ROM. Estes últimos já foram uti- 
lizados em programas anteriores. 

Para desenhar figuras mais sofistica- 
das do que aquelas que vimos até ago- 
ra, é necessário utilizar os gráficos de al- 
ta resolução da máquina. Estes são ob- 
tidos em uma tela completamente dife- 
rente da tela de texto, já que os compu- 
tadores da linha MSX não permitem que 
sejam colocados, ao mesmo tempo, tex- 
to e gráficos de alta resolução numa úni- 
ca tela, 


ALR AA o 


Eis aqui um programa que desenha 
duas retas cruzadas no vídeo, utilizan- 
do a tela gráfica em modo 2: 


10 SCREEN 2 

20 LINE(0,191)-(255,0),15 
30 LINE(0,0)-(255,191),1 
40 Gorodo 


O programa começa especificando a 
modalidade gráfica e a página (parte da 
memória do computador) na qual você 
deseja colocar a informação gráfica. A 
linha 20 declara isso com SCREEN 2, 
dizendo à máquina para desenhar em 
modalidade de gráficos 2. 

A primeira reta é desenhada pelo co- 
mando LINE, na linha 20. Os números 
entre os parênteses dizem ao computa- 
dor onde a linha deve começar e termi- 
nar. A tela de alta resolução é dividida 
em 256 pixels por 192: no sentido verti- 
cal eles são numerados de 0 a 191, a par- 
tir do alto; no sentido horizontal, de O 
a 255, a partir da esquerda. 

Portanto, LINE (0,191)-(255,0) tra- 
ça uma reta com origem em X=0 e 
Y=19 e fimem X=255e Y=0. 

O número no final do comando LI- 
NE diz à máquina que cor ela deve em- 
pregar (neste caso, existem dezesseis co- 
res, numeradas de O a 15). 

A linha 30 desenha a próxima reta. 
Isso funciona do mesmo modo que na 
linha 20, mas os pontos iniciais e finais 
são definidos novamente. 

Para evitar que o micro retorne à te- 
la de texto uma vez que a tela de alta re- 
solução tenha sido desenhada, estabele- 
cemos um laço sem fim: é o que a linha 
40 faz, com GOTO 40. Se o computa- 
dor religasse a tela de texto, você não 
seria capaz de ver o que foi desenhado 
na tela de alta resolução. 


CÍRCULOS NO MSX 


Assim como no TRS-Color, é fácil 
desenhar círculos no MSX, pois o seu 














BASIC conta com um comando chama- 
do CIRCLE. Este programa desenha 
três círculos com tamanhos diferentes, 
cada um de uma cor: 





10 CoLOR 4,15 

20 SCREENZ 

30 CIRCLE(70,95),10,2 
CIRCLE(118,95),20,4 
50 CIRCLE(184,95),30,8 
60 Goto 60 





Qual a diferença entre gráficos de 
baixa, média e alta resolução? 

O grau de resolução gráfica a ser ob- 
tido em um computador depende do 
número de pixels que se pode endere- 
gar individualmente na tela. O pixel 
(que vem da abreviação, em inglês, de 
picture element) é o pontinho gráfico 
que um comando BASIC acerde ou 
apaga. Naturalmente, como a tela tem 
um tamanho limitado, a resolução é 
proporcional às dimensões físicas de 
cada pixel. 

Do ponto de vista técnico, a alta re- 
solução gráfica é obtida quando há 
mais de 100 000 pixels por tela (por 
exemplo, o micro de tipo IBM-PC tem 
600 pixels na horizontal por 200 na 
vertical). A resolução média ficaria com 
algo entre 30 000 e 100 000 pixels; a 
essa faixa pertencem o Sinclair Spec- 
tum, o TRS-Color, o Apple Il e o 
TK-2000. Já a resolução baixa tem de 
2 500 a 10 000 pixels por tela (por 
exemplo, o TRS-BO0 e o ZX-81). Entre- 
tanto, muitos fabricantes (como os da 
linha Apple Il) chamam de alta resolu- 
ção os gráficos tecnicamente definidos 
como de média resolução. 


O TRS-80 pode ser usado para de- 
senhar em BASIC? 

Sim, embora os seus gráficos apa- 
reçam apenas em baixa resolução (128 
por 48 pixels, em preto e branco). O co- 
mando a ser utilizado para “acender” 
um pixel na tela é o SET. Esse coman- 
do deve ser seguido de dois parâmetros 
ou expressões numéricas: o primeiro 
(XJ indica a posição horizontal do pixel 
e o segundo (Y), a sua posição vertical. 
Ele equivale, portanto, ao comando 
PLOT dos micros da linha Sinclair. Exis- 
tem ainda os comandos gráficos RESET 
(para “apagar” o pixel aceso) e POINT 


(uma função que informa se um deter- 
“a minado pixel está aceso ou apagado) 








A modalidade gráfica é escolhida co- 
mo no programa anterior. Só que a cor 
de fundo da tela é definida antes, com 
o comando COLOR. O primeiro núme- 
ro é a cor do caractere (cor de frente), 
e o segundo, a cor de fundo. 

O comando CIRCLE nas linhas 30 a 
50 tem quatro elementos. O primeiro e 
o segundo números definem as coorde- 
nadas do centro do círculo, o terceiro é 
o seu raio, em pixels, e o quarto é a cor. 
Assim, O círculo desenhado pela linha 
30 tem o seu centro em (70,95), um raio 
de 10 pixels e é colorido de amarelo 
(cor 2). 

O círculo desenhado pela linha 40 é 
azul, com um raio de 20 pixels, e centro 
em (118,95). O último círculo, desenha- 
do pela linha 50, é vermelho, com raio 
de 30 pixels e centro em (184,95). A li- 
nha 60 é um laço que impede que o pro- 
grama pare e desligue a tela de alta re- 
solução. 


SR 


Como você já deve ter percebido, al- 
gumas seções de nosso texto repetem se- 
ções anteriores. Isso se deve à similari- 
dade dos procedimentos nos diversos 
micros. Agora, digite e rode o progra- 
ma abaixo. 


10 COLOR 4,15 

20 SCREENZ 

30 LINE(108,64)-(188,64),10 
40 LINE -(188,88),10:LINE-(188, 
116) » 

50 LINE -(104,116) 

60 LINE-(96,96) 

70 LINE-(70,96) 

80 LINE-(74,96) 

90 LINE-(74,86) 

100 LINE-(114,86) 

110 LINE-(132,104) 

120 LINE-(140,104) 

130 LINE-(140,64),10 

140 LINE (76,96)-(76,108) 
150 LINE-(100,108) 

160 LINE(140,88)-(188,88),10 
290 Goro 290 


Isso mesmo, ele recria o jipe, agora 
em outra máquina. Assim como antes, 
a modalidade escolhida éa 2. A linha 30 
desenha uma linha vermelha de (108,64) 
a (188,64). Como da vez anterior, você 
não precisa dizer ao computador onde 
começar a desenhar: ele apenas prosse- 
gue de onde estiver no momento, As li- 
nhas 40 a 160, portanto, apenas definem 
os finais de linhas sucessivas. 

A linha 150, no entanto, desenha 
uma linha a partir de um novo ponto 
inicial; assim, tanto o início como o fim 
devem ser definidos. 

Acrescente agora algumas linhas pa- 
ra o pára-brisa, as rodas e as calotas: 





180 
200 
210 
230 
250 
270 


LINE (140,89)-(188,89) 
LINE(118,64)- (104,86) 
CIRCLE (82,116) ,14,3 
CIRCLE(82,116),6,2 
CIRCLE (168,116),14,3 
CIRCLE(168,116),6,2 


As linhas 170 e 180 desenham a ja- 
nela, e a linha 200, o pára-brisa. O co- 
mando CIRCLE é utilizado pelas linhas 
210 e 250 para definir as rodas, e pelas 
linhas 230 e 270 para desenhar as 
calotas. 


[ai UR da 


Para pintar o seu jipe, você não pre- 
cisa de uma pistola de pintura: a máqui- 
na faz isso para você por meio do co- 
mando PAINT. 

O comando PAINT preenche com 
uma cor específica qualquer forma que 
você tenha desenhado na tela. Ele tam- 
bém possui quatro elementos. Os dois 
primeiros, como você já deve ter adivi- 
nhado, marcam o local onde a pintura 
deve começar. O terceiro é o código da 
cor a ser empregada. O quarto é o códi- 
go de cor da borda, ou da linha, onde 
a pintura deve acabar. 

Acrescente essas linhas ao programa 
e você verá, na prática, como fica o 
programa: 


170 
190 
220 
240 
260 
280 


Rode agora o programa e você verá 
cada seção do jipe sendo preenchida 
com belas cores. 

Não é possível colocar todas as linhas 
com PAINT no final do programa, por 
uma razão muito importante: 

A área que você pretende colorir de- 
ve ser fechada completamente por uma 
série de retas da mesma cor (a cor da 
borda), ou pela borda da tela. 

Qualquer linha de cor diferente que 
estiver localizada no meio da figura geo- 
métrica a ser preenchida deve ser pinta- 
da por cima. 

As cores disponíveis no PMODE 3,1 
são: verde (1), amarelo (2), azul (3) e 
vermelho (4). Mas você pode querer pin- 
tar o jipe de modo diferente; nesse ca- 
so, tudo o que tem a fazer é modificar 
o número de cor da pintura nas linhas 
PAINT correspondentes. 

Outras partes, contudo, podem ser 
incorporadas ao nosso jipe (uma roda 
de direção, por exemplo, ou outro equi- 
pamento qualquer). Para isso, utilize os 
comandos LINE e CIRCLE. 


PAINT (142,66),10,10 
PAINT(77,99),4,4 
PAINT(82,116),3,3 
PAINT(82,116),2,2 
PAINT(168,116),3,3 
PAINT(168,116),2,2 


ó 
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BOMBARDEIOS E 


EXPLOSÕES 





COMO CRIAR FLASHES NA TELA 


E UM PROGRAMA SIMPLES DE 
BOMBARDEAMENTO AÉREO 
m ENRIQUEÇA A A AÇÃO COM 


CHAMAS E EXPLOSÕES 








Faça de seus jogos de ação um 
eletrizante passatempo, aprendendo 
a obter efeitos gráficos de explosões 
& incêndios na tela do micro. 


É relativamente fácil tornar seus pro- 
gramas de jogos mais espetaculares e 
emocionantes: para isso, basta acresten- 
tar algumas rotinas com efeitos gráficos 
especiais. E elas não precisam ser mui- 
to complexas para dar a esses jogos um 
dinamismo bem diferente 

Como você verá nesta lição, existem 
muitas maneiras de produzir efeitos vi- 
suais em BASIC. É preciso apenas sa- 








ber usar o tipo certo de efeito para o jo- 
go que está sendo programado 

Os efeitos gráficos para chamas e ex- 
plosões explicados aqui são adequados 
a todos os tipos de jogos que envolvem 
ão de objetos como constru: 
ções, carros, aviões, tanques, navios, 
etc. Alguns deles ficarão ótimos também 
em jogos espaciais 

Entretanto, como os efeitos de cha- 
mas e explosões utilizam o conceito de 
blocos gráficos, o tamanho máximo do 
alvo sobre o qual serão colocados é res 
tringido pelas dimensões desses efeitos. 
Isso significa que você não pode 














adicioná-los a um programa qualquer; 
pelo contrário, essa inclusão deve ser 
cuidadosamente planejada. 

Por outro lado, muitos computado- 
res têm comandos embutidos no BASIC 
que permitem a obtenção de flashes (in- 
o rápida de cores no vídeo), que 
são suficientes para muitos tipos de jo- 
gos, como os de guerra espacial, e que 
têm a vantagem de não exigir adapta- 
ções para uso em um jogo determinado. 








Vamos mostrar aqui como criar, nos 
micros compatíveis com o Sinclair Spec- 
trum (como o TK-90X), o efeito visual 











de um incêndio provocado pela explo- 
são de uma bomba; depois de ir rom- 
per fortemente, o fogo se extingue gra- 
dualmente, desaparecendo da tela à me- 
dida que o prédio desaba. Isso será ex- 
plicado mais adiante. 

Mas, primeiro, precisamos de um 
avião e de uma bomba. Portanto, digi- 
te o programa abaixo: 

10 FOR N=USR "p” TO USR "q"+7 
20 READ a 

30 POKE n,a 

40 NEXT n 

50 DATA 32,16,136,154,155,8, 
16,32 

60 DATA 0,16,16,120,28,28,0,0 

Usamos aqui a técnica convencional 
de blocos gráficos definidos pelo usuá- 
rio (UDG), disponível no Spectrum. As- 
sim, criamos imagens tanto para o avião 
quanto para a bomba, armazenadas em 
uma área especial, definida pelos ende- 
reços devolvidos pelas expressões USR 
**p” e USR “'q” na linha 10. Os códi- 
gos correspondentes estão nas declara- 
ções DATA das linhas 50 e 60, e são co- 
locadas na memória com o POKE da li- 
nha 30, Ao rodar o programa, nada 
acontecerá de início. Para verificar se os 
códigos gráficos em DATA foram digi- 
tados corretamente, digite a linha de co- 
mando abaixo (sem precedê-la com um 
número de linha). 


PRINT AT 10,15;CHRS$ 
CHR$ 160 

— que mostrará na tela os dois blocos 
gráficos definidos. 

Em seguida, você precisará de um 
prédio ou casa para bombardear. Não 
há necessidade de um novo programa 
para isto. Apenas modifique as linhas 
10 e 50 do programa anterior. 


10 FOR N=USR TO USR "r"+7 
20 READ a 
30 POKE n,a 
40 NEXT n 
50 DATA 255,153,255,153,255, 
153,255,255 

Execute o programa de novo e teste- 
o, digitando esta linha (novamente, sem 
colocar número de linha antes): 


PRINT AT 20,15; CHR$S 161 


Tendo ficado satisfeito com o resul- 
tado visível na tela, digite NEW para 
apagar o programa da memória. Os blo- 
cos gráficos definidos antes ficarão ar- 
mazenados na memória RAM do com- 
putador, a menos que você o desligue. 


[Ro Lam ROB: a(o) 


Entre agora o programa do bombar- 
deio por meio das linhãs seguintes: 


EsO7" 


"pr 


10 BORDER 0: PAPER 5: INK O: 
cLs 

20 LET aS=" As 

200 PRINT PAPER 4;AT 20,0;aS; 

as;aS; as 

210 PRINT INK 1;AT 19,12;CHR$ 


161; CHR$ 161;CHR$ 161 


O que estas linhas fazem, como você 
verá ao executá-las com o comando 
RUN, é apenas desenhar uma faixa ver- 
de, com dezesseis pixels de altura, na 
parte de baixo da tela; sobre ela ergue- 
se um armazém ou coisa parecida. A 
forma como isso é feito ilustra bem o 
uso de variáveis alfanuméricas no tra- 
balho com gráficos. 

Como você precisa de 64 bloquinhos 
coloridos de verde para fazer o terreno 
gramado, a linha 20 coloca em a$ uma 
seqiiência de dezesseis espaços em bran- 
co. Em seguida, a linha 200 a imprime 
na tela quatro vezes, começando na li- 
nha 20 e prosseguindo na linha 21. Isso 
economiza a digitação de 64 a$! 

A construção é colocada na tela por 
meio de um quatro PRINT do caracte- 
re gráfico de código 161 (que é o asso- 
ciado à tecla r, no computador, confor- 
me a definição no programa anterior). 

Para fazer o avião voar, só é preciso 
incluir no programa as seguntes linhas: 


215 PAUSE 100 
220 LET ay=6: LET by=ay 
230 FOR x=0 TO 30 
240 PRINT AT ay,x;” ";CHR$ 159 
250 LET bx=x 
260 IF by<19 THEN PRINT AT by 
+1,bx+1;CHRS 160;AT by,bx;” * 
270 LET by=by+l: LET bx-bx+1 
280 IF x>29 THEN PRINT AT ay, 
a+1;" " 
290 NEXT x 

Não existe nada de incomum nessa 
seção do programa: apenas as técnicas 
convencionais de movimentação de um 
bloco gráfico na tela, que temos usado 
em praticamente todos os programas de 
jogos para o Spectrum. Observe, entre- 
tanto, que as linhas 240, 260 e 280 são 
necessárias para apagar as últimas po- 
sições do avião e da bomba, à medida 
que estes são deslocados pela tela. 









Vamos agora à parte mais importante 
do nosso exercício de programação: a 
explosão. É mais fácil vê-la na tela do 
que tentar descrevê-la. 

Portanto, antes de entrar o restante 
do programa, digite as linhas abaixo: 


1000 FOR n=88 TO 80 STEP -1 
1010 PRINT AT 10,15;CHRS 150 
1020 POKE 23675,n 

1030 PAUSE 50 








Eu 


1040 NEXT n 
1050 STOP 


Mas, espere: não digite o comando 
RUN, ainda. Você poderia destruir a 
parte do programa que já foi digitada. 
Ao invés disso, digite RUN 1000, para 
começar a executar só essa parte do pro- 
grama. Você verá então uma letra G 
aparecer na tela e depois esvanecer-se 
gradualmente, até ser substituída pela le- 
tra F. Isso acontece porque o laço 
FOR EXT, que vai da linha 1000 à 
1040, diminui de um em um o valor ar- 
mazenado na locação de memória 
23675, que é o ponto inicial para o seu 
bloco gráfico UDG. Assim, a letra exi- 
bida na tela retrocede gradualmente no 
alfabeto. 

O programa de explosão usa um tru- 
que semelhante. Para fins de segurança 
de seu programa, digite: 





POKE 23675,88 


que restaura o valor original do núme- 
ro armazenado na locação de memória 
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indicada. Em seguida, apague todas as 
linhas de 1000 a 1050 e digite o restante 
do programa de bombardeio: 


90 POKE 23675,88 

100 FOR n=0 TO 31: READ a: 
POKE USR "a"+n,a: NEXT n 

300 FOR e=88 TO 80 STEP -1 

310 POKE 23675,e 

320 PRINT INK 2;AT 19,12;CHR$ 
145 ;CHRS 147;CHR$ 145: PAUSE 
6 


330 PRINT INK 2;AT 19,12;CHRS 
147 ;CHRS 145;CHRS 147: PAUSE 
6 

340 NEXT e 


400 POKE 23675,88 

500 GOTO 210 

8000 DATA 0,0,0,0,0,0,0,0,2,128 
,25,126,126,255,255,255 

9000 DATA 0.,0,0,0,0,0,0,0,4,33, 
144,66,231,255,255,255 


As linhas 100, 8000 e 9000 definem 
os UDG que você precisa para explosão. 
A linha 100 lê os dados contidos nas li- 
nhas 8000 e 9000, com os códigos nu- 


méricos das partes dos gráficos e os co- 
loca na memória através do POKE. As 
linhas 300 e 340 usam a técnica descrita 
anteriormente para retirar uma imagem 
e substituí-la por outra. 

Existe, entretanto, uma diferença 
muito importante. Os UDG que criam 
a explosão são baseados nos caracteres 
gráficos Be D — respectivamente, 
CHRS 145 e 147. À medida que eles fo- 
rem desaparecendo da tela, você não vai 
querer que eles sejam substituídos por 
outras letras do alfabeto. Assim, os pri- 
meiros oitos elementos de cada declara- 
ção DATA, representando os caracteres 
Ae C — CHRS 144 e 146, respectiva- 
mente — são todos zeros. 

Deste modo, ao invés de obter A e C 
substituindo B e D na tela, você obtém 
espaços em branco. Se você quiser ver 
como isto funciona em “'câmara lenta”, 
inclua a linha abaixo (não esqueça de 
retirá-la, depois): 

335 PAUSE 100 

A linha 400 é necessária, evidente- 

mente, para restaurar o valor original 


da memória 23675, que era 88, antes 
que o programa se repita de novo. 








Os computadores compatíveis com 
essa linha têm excelentes recursos para 
a obtenção de efeitos visuais dramáticos, 
usando programas bastante curtos. Ten- 
te digitar e executar o programa abai- 
xo: 


7980 PMODE 3,1 

7990 PCLS 

8000 FOR F=1 TO 1000 
8010 SCREEN 1,0 
8020 SCREEN 1,1 
8030 NEXT F 

8040 CLS 


Observe que o programa coloca fai- 
xas coloridas que migram através da te- 
la; esse efeito é causado pela alternân- 
cia super-rápida dos diferentes conjun- 
tos de cores no computador. Ele pode 
ser usado, entre outras coisas, para as- 
similar o fim de uma fase do jogo, co- 
mo uma blindagem que foi penetrada. 

O modo gráfico é definido pela linha 
7980, e a seguir a tela gráfica é limpa pe- 
la linha 7990. A linha 8010 liga um con- 
junto de cores, enquanto a linha 8020 
religa o conjunto anterior. O laço 
FOR... NEXT nas linhas 8000 e 8030 al- 
terna os conjuntos de cores em 1000 
vezes. 

A alternância liga e religa os conjun- 
tos de cores muito rapidamente — tão 








rapidamente, na verdade, que o apare- 
lho de TV nunca tem tempo de mudar 
as cores na tela completamente antes de 
entrar em ação o outro conjunto. Co- 
mo conseqiiência, apenas uma faixa es- 
treita da tela é mudada para cada cor. 
Se você pretende utilizar esse progra- 
ma na forma de uma sub-rotina dentro 
de outro jogo (no qual funcionará ape- 
nas com um dos comandos PMODE 
descritos na página 144) ou com o pro- 
grama de batalha espacial apresentado 
a seguir, terá que fazer algumas altera- 
ções. Primeiro, apague as linhas 7980 e 
7990; em seguida, adicione a linha: 


8500 RETURN 
Veja agora o programa a seguir: 


10 PMODE 1,1 
20 DIM A(3),B(3),M(3) 


200 FOR K=1536 TO 2016 STEP 32 
210 READ A,B: POKE K,A:POKE K+1 
.B 

220 NEXT 

230 GET(0,0)-(15,15),A,G 

240 GET(0,16)-(15,31),M,G 

250 PCLS 

260 MX=120:MY=191:PX=120:Py=20 
270 PUT (PX,PY)-(PX+15,Py+15),A 
+ PSET 


280 SCREEN 1,0 

290 PUT (MX,MY)-(MX+15,MY+15),B 
+ PSET 

300 MY=My-4 

310 IF MY<36 THEN GOSUB 8000:Go 
TO 260 

320 PUT (MX,MY)-(MX+15,MY+15),M 
+ PSET 

330 goto 290 

9000 DATA 252,63,3,192,15,240,6 
1,124,58,172,245,95,213,87,213, 
87 

9010 DATA 0,128,0,128,0,128,2,1 
60,10,168,0,192,3,240,15,60 


O programa mostra uma nave extra- 
terrestre na iminência de ser atingida por 
um míssil, No momento que este alcan- 
ça o alvo, entra em ação a sub-rotina de- 
finida anteriormente, que move faixas 
coloridas pela tela. 

Quando usado com a sub-rotina, 
ele faz faixas com qualquer PMODE 
que se queira, de modo que pode ser adi- 
cionado ao final de um programa, sem 
que seja necessário alterar as linhas 8000 
a 8040. 

Eis aqui uma adaptação do progra- 
ma para fazer faixas que resulta em um 
efeito visual mais elaborado, embora os 
gráficos na tela não permaneçam into- 
cados como anteriormente. Você pode 
digitá-lo e executá-lo do jeito que está, 
ou incorporá-lo a um outro programa 
— como o da animação da nave espa- 
cial — na forma de sub-rotina. Neste ca- 
so, você precisará alterar o programa, 
apagando a linha 7990 e adicionando ao 














final uma linha com comando RE- 
TURN como foi feito anteriormente. 


7990 PMODE 3,1 
8000 FOR F=1 TO 3 
8010 FOR K=0 TO 1 
8020 SCREEN 1,K 
8030 FOR J=1 TO 4 
8040 PCLS J 

8050 NEXT J 

8060 NEXT K 

8070 NEXT F 

8080 CLS 

Sob a forma de sub-rotina, ele funcio- 
nará em qualquer um dos modos gráfi- 
cos com conjuntos de duas cores (PMODE 
0,2 4) e de quatro cores (PMODE 1 e 3). 
Além de mudar os conjuntos de cores, a ro- 
tina também limpa a tela. 

As linhas 8030 a 8050 são um laço FOR... 
NEXT que colore a tela com as cores dis- 
poníveis no conjunto ativo. 

Uma última variação do programa: 
7990 PMODE 3,1 
8000 FOR F=1 TO 5 
8010 SCREEN 1,0 
8020 FOR K=1 TO 200: NEXT K 
8030 SCREEN 1,1 
8040 FOR K=1 TO 
8050 NEXT F 
8060 cLS 


Você pode escolher entre digitá-lo as- 
sim como está (como um programa au- 
tônomo) ou na forma de sub-rotina (di- 
gitando a linha 7990 e adicionando um 
comando RETURN ao seu final). 

A tela piscará rapidamente, pois as 
linhas 8020 e 8040 inserem pequenos re- 
tardos de tempo, dando oportunidade 
suficiente para a mudança de cor entre 
um conjunto e outro. 


200: NEXT K 





PULA 





Podemos obter efeitos visuais ainda 
melhores através da programação de 
gráficos animados. Eis aqui uma idéia 
para fazer a animação gráfica das cha- 
mas de um incêndio, que você poderia, 
por exemplo, superpor a um alvo atin- 
gido por uma bomba, O programa foi 
escrito para o PMODE 1, e não pode ser 
usado, do jeito que está, com jogos em 
outros PMODE. Digite-o e execute-o: 


10 PMODE 1,1 

20 DIM B(3),E1(3),E2(3) 
30 FOR K=1536 TO 2016 STEP 32 
40 READ A,B:POKE K,A:POKE K+1,B 
50 NEXT 

60 GET(0,0)-(15,15),E1,G 

70 GET(0,16)-(15,31),E2,6 

80 SCREEN 1,0 

250 PCLS:HX=124:HY=146 

8000 FOR N=0 TO 15 

8010 PUT (HX,HY+N)-(HX+15,HY+15 
),E1,PSET 

8020 FOR K=1 TO 100:NEXT 





8030 PUT (HX,HY+N)-(HX+15,HY+15 
),EZ, PSET 

8040 FOR K=1 TO 100:NEXT 

8050 PUT (HX,HY+N)-(HX+15,HY+15 
),B, PSET 

8060 NEXT 

9000 DATA 0,12,192,0,3,195,63,2 
52,63,252,255,255,255,255,255,2 
55 


9010 DATA 0,48,12,3,195,0,48,12 
+252,63,255,255,255,255,255,255 


Dois conjuntos de chamas são colo- 
cados na tela pelo comando PUT. 

Os dados para os conjuntos de cha- 
mas estão nas declarações DATA das li- 
nhas 9000 e 9010. Eles são colocados 
com comandos POKE na tela, com as 
linhas 30 e 50. O programa está escrito 
em uma modalidade gráfica de quatro 
cores. As linhas 60 e 70 capturam, atra- 
vés do comando GET, as formas gráfi- 
cas na tela e as armazenam nos conjun- 
tos El e E2, dimensionados na linha 20. 

As linhas 8000 e 8060 animam as cha- 
mas. Quando o programa passa pelo la- 
ço FOR...NEXT, os conjuntos El e E2 
surgem na tela, e apagam quando se 
coloca sobre eles o conjunto de espaços 




























de 


em branco, B, com PUT. O topo das cha- 
mas é abaixado um pouco de cada vez, 
pelo+N nas linhas com comando PUT. 

Você podeusar esse programa como sub- 
rotina do programa abaixo, que simula um 
bombardeio, mas não se esqueça de alte- 
rar a linha 20 para como ela aparece no pro- 
grama: edite-a com o comando EDIT ou 
digite-a novamente. Apague a linha 80, di- 
gitando o número 80, seguido de 
<ENTER>. 


20 DIM A(3),B(3),H(3),E1(3),EZ( 
3) 


200 FOR K=1536 TO 2016 STEP 32 
210 READ A,B:POKE K,A:POKE K+1, 
B 


220 NEXT 

230 GET(0,0)-(15,15),A,G 

240 GET(0,16)-(15,31),H,G 

250 PCLS:LINE(0,163)-(255,191), 
PSET,BF 

260 HX=124:HY=146:PX=0:PY=40:B= 
o 



















































270 PUT (HX,HY)-(HX+15,HY+15),H 
+PSET 

280 SCREEN 1,0 

290 PUT (PX,PY)-(PX+15,PY+15),B 
+PSET 

300 PX=Px+4 

310 PUT(PX,PY)-(PX+15,PY+15),A, 
PSET 

320 IF PX=20 THEN B=1:BX=PX+8:B 
Y=PY+8 

330 IF B=1 THEN PRESET(BX,BY):P 
RESET (BX+2,BY) :BX=DX+2:BY=BY+2: 
PSET(BX,BY,4): PSET(BX+2,BY,4) 
340 IF BY=-148 THEN GOSUB 8000:B 
Y=0:GoTO 250 

350 Goro 290 

8070 RETURN 

9020 DATA 0,0,2,0,130,128,162,1 
60,170,170,162,160,130,128,2,0 
9030 DATA 0,3,12,51,60,243,255, 
255,255,255,85,85,86,149,86,149 


Eis aqui duas versões que permitirão 
usar a sub-rotina em jogos programa- 
dos em outras modalidades gráficas 
(PMODE). A primeira é um programa 
que deve ser usado com as PMODE 3 
e 4; mude apenas o número apropriado. 


10 PMODE 3,1 

20 DIM B(6),E1(6),E2Z(6) 

30 FOR K=1536 TO 2496 STEP 64 
40 READ A,B:POKE K,A:POKE K+1,B 
45 POKE K+32,A:POKE K+33,B 

50 NEXT 

60 GET (0,0)-(15,15),E1,6 

70 GET (0,16)-(15,51),E2,G 

80 SCREEN 1,0 

250 PCLS:HX-124:HY=146 

8000 FOR N=0 TO 15 

8010 PUT(HX,HY+N)-(HX+15,HY+15) 
+ El, PSET 

8020 FOR K=1 TO 100: NEXT 

8030 PUT (HX,HY+N)-(HX+15, HY+15 
), EZ, PSET 

8040 FOR K=1 TO 100:NEXT 

8050 PUT(HX,HY+N)- (HX+15,HY+15) 
+B, PSET 

8060 NEXT 

9000 DATA 0,12,192,0,3,195,63,2 
52,63,252,255,255,255,255,255,2 
55 


9010 DATA 0,48,12,3,195,0,48,12 
+252,63,255,255,255,255,255,255 


Em segundo lugar, temos um progra- 
ma adequado para uso com PMODE 2: 


10 PMODE 2,1 

20 DIM B(6),E1(6),E2Z(6) 

30 FOR K=1536 TO 2496 STEP 32 
40 READ A: POKE K,A: POKE K+16, 


50 NEXT 

60 GET(0,0)-(15,15),E1,G 

70 GET(0,16)-(15,31),E2,6 

80 SCREEN 1,0 

250 PCLS:HX=124:HY=146 

8000 FOR N=0 TO 15 

8010 PUT(HX,HY+N)-(HX+15,HY+15) 
+ El, PSET 

8020 FOR K=1 TO 100:NEXT 

8030 PUT (HX,HY+N)-(HX+15,HY+15 








) ,E2Z, PSET 

8040 FOR K=1 TO 100: NEXT 

8050 PUT(HX,HY+N)-(HX+15,HY+15) 
+B, PSET 

8060 NEXT 

9000 DATA 2,128,25,126,126,255, 
255,255 

9010 DATA 4,33,144,66,231,255,2 
55,255 

9020 DATA 0,12,192,0,3,195,63,2 
52,63,252,255,255,255,255,255,2 
E 


Os computadores compatíveis com a 
linha MSX têm excelentes recursos (tais 
como os sprites), para se conseguir efei- 
tos visuais dramáticos, usando-se pro- 
gramas bastante curtos, Tente digitar e 
executar o programa abaixo: 


7990 SCREEN 0:KEY OFF 
8000 FOR F=1 TO 300 
8010 COLOR 10,10,10 
8020 COLOR 4,4,4 
8030 NEXT F 

8040 COLOR 15,4,4 


O modo de texto da tela é definido 
pela linha 7990 (SCREEN 0). A linha 
8010 estabelece uma cor de fundo (10) 
para a tela, com a mesma cor de mol- 
dura e de frente (por isso todos os nú- 
meros são iguais); a linha 8020 especifi- 
ca um segundo conjunto de cores para 
a tela. O laço FOR,..NEXT nas linhas 
8000 e 8030 alterna os conjuntos de co- 
res trezentas vezes. A linha 8040 volta 
tudo à situação original de cor da tela, 
antes de interromper o programa (se vo- 
cê interrompê-lo usando as teclas 
<CTRL> <STOP>, antes de termi- 
nar o laço de repetição, terá que digitar 
pelo teclado, ou com a tecla FI, o co- 
mando existente na linha 8040). 

Como a alternância das cores é mui- 
to rápida, apenas uma faixa estreita da 
tela é mudada para cada cor, Esse efei- 
to só pode ser conseguido, no MSX, 
com a tela de texto. Podemos introduzi- 
lo como fase final de um programa de 
animação gráfica. Acrescente as seguin- 
tes linhas ao programa: 

10 SCREEN 2,2 

200 FOR K=1 TO 24 

210 READ A:READ B 

220 AS=AS+CHRS (A) :BS=BS+CHRS (B) 
230 NEXT 
240 SPRITES(2)=AS:SPRITES(1)-BS 
250 MX=120: 91 

260 PX-120:PY=20 

270 PUT SPRITE 2, (PX,PY) 
280 PUT SPRITE 1, (MX,MY) 
290 PUT SPRITE 1, (MX,MY) 
300 My=-MY-4 

310 IF MY<36 THEN GOTO 7990 
320 PUT SPRITE 1, (MX,MY) 
330 coro 290 























PROGRAMACÃO DE JOGOS 6 


ST = 





8050 RUN 
9000 DATA 252,0,3,0,15,0,61,2,5 
8,10,24,5,0,213,3,213,15 
9010 DATA 0,0,0,0,0,0,0,0,0,0,0 
+0,0,0,0,0 
9020 DATA 63,128,192,128,240,12 
8,124,160,172,168,95,192,87,240 
187,60 

Os dois objetos a serem movimenta- 
dos na tela (um míssil e uma nave) são 
definidos pelos códigos gráficos das li- 
nhas 9000 a 9020, montados nos sprites 
1e2. As linhas 270 e 290 colocam esses 
sprites na tela, animando o sprite 1 (o 
míssil) através do ciclo repetido entre 
290 e 330. 

Quando o míssil atinge a nave (linha 
310), o programa de efeito visual de fai- 
xas começando em 7990 é acionado. A 


linha 8050 manda executar o programa 30 


principal desde o começo, em virtude da 
necessidade de redefinição da tela grá- 
fica na linha 10. 

Em seguida, temos uma adaptação 
do programa para fazer faixas. Você po- 
de digitá-lo e executá-lo como está, ou 
adicioná-lo a outro programa, como o 
da animação da nave espacial. 





7990 SCREEN 0:KEY OFF 
8000 FOR F=1 TO 15 
8005 FOR K=1 TO 15 
8010 COLOR F,K,K 
8020 COLOR K,F,F 
8025 NEXT K 
8030 NEXT F 
8040 COLOR 15,4,4 
8050 RUN 
As linhas 8000 a 8030 formam dois 


laços FOR... NEXT que colorem a tela 
com cores disponíveis na tela do texto 
MSX. A última variação do programa é: 


7990 SCREEN 0:KEY OFF 

8000 FOR F=1 TO 5 

8010 COLOR 4,10,10 

8015 FOR K=1 TO 150:NEXT K 
8020 COLOR 10,4,4 

8025 FOR K=1: TO 150:NEXT K 
8030 NEXT F 

8040 COLOR 15,4,4 

8050 RUN 


A tela pisca rapidamente, em cores 
porque as linhas 8015 e 8025 inserem pe- 


quenos retardos de tempo, dando opor- 
tunidade para o vídeo mudar de cor en- 
tre um conjunto e outro. 


Efeitos visuais ainda melhores podem 
ser obtidos através da programação de 
sprites nos gráficos animados. Eis aqui 
uma idéia para fazer a animação gráfi- 
ca de um incêndio. 

O programa foi escrito para a tela 
gráfica SCREEN 2, Esse comando tam- 
bém é usado para definir o tamanho do 
sprite. Digite o comando NEW e entre 
as seguintes linhas: 

10 SCREEN 2,2 

FOR K=1 TO 32 

40 READ A:READ B 

45 AS=AS+CHRS (A) :B$=BS$+CHRS (B) 
50 NEXT 

60 SPRITES(2)=AS 

70 SPRITES(1)-=B$ 

75 SPRITES(0)=STRINGS (32,255) 
250 HX=-124:HY=146 

8000 PUT SPRITE O, (HX,HY+16),12 
8005 FOR N=0 TO 15 

8010 PUT SPRITE 2, (HX,HY+N) ,6 
8020 FOR K=1 TO 100:NEXT 

8025 PUT SPRITE 2, (HX,HY+16) 
8030 PUT SPRITE 1, (HX,HY+N),6 
8040 FOR K=1 TO 100:NEXT 

8060 NEXT 

9000 DATA 0,0,192,12,3,195,63,4 
8,63,252,255,255,255,255,255,25 
5 

9010 DATA 255,255,255,255,255,2 
55,255,255,255,255,255,255,255, 
255,255,255 

9020 DATA 12,48,0,3,195,0,252,1 
2,252,63,255,255,255,255,255,25 
5 


9030 DATA 255,255,255,255,255,2 
55,255,255,255,255,255,255,255, 
255,255,255 


Dois conjuntos de chamas, armaze- 
nados em sprites de tamanho 2 (ou se- 
ja, 16 por 16 pixels), são colocados na 
tela pelo comando PUT. Os dados pa- 
ra os conjuntos de chamas estão nas de- 
clarações DATA das linhas 9000 a 9030. 
Eles são lidos pelas declarações DATA 


na linha 40 e colocados nas variáveis A$ 
e B$, na linha 45. Após isso, os sprites 
números 1 e 2 recebem o conteúdo des- 
ses cordões. Um terceiro sprite (um blo- 
co gráfico uniformemente cheio) tam- 
bém é definido na linha 75. A cor que 
esse bloco de sprite vai assumir ao ser 
colocado na tela é determinada pelo co- 
mando PUT na linha 8000 (no caso, 
azul, que é o código 4). 

As linhas 8000 a 8060 animam as chamas. 
Cada vez que o programa passa pelo laço 
FOR...NEXT, os dois sprites 1 e 2 são colo- 
cados na tela. O topo das chamas é abaixa- 
do um pouco de cada vez, pelo +N nas li- 
nhas com o comando PUT, de modo que 
dá a impressão de diminuição do fogo. 

Esse programa pode ser usado como uma* 
sub-rotina do programa a seguir, que simu- 
la um bombardeio: um prédio é alvejado. 
Adicione as linhas: 


200 
210 
215 
220 
230 
240 
250 
260 
o 

270 
300 


FOR K=1 TO 32 

READ A:READ B 

D$=DS+CHRS (A) : ES=ES+CHRS (B) 
NEXT 

SPRITES (3) =D$ 

SPRITES (4) =ES 
LINE(0,163)-(255,191),12,BF 
HX=124:HY=146:PX=0:PY=40:B= 


PUT SPRITE 4, (HX,HY),9 
PX=Px+4 

310 PUT SPRITE 3, (PX,PY),14 
320 IF PX=20 THEN B=1:BX=PX+8:B 
Y=Py+8 

330 IF B=1 THEN PRESET (BX,BY): 
PRESET (BX+2,BY) :BX=BX+2:BY=BY+2 
: PSET(BX,BY),1:PSET(BX+2,BY),1 
340 IF BY=148 THEN PUT SPRITE 4 
» (HX,HY+16) : PRESET (BX,BY):PRES 
ET (BX+2,BY) :GOSUB 8000:BY=0:G0 
To 250 

350 GgoTo 300 

8070 RETURN 

9040 DATA 0,0,0,0,2,12,2,12,130 
,60,130,60,162,255,162,255 

9050 DATA 170,255,170,255,162,8 
5,162,85,130,86,130,86,2,86,2,8 
6 


9060 DATA 0,3,0,3,0,51,0,51,128 
,243,128,243,160,255,160,255 
9070 DATA 170,255,170,255,160,8 
5,160,85,128,149,128,149,0,149, 
0,149 








Nesse trecho suplementar, mais dois 
sprites, 3 e 4, são definidos pelas linhas 
200 a 240, a partir dos códigos gráficos 
armazenados nas declarações DATA 
nas linhas 9040 a 9070. 

A linha 250 traça um retângulo de cor 
verde (o chão gramado); a linha 270 co- 
loca dentro dele o desenho da casa. A 
animação gráfica do avião e da bomba 
caindo é realizada pelas linhas 310 e 350. 
Na linha 340 é chamada a sub-rotina de- 
finida a partir de 8000, que recebe um 
RETURN na linha 8070. 


+ TR 


Não é tão fácil criar efeitos visuais no 
Apple se o compararmos com outros 
micros. Ao invés de representar os de- 
senhos através de números binários con- 
vertidos para decimais e colocados na 
memória de vídeo (“1 representaria 
ponto aceso, e “O”, ponto apagado), 
temos que criar uma tabela que pode ter 
até 256 figuras, e uma vez que esteja 
num lugar apropriado da memória po- 
de-se desenhar e mover as figuras com 
o comando DRAW, sendo a cor defini- 
da por HCOLOR. O programa a seguir 
move uma chama na base da tela. 


10 HOME : HGR : SCALE= 1: ROT= 


20 POKE 232,0: POKE 233,3 
30 FORK = 768 TO 868 

40 READ A: POKE K,A 

50 NEXT 

250 HX = 124:HY - 146 


8000 FORN=1 TOlIS 

8010 HCOLOR= 5 

8020 FORK =1TO3 

8030 DRAW 1 AT HX,HY + N: HCOL 
oR- 0 

8040 DRAW 1 AT HX,HY + N: HCOL 
oR= 5 

8050 DRAW 1 AT HX + 3,HY + N + 


2: HCOLOR= O 
8060 DRAW 1 AT HX + 3,HY + N + 
2: HCOLOR= 5 
8070 NEXT K 
8080 NEXT N 





8090 TEXT 

9000 DATA 3,0,8,0,64,0,0,1,15 
0,18,54,37,36,36,4,11,54,54,54, 
46,36 

9010 DATA 36,11,54,54,46,36,4 
+100,100,11,54,54,54,37,36,4,10 
0,100,11,54 

9020 DATA 54,54,46,36,100,100 
+100,11,22,54,54,37,36,100,100, 
11,54,54,54,37 

9030 DATA 36,4,0,45,56,255,21 
9,35,109,73,45,37,63,63,63,63,3 
9,45,45,45 

9040 DATA 45,45,46,44,46,45,3 
7,63,231,219,63,255,219,39,64,7 
3,44,46,5,0 


O mesmo incêndio é desenhado e 
apagado rapidamente em duas posições 
diferentes, dando a impressão de fogo. 
As chamas desaparecem lentamente na 
parte inferior do vídeo. O programa 
funciona da seguinte maneira: 

A tabela de figuras está nas linhas 
DATA (9000 a 9040). Ela é colocada na 
memória pela repetição do comando 
POKE da linha 40, devida ao laço 
FOR...NEXT das linhas 30 e 50. A li- 
nha 20 informa onde está a tabela de fi- 
guras na memória. A linha 10 limpa a 
tela, estabelece o modo gráfico de alta 
resolução, fixa o tamanho (SCALE) e 
a orientação (ROT) da figura. 

As linhas 8000 a 8060 animam as cha- 
mas e as fazem desaparecer. Cada vez 
que o programa repete as linhas que fi- 
cam entre FOR e NEXT, as chamas são 
desenhadas e apagadas em duas posições 
diferentes da tela. Elas vão baixando 
lentamente devido ao +N nas linhas 
HPLOT, de forma que o fogo parece 
acabar. Isso acontece porque o desenho 
invade o espaço reservado para texto na 
parte inferior da tela, onde podemos co- 
locar dados gráficos sem que eles apa- 
reçam. Para entender melhor, experi- 
mente introduzir a linha: 


15 POKE -16302,0 


















































Essa linha elimina o espaço reserva- 
do para textos da parte inferior da tela, 
tornando visíveis quaisquer gráficos ali 
colocados.. Rodando o programa com 
essa modificação, você verá as chamas 
ocuparem posições cada vez mais bai- 
xas sem desaparecer. Não se esqueça de 
apagar essa linha digitando 15 e <RE- 
TURN>. Nosso incêndio ficará mais 
interessante se for produzido por uma 
sub-rotina dentro de um jogo, como no 
exemplo a seguir. Após acrescentar es- 
sas linhas, você verá uma pequena casa 
ser bombardeada e pegar fogo. Não se 
esqueça de apagar a linha 15. 


BB Ze 0 
60 FOR J = 8674 TO 15810 
STEP 10 24 


70 READ A(I),B(I) 
801 1+1 


100 NEXT 

190 1 - 0 

200 FOR J - 8674 TO 15810 
STEP 1 024 

210 POKE J,B(I): POKE J + 
1,A(T) 

2a te TH 

220 NEXT 

235 FORK = 1 TO 1000: NEXT 


250 HX = 139:HY = 153:PX = 259: 
Py= 40:B = 0 








290 PX - PX - q 
300 HCOLOR= 6: DRAW 2 AT PX,PY 
310 HCOLOR= O: DRAW 2 AT PX,PY 
320 IF PX = 239 THEN B = 
1:BX = PX:BY = PY + 8 
330 IF B = 1 THEN HCOLOR= O: 
HPLOT BX,BY: HPLOT BX — 
2,BY:BX = BX - 2:BY = 
HCOLOR= 3: HPLOT 
HPLOT BX - 2,BY 
340 IF BY 152 THEN GOSUB 
8000 :BY = O: GOTO 190 
350 coro 290 
8090 RETURN 
9050 DATA 0,3,12,51,60,243, 


255,255,255,255,85,85,86, 
149,86,149 

A casa é desenhada pelos comandos 
POKE da linha 210. O padrão do dese- 
nho é obtido da linha 9050 e guardado 
nas variáveis indexadas A e B. Progra- 
mar desenhos dessa maneira é mais fá- 
cil que definir tabelas, mas quando se 
deseja movimento e velocidade (como 
nas chamas e no avião) é preciso usar 
as tabelas e o comando DRAW. 

O formato do avião já estava na ta- 
bela do programa anterior. As chamas 
são a figura 1 da tabela, e o avião é a 
figura 2. Essas figuras são desenhadas 
respectivamente pelos comandos 
DRAW 1 e DRAW 2. 

Para parar o programa aperte simul- 
taneamente <CTPL> e C. Mesmo que 
não apareça nada na tela, digite TEXT 
e aperte <RETURN> e tudo voltará 
ao normal. 


II 





MRRRRRENS  . 





8 PROGRAMAÇÃO BASIC 8 








OS COMANDOS REA 


E DATA 





Se você pretende evitar a digitação 
de programas longos e cansativos, 
convém preparar seu computador para 
a leitura de dados armazenados 
internamente em declarações DATA. 








As variáveis são o grande responsá- 
vel pela versatilidade do computador. 
Atribuir valores a elas é, a maior parte 
das vezes, simples e É 
exemplo, dizer LETX = 





oca- 


siões em que a quantidade de informa- 
ções que se deseja utilizar em um pro- 
momen- 


grama é muito grande. Nesse: 
tos, é preciso recorrer às decl 
DATA, e aos comandos READ e R 

TORE (esses comandos não estão dis- 
poníveis no BASIC de alguns micros). 

A palavra DATA (dados, em inglês) 
é utilizada p muitas coisas. Assim, 
tudo o que é fornecido (“dado” pelo 
programador ou pelo usuário) ao com- 
putador é incluído nessa categoria. Nes- 
se artigo, porém, vamos usar a expres- 
são dados apenas em seu sentido mais 
restrito, ou seja, informações incluídas 
em um programa por meio da declara- 
ção DATA. 

A declaração INPUT serve para atri- 
buir valores a uma variável. 
útil somente enquanto a informa: 
tiver sendo fornecida ao computador ca- 
da vez que o programa for rodado. 
Existem valores fixos, porém, que 
não precisam ser entrados ou alterados 
pelo operador, e podem, assim, ser in- 
corporados permanentemente ao pro- 
grama. Neste caso, entra em cena o se- 
gundo método de atribu : a declara- 
ção LET. Mas, quando as informações 
são em grande quantidade, o emprego 
de comandos LET torna-se cansativo. 

Veja a seguir um exemplo onde uma 
lista fixa de cabeçalhos é utilizada para 
imprimir um documento: 


10 LET AS="DIA” 

20 LET B$="SEMANA” 
30 LET CS="MES” 

40 LET CS="ANO” 

50 PRINT A$,BS,CS,DS 






























Veja como DATA pode ser utilizada 
com o mesmo objetivo e com uma re- 
dução no número de linhas necessárias: 


10 READ A$,BS$S,C$,D$ 
20 PRINT AS,BS,CS,DS 
100 DATA DIA, SEMANA, MES, ANO 


Em programas curtos não há quase 
diferença entre usar LET ou DATA. 
i Agora, se você quiser trabalhar com cin- 
l giienta cabeçalhos, em vez de quatro, o 





primeiro programa precisará de 46 de- 
clarações LET a mais, enquanto o se- 
gundo exigirá apenas uma ou duas li- 
nhas a mais. 

Nos compatíveis com o Spectrum 
(como o TK-90X), as palavras DATA 
devem estar sempre entre aspas. Nos ou- 
tros modelos as aspas são dispensáveis. 
A linha 100 passaria a ser escrita assim: 


100 DATA "DIA”,"SEMANA”,"MES”, 
"ANO" 


COMO FUNCIONAM READ E DATA 


Quando o computador se depara com 
uma instrução READ, ele passa a procu- 
rar em todo o programa onde se encontra 
a primeira declaração DATA. Então ele a- 
tribui o primeiro item de DATA à variável 
correspondente no comando READ. No 
programa acima, o cordão “DIA”, na de- 
claração DATA, é atribuído à variável A$, 






éatribuído a BS, etc. O com- 
putador ignora qualquer declaração DA- 
TA a menos que uma declaração READ fa- 
ça com que ele a leia. 





10 DATA ALEMANHA 

20 READ A$,B3 

30 DATA BRASIL, ITALIA, ESPANHA 
40 READ C$,DS 


E mais fácil ler o programa quando 
todos os DATA estão reunidos em um 
mesmo lugar. E existe uma regra inaba- 
lável: os comandos DATA devem apa- 
recer na ordem em que o computador 
vai lê-los, por meio da instrução READ. 


GIL 


Além de cordões alfanuméricos, as 
declarações DATA podem conter núme- 
ros. A linha Sinclair Spectrum também 
































E COMO FUNCIONAM AS E À DECLARAÇÃO RESTORE 

DECLARAÇÕES READ E DATA IH APLICAÇÕES PARA LISTAS 
E DIFERENTES TIPOS DE DATA DE DATA 
E UTILIZE DATA PARA FAZER E COMO DESENHAR GRÁFICOS 





UMA LISTA TELEFÔNICA 


SIMPLES A PARTIR DE DATA 














permite que você utilize variáveis e fun- 
ções dentro de declarações DATA. 
DATA "RECIFE",256,a*5,SQR (num) 


No comando READ as variáveis devem 
ser colocadas na mesma ordem que os itens 
relativos a DATA. A linha DATA acima 
pode ser lida com o comando: 


READ AS,N,X,Y 





A primeira variável é uma variável al- 
fanumérica, para coincidir com o pri- 
meiro item de DATA. Mas os três itens 
seguintes são variáveis numéricas. 

É fácil cometer erros quando se usa 
DATA em um programa. Os principais 
problemas ocorrem quando não se pos- 
sui um número suficiente de itens ou 
quando se tenta ler com READ uma va- 
riável de outro tipo, em DATA. Se a li- 
nha DATA acima tivesse sido digitada 
incorretamente, tal como DATA 256, 





RECIFE, a x5, então A$ receberia o va- 
lor 256! Embora errada, ela não seria re- 
jeitada (a não ser no Spectrum) pois o 
computador interpreta o valor numéri- 
co 256, neste caso, como o cordão alfa- 
numérico “256”. 

Em contrapartida, se o computador 
tentasse ler o cordão “RECIFE” e o 
atribuísse à variável númerica N, pode- 
ria perceber o erro e responder com uma 
mensagem tal como; “tipo inadequado” 
(erro TM, ou TYPE MISMATCH), ou 
“dado incorreto” (erro BAD DATA, ou 
INVALID DATA, dependendo do com- 
putador); ou poderia supor que “RECI- 
FE” é um nome de variável não defini- 
do anteriormente; sua resposta, neste 
caso, seria uma mensagem de erro co- 
mo: “variável não encontrada”. 

Outro erro comum é colocar itens a 
menos em DATA 


AREAL 


Eis aqui um programa que utiliza um 
laço para a leitura interna de dados, 
através das declarações READ e DATA. 
* um programa muito simples para ela- 
borar uma lista telefônica particular. 











O programa abaixo roda apenas no 
TRS-Color. Para utilizá-lo nos micros 
TR modifique os números do 
PRINT nas linhas 50 e 60, para 640. 


5 CLS 

10 PRINT €70,"DIRETORIO TELEFON 
ICO” 

12 PRINT 

20 INPUT "DIGITE O NOME” ;R$ 

30 FOR J=1 TO 5 

40 READ NS, T$ 

50 IF N$=R$ THEN PRINT €320,"0 
NUMERO DE ";R$;” E: ";TS:END 
60 IF N$="FIM” THEN PRINT 6320, 
R$;" NAO ESTA NA LISTA” 

70 NEXT J 

500 DATA ALCINO, 384-4276, JUNIOR 
+997-4036, RODRIGO,52-5114,GERTR 
UDES,5666-99994, FIM, FIM 








5 CLS 
10 PRINT AT 2,6;"GUIA TELEFON 


Ico” 

15 RESTORE 

20 INPUT "Digite o nome”,R$ 
30 FOR J=1 TO 5 

40 READ NS, T$ 

50 IF N$=R$ THEN PRINT AT 10 
+1;"0O numero de ";N$;" e ";TS 
: GoTo 80 

60 IF N$="FIM” THEN PRINT AT 
10,3;R$;” NAO ESTA NA LISTA” 
70 NEXT J 

80 PRINT AT 12,0;"Quer outro 
numero (S/N)?” 
90 PAUSE O 

100 IF INKEY$="S” 
110 IF INKEY$S="N” 
2000 

500 DATA "ZULEICA","22-6400",” 
MARIA”, "33-7237","MARCELO","3 
4-4009", "RICARDO" ,"13-71824"," 
FIM”, "FIM" 


THEN GOTO 5 
THEN GOTO 


10 LOCATE 12,3:PRINT"Lista tele 
fônica” 

12 PRINT:PRINT 

15 RESTORE 

20 INPUT"Digite o nome” ;R$ 

30 FORJ=1TOS 

40 READ NS, T$ 

50 IFN$=R$ THEN LOCATE 5,15:PRI 
NT"O número de ";N$;" é T$:Go 
TO 80 

60 IFN$="END” THEN LOCATE 5,15: 
PRINTRS;” não está na lista!” 
70 NEXTJ 

500 DATA ESTELA, 321054,J0SE,529 
884,CELI, 326747, FERNANDO,511934 
+ END, END 





5 HOME 

10 VTAB 3: HTAB 12: PRINT "Lis 
ta telefonica” 

12 PRINT PRINT 

20, INPUT "Digite o nome: ";R$ 


30' FORJ = 1 TOS 

40 READ NS, TS 

50 IF N$ - R$ THEN VUTAB 15: H 
TAB 5: PRINT "O numero de ";N$; 
"e ";78: END 

60 IF N$ = "END" THEN VTAB 15 





HTAB 5: PRINT R$;” nao esta n 
a lista!” 
70 NEXT J 
500 DATA FERNANDO, 510536, MA 


RILIA, 543286, JOAQUIM, 28999, ROB 
ERTA,719852,END, END 

















Você pode utilizar os nomes e os nú- 
meros dos telefones dos seus amigos na 
linha DATA e colocar tantos itens DA- 
TA quanto desejar; mas não se esqueça 
de ajustar o contador de laços na linha 
30. 

A lista de itens em DATA é finaliza- 
da com as palavras FIM, FIM, para a 
linha 60 checar se já foi alcançado o fim 
da lista. Se o programa tiver lido a lista 
em DATA até o fim, isso significa que 
o nome não foi encontrado, e o progra 
ma imprimirá uma mensagem para di 
zer isto a você. FIM (ou “FIM” no 
Spectrum) deve ser entrado duas vezes 
porque a linha 40 Iê dois itens DATA 
de cada vez. 

Os cordões em DATA podem conter 
espaços, mas não vírgulas. Se você pre 
cisar entrar um cordão DATA com uma 
vírgula, coloque o cordão entre aspas 


10 READ N$,AS;BS,CS 

20 DATA JOSE DOS CAMPOS 
"AV. BRASIL,23 
CAMPINAS,13100 


A primeira linha do endereço deve ser 
escrita entre aspas por causa da virgula 
depois de AV. BRASIL 


CE ANS Ea 


Com os métodos vistos até agora, um 
programa poderá ler uma lista de DA 
TA apenas uma vez, a menos que você 
o rode de novo. Para ler mais uma vez 
o conjunto de itens em DATA você de 
ve incorporar ao seu programa a decla 
ração RESTORE (restaurar, em inglês) 
Se você quiser consultar os números dos 
telefones dos amigos sem rodar o pro- 
grama, substitua END ou STOP na 
linha 50 por GOTO 80 e acrescente: 


O programa listado abaixo roda ape- 
nas no TRS-Color. Para utilizá-lo em 
micros da linha TRS-80, modifique o 
número do PRINT na linha 80 para 832. 














80 PRINT €416,"VOCÊE QUER OUTRO 
NUMERO (S/N) ?” 


90 K$=INKEY$S:IF K$="" THEN GOTO 
90 

100 IF K$="S” THEN GOTO 5 

110 END 


80 PRINT AT 12,0;"Quer outro 
numero (S/N)7” 
90 PAUSE O 
100 IF INKEY$="5” THEN GOTO 5 
110 IF INKEYS="N” THEN GOTO 
É 2000 


























































80 LOCATE 3,21:PRINT"Você quer 
outro número? (S/N)” 


90 K$=INKEYS:IF K$="" THEN 90 
100 IF K$="S” THEN 5 

110 END 

80 VUTAB 22: HTAB 1: PRINT "Voc 


e deseja mais algum numero? (S/ 


NJ”; 


90 GET K$ 
100 IF K$ = "S” THEN 5 
110 END 


Mas o que acontecerá quando você 
rodar o programa? Na primeira vez, ele 
funcionará bem. Mas, se você pressio- 
nar uma tecla para outra repetição da 
consulta, ele falhará devido à falta de 
mais itens em DATA, Mas existe uma 
solução para o problema. Acrescente: 


15 RESTORE 


Desta vez o programa continuará 
funcionando toda vez que se repetir, 
pois o comando RESTORE instrui o 
computador a voltar ao início da lista 
em DATA. É uma boa idéia colocar 
sempre uma declaração RESTORE no 
início de um programa que você estiver 
desenvolvendo. Isso faz com que você 
não fique sem nenhuma DATA, ao ten- 
tar testá-lo. Se, mais tarde, você quiser 
remover a linha RESTORE, bastará co- 





locar uma declaração RE 
em que ela está, para 
Com o comando R po- 
de reutilizar uma lista DATA sempre 
que necessário. Ele é particularmente 
útil quando se quer ler várias vezes uma 
mesma lista de dados para pesquisar um 
determinado item, como no caso do 
programa para a lista telefônica 


ER SET O 


As declarações DATA são úteis pa- 
ra todos os tipos de programa e você cer- 
tamente já as utilizou em desenhos de 
labirintos e outros efeitos. 

Frequentemente, um grande número 
de linhas DATA é utilizado para conter 
todo o texto necessário a um jogo de 
aventuras, ou em programas aplicativos 
simples. Pode-se também armazenar 
questionários com todas as perguntas e 
respostas em linhas DATA. E os jogos 
de fliperama em BASIC as utilizam pa- 
ra definir tanto os caracteres como os 
planos de fundo. 

Programadores experientes empre- 
gam DATA para linguagem Assembly 
ou em programas em código de máqui- 
na (veja a primeira lição de Código de 
Máquina). Tais programas consistem de 
um laço FOR...NEXT curto que lê os 
códigos de máquina em uma lista DA- 
TA e usa o comando POKE para inseri- 
los na memória. 











Qualquer programa que contei 
textos padronizados, figuras ou fun: 
pode fazer um largo uso das listas DA- 
TA. Empregadas de maneira cuidado- 
sa, essas listas constituem um poderoso 
instrumento de programação. 


[ORA ENA 


As declarações DATA servem igual- 
mente para programas de gráficos, pa- 
ra definir coordenadas, desenhar ou 
evocar caracteres gráficos predefinidos 
na memória ROM. Sua utilidade, po- 
rém, diminui quando o que se quer é tra- 
çar formas regulares onde as coordena- 
das ou o formato dos gráficos podem ser 
calculados. Um exemplo disso pode ser 
encontrado no programa para o TRS- 
Color, onde os padrões repetitivos no 
topo das muralhas de um forte são cal- 
culados. 

As declarações DATA no programa 
abaixo foram deliberadamente divididas 
em várias linhas. Assim, se você quiser 
examinar ou modificar o programa fu- 
turamente e achar os itens em DATA 
que correspondem às variáveis do pro- 
grama, poderá seguir uma a uma as ins- 
truções READ; mas para um programa 
longo isto será muito cansativo. O me- 
lhor será dividir as declarações DATA 
em grupos, e — se você quiser evitar a 
memorização de tudo o que está lá den- 
tro — utilizar comandos REM para ex- 


plicar para que serve cada grupo de de- 
clarações DATA. 


Co PN md 


O programa seguinte desenha uma casa: 


10 CLS:COLOR 4,5 

20 FOR A=0 TO 8 

30 FOR B=1 TO 17 

40 READ € 

50 VPOKE (171+A*40)+B,C 

60 NEXT B 

70 NEXT A 

500 DATA 32,32,32,32,32,32,32,3 
2,32,32,32,32,219,219,219,32,32 
S10 DATA 32,32,32,32,32,32,32,3 
2,32,32,32,219,219,219,219,219, 
32 

520 DATA 32,32,32,32,32,32,32,3 
2,32,32,219,219,219,219,219,219 
«219 

530 DATA 32,32,32,199,219,219,3 
2,32,32,32,32,222,219,219,219,2 
19,219 

540 DATA 32,32,199,219,219,219, 
219,32,221,32,32,219,219,219,21 
9,219,32 

550 DATA 32,32,215,215,215,215, 
215,219,219,193,32,32,222,215,2 
19,32,32 

560 DATA 32,32,215,16,215,202,2 
15,215,21,215,32,32,32,215,32,3 
2,32 

570 DATA 32,32,215,215,215,202, 
215,215,215,215,32,32,32,215,32 
,32,32 

580 DATA 195,195,195,195,195,19 
5,195,195,195,195,195,195,195,1 
95,195,195,195 


Os números em DATA fornecem as 
coordenadas das várias partes da casa (li- 
nhas 500 a 580). A parte principal do pro- 
grama estabelece os laços FOR... NEXT pa- 
ra a leitura (comando READ na linha 40) 
das partes pertinentes em DATA e as dese- 
nha, colocando os códigos de caracteres na 
página de memória da tela, por meio do co- 
mando VPOKE. 


Este programa utiliza READ...DA- 
TA para desenhar uma ponte. Se vo: 
entrar o programa e rodá-lo em estágios, 
será bem mais fácil ver o que está acon- 
tecendo, e assim verificar se o digitou 
corretamente: 








10 FOR t=74 TO 80 STEP 3 
20 PLOT 35,t 

30 DRAW 175,0,-2.5 

40 NEXT t 


Este segmento do programa utiliza 
um laço FOR...NEXT para ajudar a 
traçar três pontos próximos ao lado es- 
querdo da tela; em seguida, ele desenha 





uma linha em forma de arco a partir de 
cada ponto. A linha 30 significa: ““de- 
senhe até um ponto localizado 175 pi- 
xels à direita do pixel inicial”. O pará- 
metro -2,5 dá à linha sua forma curva, 
evitando a linha reta. 

100 FOR n=18 TO 39 

110 READ a 

120 PLOT 

130 DRAW 

132 PLOT n+188,45 

134 DRAW 

140 NEXT n 
1000 DATA 70,70,67,67,70,70,60, 
60,57,57,60,60,57,57,60,60,70,7 
0,67,67,70,70 

Esta é a seção que desenha as torres. 
O laço entre as linhas 100 e 140, mais 
o número 45 (pixels da parte inferior da 
tela), nas linhas 120 e 132, traçam os 
pontos na parte inferior de cada um dos 
conjuntos de linhas verticais que defi- 
nem a torre. 
Então, as linhas 110 e 1000 assumem 

o comando. A linha 110 diz ao compu- 
tador para ler, na linha 1000, a altura 
(novamente em pixels) de cada uma das 
Assim, a primeira li- 
nha será 0,70 — isto é, vertical e com 
70 pixels de altura; a segunda linha será 
0,70, a terceira 0,67 e assim por diante. 
Se você quiser ver o que está acontecen- 
do, tente inserir uma linha temporária 
tal como 135 PAUSE 100 após a linha 
134, 


300 PLOT 0,75 

310 DRAW 255,0-0.1 
320 PLOT 
330 DRAW 














255, 


Essas linhas desenham a pista de ro- 
lamento e -0.1 produz uma ligeira cur- 
va para cima. 


0,-0.1 


400 
410 
420 
430 
440 
1010 


FOR r=62 TO 182 STEP 20 
PLOT r,78 

READ b 

DRAW 0,b 

NEXT r 

DATA 42,55,63,65,63,55,42 


Essas, por sua vez, produzem os ca- 
bos verticais entre o arco e a pista de ro- 
lamento; o laço FOR...NEXT ajuda a 
traçar as posições iniciais dos cabos, en- 
quanto as linhas 420 e 1010 regulam as 
suas fespectivas alturas. 

Se você quiser que o programa rode 
de novo, automaticamente, acrescente 
essas linhas: 


5 CLS:RESTORE 
450 Goto 5 


A linha 5 limpa a tela e permite que 
o programa leia novamente o DATA. 


5 OR E 
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SE US 


Até agora, o único problema com 
DATA se resumiu a que a informação 
precisou sempre ser chamada na mesma 
seguência, começando do mesmo lugar. 
Utilizando o RESTORE, é possível vol- 
tar ao início de uma lista, mesmo que 
não se tenha atingido o fim. Mas como 
se salta para o meio de uma lista? 

Nos computadores das linhas Sinclair 
Spectrum e MSX, existe um modo para 
se responder a essa questão, Em vez de 
uma lista apenas, você pode utilizar vá- 
rias, direcionando assim o computador 
para a lista adequada. Tente acrescen- 
tar essas linhas extras ao programa pa- 
ra o Spectrum: 











6 INPUT "PONTE ANTIGA OU MOD 
ERNA?”; ys 
7 IF vy$-"a” THEN RESTORE 


1000 
8 IF yS-"m” THEN RESTORE 
2000 
9 IF y$<>"a” AND y$<>"m" 
THEN GOTO 5 
10 FOR t=74 TO 80 STEP 3 
20 PLOT 35,t 
30 DRAW 175,0,-2.5 
40 NEXT t 
2000 DATA 83,84,85,86,87,88,89, 
90,90,90,90,90,90,90,90,89,88,8 
7,86,85,84,83 
2010 DATA 42,55,63,65,63,55,42 


Os números que seguem o comando 
RESTORE são conhecidos como indi- 
cadores de RESTORE. Eles direcionam 
o computador para uma lista DATA. 
No programa acima, se você pressionar 
a tecla O, o indicador RESTORE será 
definido com o 1000, na linha 7 

Se você quiser que o micro vá para 
a primeira lista DATA disponível no 

















programa, não será necessário um indi- 
cador: usar o RESTORE sem um núme- 
ro de linha é o mesmo que restaurar o 
número da primeira linha DATA. 

Indicadores de restauração são mui- 
to úteis em programação de jogos. Nu- 
ma aterrissagem, por exemplo, você po- 
deria escrever uma rotina para checar se 
houve uma colisão ou um pouso segu- 
ro. As listas DATA poderiam então 
conter informações para gerar sons pa- 
ra as duas alternativas, e o indicador 
RESTORE serviria para indicar a lista 
correta. 

Outra vantagem do RESTORE inde- 
xado pára definir os elementos de uma 
figura é que fica bem mais fácil acres- 
centar novos elementos a um desenho 
terminado; se quisermos adicionar um 
muro à casinha da ilustração abaixo, 
bastará colocar mais linhas DATA: 


: 
| 

80 LOCATE 0,21:PRINT"Pressione 
qualquer tecla para uma casa co 
m muro!”; 

90 IFINKEYS<>""THENRESTORES20:6 
OTOlO: ELSEGOTO90 

590 DATA 203,203,203,203,203,20 
3,203,203,203,203,203,203,203,2 
03,203,203,203 

600 DATA 203,203,203,203,203,20 
3,203,203,203,203,203,203,203,2 
03,203,203,203 


















Feito o desenho, o computador per- 
guntará se você quer uma casa com mu- 
ro. Se você pressionar qualquer tecla, o 
comando RESTORE 520 na linha 90 in- 
dicará, para a próxima execução do pro- 
grama (a partir da linha 10), que as li- 
nhas DATA lidas pelos comandos 
READ na linha 40 deverão começar na 
linha 520, e não em 500, que é o seu iní- 
cio físico. De acordo com uma nova se- 
qiiência de caracteres gráficos (que ter- 











mina com as linhas adicionais 590 e 
600), o desenho será diferente do ante- 
rior. 


O programa a seguir construirá um 
castelo: 


10 PCLEAR 4 

20 PMODE 4,1 

30 PCLS 5 

40 SCREEN 1,1 

50 READ SX,SY 

60 LINE -(SX,SY),PSET 
70 FOR K=1 TO 18 


80 READ X,Y 
90 LINE -(X,Y), PRESET 
100 NEXT K 


270 GoTO 270 

500 DATA 64,160 

510 DATA 64,60,32,60,48,40,64,6 
0,32,60,32,160,110,160,110,120 
520 DATA 152,120,152,160,228,16 
0,228,60,212,40,196,60,228,60 
530 DATA 196,60,196,160,196,74 


As linhas de 10 a 40 deixam a tela pa 
ra gráficos de alta resolução pronta pa- 
ra desenhar. A linha 270 a mantém li 
gada. As linhas 50 e 60 são um tanto in 
comuns. As coordenadas do ponto ini 
cial do castelo são lidas, e uma linha em 
branco é desenhada em fundo branco 
ra o ponto inicial, Algumas vezes, es: 
sa capacidade para desenhar linhas “in- 
visíveis” torna-se bastante útil, pois elas 
podem se juntar às linhas visíveis em um 
esquema contínuo de programação. 

Da linha 70 à 100, é desenhado o con 
torno do castelo. No final desta parte do 
programa foram lidos 38 itens de DA- 
TA. Agora acrescente essas linhas e 
construa algumas muralhas. 


110 FOR K=1 TO 33 

120 LET X=X-4 

130 LINE-(X,Y),PRESET 

140 IF Y=74 THEN LET Y=78 ELSE 





























LET Y=74 
150 LINE -(X,Y), PRESET 
160 NEXT K 
Provavelmente você está tentando 
adivinhar o que aconteceu à linha 
READ. Esta é uma ocasião em que as 
instruções DATA e READ não repre- 
sentam economia de trabalho, pois vo- 
cê precisaria de 66 itens de DATA para 
definir os cantos da muralha, Progra- 
mando desta forma, você não precisará 
digitar todas as linhas DATA extras. 
Essas linhas desenharão as janelas: 


170 FOR K=1 TO 8 


180 READ X,Y 

190 LINE (X,Y) - (X+4,Y), PRESET 
200 LINE (X+2,Y-2)-(X+2,7Y+6), PR 
ESET 

210 NEXT K 

540 DATA 46,80,46,120,210,80,21 


0,120,86,90,170,90,80,132,178,1 
32 

Você não precisa do DATA para fi- 
nalizar as janelas. Como elas são todas 
do mesmo tamanho, apenas um conjun- 
to de DATA é necessário. Acrescente 
agora essas linhas, rode o programa e 
veja o que acontece: 
220 FOR K=1 TO 4000 
230 NEXT K 
240 CLS: PRINT €33," PRESSIONE Q 
UALQUER TECLA PARA CONTINUAR” 
250 LET IN$=INKEYS:IF IN$="" TH 
EN GOTO 250 
270 goto 30 

Quando você pressionar uma tecla 
qualquer, obterá OD ou a mensagem de 
erro “out of data”. A razão disso é que 
o programa chegou ao final da lista DA- 
TA — não existe mais nenhuma depois 
dele. Mas você não precisa digitar todos 
os DATA novamente. Acrescente só es- 
ta linha, que utiliza a declaração RES- 
TORE para instruir o computador a re- 
tornar ao início da lista DATA: 


260 RESTORE 


! 


EO 


E 





Lo] 
Desenhar uma casinha nos micros da 


linha Apple é facilimo quando utiliza- 
mos DATA, Digite o programa abaixo: 


10 HGR 

20 HCOLOR=3 

30 FOR I=1 TO 4 

40 READ XC,YC,LX,LY 

50 HPLOT XC,YC TO KC+LX,YC TO 
XC+LX, YC+LY TO XC, YC+LY TO 
Xc,yc 

60 NEXT I 

80 FOR I=1 TO 3 

90 READ XO,YO,XD,YD 

HPLOT XO,YO TO XD,YD 

NEXT 1 

DATA 20,50,160,80 

DATA 90,80,20,50 

DATA 40,80,30,30 

DATA 130,80,30,30 

DATA 0,50,200,50 

DATA 200,50,100,0 


460 DATA 100,0,0,50 


Os elementos em DATA fornecem as 
coordenadas para as diferentes partes da 
casa. 

A parte principal do programa liga o 
modo de alta resolução gráfica (HGR) 
e lê os dados contidos em DATA por in- 
termédio do laço FOR...NEXT nas li- 
nhas 30 a 60 e 80 a 110. 

Os dados contidos nas linhas DATA 
que vão de 400 a 430 contêm quatro nú- 
meros cada e servem para traçar retân- 
gulos de qualquer tamanho e em qual- 
quer posição na tela (rotina HPLOT na 
linha 50). Essa estratégia é vantajosa, 
pois você pode notar na ilustração que 
a casa tem no mínimo quatro retângu- 
los diferentes (a casa, a porta e as duas 
janelas). Assim, os dois primeiros nú- 
meros em DATA são as coordenadas 
XC e YC do ponto de origem do retân- 
gulo na tela (seu canto superior esquer- 
do). Os dois números seguintes são: o 


A casa da página 
anterior foi 
desenhada por um 
Apple Il a 

partir de quatro 
linhas DATA. 

Para fazer a ponte, 
o Spectrum 
utilizou PLOT 

e DRAW, junto com 
DATA. Ao lado, 
castelo construído 
em etapas 

pelos TRS-Color. 





ORGANIZE MELHOR OS COMANDOS 
DATA EM UM PROGRAMA 

As linhas DATA têm quase sempre 
uma coisa em comum: qualquer que 
seja a informação que elas transpor- 
tam, leva-se muito tempo para digitá- 
las e fazê-las funcionar. Tudo correrá 
bem na primeira vez, mas pode ser que 
você precise retornar posteriormente a 
um programa e não consiga entender 
mais nada do que foi colocado lá. 

Organizar sistematicamente as li- 
nhas DATA do programa toma apenas 
um pouco mais de tempo, mas pode 
poupar séculos no resultado final. 

Onde o DATA definir um gráfico por 
biocos ou algo parecido, organize as li- 
nhas do programa para corresponder 
diretamente às linhas do gráfico. Se o 
DATA segue um formato repetitivo (tal 
como os dados em uma lista telefôni- 
ca, por exemplo), classifique cada en- 
trada exatamente do mesmo modo nas 
linhas do programa, 











comprimento do lado paralelo ao eixo 
horizontal (LX) e o do lado paralelo ao 
eixo vertical (LY). Assim, o laço 
FOR...NEXT das linhas 30 e 60 lê su- 
cessivamente quatro conjuntos de dados 
e traça os quatro retângulos. 

Já o traçado do triângulo exige uma 
técnica diferente. O laço que vai das li- 
nhas 80 a 110 lê 4 valores: XO, YO 
(coordenadas de origem de uma reta) e 
XD, YD (coordenadas do seu ponto fi- 
nal), e traça essa reta, na linha 90. 

Uma vez que você tenha rodado o 
programa, talvez queira repeti-lo mais 
uma vez. Para isso, tente acrescentar as 
linhas seguintes, rode o programa e ve- 
ja o que acontece: 


120 HOME 
130 PRINT "QUER VER DE NOVO 
(S/N)?":GET R$ 

140 IF R$="N" THEN TEXT:END 
150 Goto 10 

Como vimos antes, se você pressio- 
nar uma tecla qualquer obterá OD ou 
a mensagem de erro “'out of data”. A 
razão disso é que o programa chegou ao 
final da lista DATA. Felizmente, você 
não precisa digitar todos os DATA no- 
vamente. Apenas acrescente a linha se- 
guinte, que utiliza a declaração RESTO- 
RE para instruir o computador a retor- 
nar ao início da lista DATA: 


150 RESTORE:GOTO 10 
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PONHA ORDEM EM 
SUAS CONTAS 


Assim como os grandes computadores 
comerciais, seu micro pode ser 

usado para fazer cálculos e manter 
registros financeiros. Veja como 

fazer isso e facilite sua vida. 








IH (o. 


Neste artigo, examinaremos um pro- 
grama de contabilidade doméstica, que 
foi planejado para fornecer respostas a 
perguntas como: onde foi parar o di- 
nheiro do salário? São apresentadas ver- 
sões para todos os computadores, com 
exceção dos compatíveis com o ZX-81. 

Para atualizar a sua contabilidade, 
você deve ““alimentá-la”” uma vez por 
mês com seus rendimentos .e despesas. 

O programa cria uma espécie de diá- 
rio contendo uma coluna para os rendi- 
mentos e sete colunas para as despesas 
sob diferentes rubricas. As subdivisões 
referentes às despesas podem ser modi- 
ficadas, caso necessário; para isso, al- 
tere os dizeres (identificação das 
categorias de despesa) na declara 
DATA pertinente, quando digitá-las, 
junto com o programa. Mas existem al- 
gumas limitações: a coluna de rendimen- 
tos deve aparecer sempre em último 
lugar; ao mesmo tempo, é necessário 
que haja um total de oito colunas. 

O programa deve ser digitado em 
duas seções: a primeira, com o próprio 
programa; e a segunda, com todas as in- 
formações com as quais você o alimen- 
tou até o momento da sua entrada. Isto 
significa que você precisará de dois no- 
mes para os programas. 

Para gravar corretamente o progra- 
ma em fita, siga o procedimento normal 
de sua máquina (comando SAVE ou 
AVE). Para recarregar o programa, 
siga novamente o procedimento usual 
para carregar jogos gravados em fitas 

Quando você rodar o programa, o 
menu principal lhe dará sete opções: 









1 - Entrar dados 

2 - Ver dados 

3 - Gravar em fita 
4 - Carregar da fita 
5 - Imprimir 


6 - Alterar um dado 
7 - Encerrar o programa 
Para fazer um lançamento, pressio- 
ne a tecla 1 quando o menu principal 
aparecer. Não acione ainda <EN- 
TER> ou <RETURN>. A cada lan- 
çamento, o computador pedirá detalhes 
como data, descrição, valor e categoria. 
Digite a informação na ordem dada, 
pressionando <ENTER> ou <RE- 
TURN após cada dado do lançamen- 
Espere que o computador pergunte 











DATE 
31/3784 


por um novo dado e pressione <EN- 
TER> ou <RETURNS, trazendo de 
volta o menu 

Para examinar um lançamento, pres: 
sione a tecla 2 quando o menu princi 
pal aparecer. Não tecle < ENTER > ou 
<RETURN>. O computador exibirá 
um índice mostrando as várias catego- 
rias. Para selecionar uma delas digite o 
número apropriado (não tecle <EN- 
TER> ou <RETURN>, e o micro lis- 
tará os lançamentos que existem para 
aquela categoria 

Na versão para o Spectrum, a tela 














ORI RR URI 


aa 
ERas 





mostrará a questão “Continua?” se ho- 
ver espaço insuficiente para exibir todos 
os lançamentos de uma vez. Neste caso, 
não pressione o N nesse ponto: prossi- 
ga até o final da listagem. 

Quando terminar, acione <EN- 
TER > ou < RETURN e volte ao me- 
nu principal. 


o RU RR 


Quando você teclar o 6 para a opção 
de alterar um lançamento, o computa- 





AMOUNT 


FEa4 
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dor mostrará uma lista com todos os 
lançamentos já efetuados. 

Você pode se movimentar para trás 
e para a frente dentro da lista, utilizan- 
do os sinais de prontidão que aparece- 
rão na tela. O computador também dirá 
como editar (modificar) um lançamen- 
to. Uma vez que você tenha digitado 
<ENTER > ou <RETURNS, após 
fazer a alteração, o computador trará de 
volta o menu principal. Para uma segun- 
da alteração, você deve selecionar a op- 
ção 6 novamente. O comando para a 
opção de impressão funciona de forma 














n DIGITE E ARMAZENE O E ATUALIZE OS REGISTROS 

PROGRAMA E VERIFICAÇÃO DO BALANÇO 
E AS OPÇÕES DO MENU E IMPRESSÃO DOS RESULTADOS 
HE COMO ENTRAR LANÇAMENTOS E ARMAZENE SUAS FINANÇAS 





NOS REGISTROS 


tão simples quanto um interruptor de 
luz — um liga/desliga acionado quan- 
do se tecla a opção 5 (também sem 
<ENTER> ou <RETURN>) do me- 
nu principal. O computador pedirá que 
você tecle S, se quiser usar a impresso- 
ra, ou N se não quiser. Se você pressio- 
nar a tecla S, o menu principal voltará 
automaticamente à tela e, a partir desse 
momento, tudo o que normalmente apa- 
receria na tela, usando-se a opção 2, 
passará a ser mandado para a impres- 
sora, Se quiser interromper essa opção, 
pressione a tecla 5 novamente e respon- 
da N. 

Se você não tiver uma impressora co- 
nectada ao computador, tome cuidado 
para não pressionar a tecla S. O Spec- 
trum irá ignorar as instruções neste ca- 
so, mas em qualquer um dos outros três 
computadores você poderá perder todas 
as informações já inseridas. 


10, PMODE O:PCLEAR 1:CLEAR 10000 
20 DIM TES(200) ,AM(200), DAS (200 
),CTS(B),CA(200) 

30 FOR N=1 TO 8:READ CTS(N):NEX 
T 

40 DATA MANUTENCAO DA CASA, LAZE 
R , ALUGUEL, VESTUARIO, AUTOMOVEL, 
FERIAS, OUTROS, RENDA 

50 ULS="GHMMRRAMA,TEUZS=" pad 


LU 
60 CLS4: PRINT €8,"MENU PRINCIP 
AL” ;: PRINT €70,"1- ENTRAR DADOS 





1: PRINT €134,"2- VER ENTRA 
DAS ";: PRINT 6198,"3- GRAVAR 
EM FITA "; 
70 PRINT 6262,"4- CARREGAR 

"; ÍPRINT €326,"5- IMPRIMIR 
PRINT €390,"6- MUDAR E 
"; : PRINT €454,"7- SAID 





NTRADA 


A i 

80 AS=INKEYS:IF AS<"1” OR A$>"7 
” THEN 80 

90 ON VAL(AS) GOSUB 1000,2000,3 
000,4000,5000,6000,7000 

100 goto 60 

1000 CLS: IF NU>200 THEN PRINT 
€264,"MEMORIA LOTADA !”:PLAY "T 
10ABCDEFGP1P1” : RETURN 

1010 GOSUB 1160 

1020 GOSUB 1250: INPUT"DATA ";DA 
S (NU) 

1030 IF DAS(NU)="" THEN RETURN 
1040 IF LEN(DAS(NU))>8 THEN 102 


o 
1050 PRINT €L,DAS (NU) ; 


EM FITA 


1060 GOSUB 1250:LINEINPUT"ITEM 
?"; TES (NU): IF LEN(TES(NU))>25 T 
HEN 1060 

1070 AS=LEFTS (TES (NU) ,9) : PRINTO 
L+I4-LEN(AS) /2,AS; 

1080 GOSUB 1250:INPUT"QUANTIA ” 


:A 

1090 IF A>9999999 OR A<O THEN 1 
080 

1100 PRINT €L+19,USING UZ$S;A 
M(NU) =A 

1110 GOSUB 1250: INPUT"CATEGORIA 
";CaS 

1120 GOSUB 1180:IF F=0 THEN 111 
o 





1130 CA(NU)=NM: PRINT €L+29, LEF 
TS(CTS(CA(NU)),3); 

1140 IF NM<>8 THEN GT=GT+A 
1150 NU=NU+1: L=L+32:IF L=448 T 
HEN 1000 ELSE 1020 


1160 L=64: PRINT €2,"DATA” TAB( 
10)" ITEM” TAB(19) "QUANTIA” TAB 
(29) "CAT"; 


1170 RETURN 

1180 IF VAL(CAS)<>0 THEN 1230 
1190 F=0:FOR N=1 TO 8 

1200 IF CAS=LEFT$(CTS(N),LEN(CA 
$)) THEN F=F+1;NM=N 

1210 NEXT: IF F>l THEN F=0 

1220 RETURN 

1230 IF VAL(CAS)>8 THEN F=0:RET 
URN 

1240 NM=VAL (CAS) :F=1:RETURN 
1250 PRINT 6448," ":PRINT 6449, 
;: RETURN 

2000 CLS3:FOR N=1 TO & 

2010 PRINT €69+N*32,N;MIDS("- " 
+CTS (N) +STRINGS (12,” "),1,20); 
2020 NEXT 








2030 TT=0: PRINT 6449, "QUE CATE 
GORIA ?"; 

2040 AS=INKEYS:IF AS<”1” OR AS> 
"8" THEN 2040 


2050 NM=VAL (AS) 

2060 IF PT=1 THEN PRINT4-2,CHRS 
(13): PRINT4-2, TAB (21-LEN(CTS (NM 
))/2);CT$S (NM): PRINTE-2," DATA” 
TAB (20) " ITEM" TAB (39) "QUANTIA” 
2070 GOSUB 2280 

2080 FOR NN=0 TO NU 

2090 IF CA(NN)<>NM THEN 2150 
2100 IF PT=1 THEN PRINT4-2,USIN 
GF$S;DAS (NN) ; TES (NN) ; AM (NN) 

2110 PRINT €L,DAS (NN) ; :AS=LEFTS 
(TES (NN) ,13) :PRINT EL+I6-LEN(AS 
)/2,A8;:PRINT 6L+23,USING U2$;A 
M(NN) ;:TT=TT+AM (NN) 

2120 L=L+32:IF (L=448 AND NM<>B 
) OR (L=352 AND NM=8) THEN PRIN 
T 8465,"CONT ?"; ELSE GOTO 2150 
2130 A$=INKEYS:IF AS="" THEN 21 
30 

2140 GOSUB 2280 

















ou” 
6030 
Acos 


o 

6035 
5 

6040 
N M= 
6050 
THE 
6060 
6070 
6080 











PRINT €481,"A BARRA DE ESP 
PARA EDITAR”; :M=0:GOTO 608 


KKS=INKEYS: IFKKS=""THEN603 


IF KKS=CHRS(8) AND M>0 THE 

M-1:GOTO 6080 

IF KK$=CHR$S (94) AND M<NU-1 

N M=M+1:GOTO 6080 

IF KK$=CHRS(32) THEN 6100 

GoTo 6035 

PRINTE64, USING"? 2 
2RRHRRRRE, 2 2r;DAS(M); 











LEFTS(TES(M),8) ;AM(M) ;LEFTS(CTS 
(CA(M)) 3) 
6090 GOTO 6035 
6100 IF CA(M)<>8 THEN GT=GT-AM( 
M 
6110 INPUT"NOVA DATA ";DS:IF DS 
="" THEN 6130 
6120 IF LEN(DS)>8 THEN 6110 ELS 
E DAS(M)-DS 
6130 INPUT "NOVO ITEM ";D$:1F D 
$="" THEN 6150 
6140 TES(M)=DS 
6150 INPUT "NOVA QUANTIA ";A:IF 
A=0 THEN 6170 
6160 IF A<O OR A>9999999 THEN 6 
150 ELSE AM(M)=A 
6170 INPUT "NOVA CATEGORIA ";CA 
2150 NEXT: IF PT=1 THEN PRINTA- 30 DR a 
2,CHR$(13): IF NM<>8 THEN PRINT 3040 CLS: PRINT €65,;:INPUT"NOM 6180 GOSUB 1180:IF F=0 THEN 617 
4-2, TAB(28) ;:PRINT&-2,USING"TOT E DO ARQUIVO ";DAS o 
AL ="+U1S;TT 3050 OPEN "0",4-1.DAS GADO TRARIA 
2160 PRINT 8463,USING "TOTAL =" 3060 PRINT 4-1,NU GEO: ZRO CAAHNSDOS TEEN ORE OREANA 
+ULS; TT; 3070 FOR N=0 TO NU-1 o a 
7 <>8 N 2250 3080 PRINT 4-1,DAS(N),TES(N),AM 92 J 
Or ar nanda TN) CA) 7000 CLS: PRINT 669,"VOCE TEM C 
2190 PRINT4-2,TAB(21);:PRINT4-2 3090 NEXT: CLOSE&-1:RETURN DN eae 
+USING"RENDA TOTAL ="+ULS;TT 4000 CLS: PRINT 968, ;FINPUT"NOM Z0L0 ASTINKELSSIR ASSADA AND: ds 
2200 PRINT 4-2, TAB(16);:PRINTO- E DO ARQUIVO” ;DAS >"N” THEN 7010 
2,USING"DESPESA TOTAL ="+UIS;GT 4010 MOTORON:PRINT e64,"posicIO 7020 IF AS="Nº THEN RETURN 
-PRINTE-2, TAB(35)” ” NE O GRAVADOR E TECLE <ENTER 
2210 PRINT4-2, TAB(26);:PRINTO-2 >” 
+ USING" BALANCO ="+U1S;TT; 4020 AS=INKEYS:IF AS="" THEN 40 
2220 PRINT 8392,USING "RENDA TO 20 50 LET mn=200: IF PEEK 23733= 
TAL ="+UIS;TT; 4030 MOTOROFF:GT=0:0PEN "1”,4-1 127 THEN LET mn=100 
2230 PRINT 6419,USING "DESPESA «DAS 100 DIM cS(8,16): DIM a(mn) 
TOTAL ="+U1S;GT; 4040 PRINT €129,"ACHEI ";DAS DIM aS (mn,23) 
2240 PRINT €461,USING"BALANCO = 4050 INPUT 4-1,NU 110 LET u=0: LET v=1 
"+UIS;TT-GT ; 4060 FOR N=0 TO NU-1 120 FOR n=v TO 8: READ cS(n) 
2250 AS=INKEYS:IF AS="" THEN 22 4070 INPUT 4-1,DAS(N),TES(N),AM NEXT n 
50 (N), CA(N) 130 POKE 23658,8 

















2260 IF AS<>CHR$(13) THEN 2000 4080 IF CA(N)<>8 THEN GT=GT+AM( 140 LET k$=".00": FOR n=v TO 7 
2270 RETURN N) 145 LET kS$-kS+CHRS 8: NEXT n 

2280 L=64:CLS NM:PRINT €(33-LEN 4090 NEXT: CLOSE 4-1: RETURN 190 LET p=2: LET tt=u: LET cr= 
(CTS (NM) ))/2,CTS (NM); 5000 CLS: PRINT €65, "VOCE QUER u 

2290 PRINT 634, "DATA”;: PRINT 64 IMPRIMIR ? (S/N)”; 200 CLS : PRINT BRIGHT v; 

5," ITEM”; :PRINT 856,"QUANTIA” ; 5010 AS=INKEYS:IF AS<>"S” AND A PAPER 2; INK 6;AT 2,1;" MEN 
2300 FOR N=32 TO 416 STEP 32 S<>"N” THEN 5010 U PRINCIPAL 

2310 POKE N+1032,122+NM*16:POKE 5020 PRINT "OK”:IF AS="N” THEN 210 PRINT BRIGHT v; PAPER 7; 

N+1046,117+16*NM PT=0: RETURN AT 5,4;” 1- ENTRAR REGISTRO "; 
2320 NEXT:RETURN 5030 FS="2 * AT 7,4;” 2- VER REGISTROS " 
3000 CLS:MOTORON: PRINT 664,"Pos ?  "+U2S:PT=1:RETU AT 9,4;” 3- GRAVAR EM FITA " 

ICIONE O GRAVADOR E PRESSIONECE RN AT 11,4 4- CARREGAR 

NTER>” 6000 IF NU=0 THEN RETURN ;AT 13,4 - IMPRIMIR 

3010 AS=INKEYS:IF A$="" THEN 30 6010 CLS: PRINT” DATA"TAB(I1)” ";AT 15,4;” MUDAR REGISTRO 


10 
3020 MOTOROFF:PRINT €65,"PRESSI 


ITEM" TAB (19) "QUANTIA"TAB (29) "CA 
7 





";AT 17,4;” 7- SAIDA 


ONE 'REC' NO GRAVADOR E TEC 6020 PRINT €417,"PRESSIONE <";C 220 PRINT INK 3; FLASH V; 
LE <ENTER>” HR$(94);”"> PARA PROSSEGUIR BRIGHT V;AT 20,4;” - SELECIONE 
6 3030 AS=INKEYS:IF AS="" THEN 30 OU <”;CHRS(95);"> PARA RETORNAR OPCAO - " 














4 APLICAÇÕES 4 








230 IF INKEY$S="" THEN GOTO 
230 

240 LET zS=INKEYS: IF z5<"1” 

OR z$>"7” THEN GOTO 230 

250 CLS : GOSUB 1000*VAL zS 

260 GoTO 200 

1000 LET c=u 

1005 LET c=c+v: IF 

RETURN 

1006 IF asS(c,v)=" 

1010 

1007 coTo 1005 

1010 PRINT AT u,u; 

PER 2; INK 7;” DATA 
QUANTIA CAT ” 

1015 IF c=mnt+v THEN RETURN 

1020 INPUT "Digite a data”; LIN 

E aS(c,2 TO 9): IF as(c,2)=" " 

THEN RETURN 

1030 PRINT TAB ujaS(c,2 TO 9); 

1040 INPUT "Digite o item "; LI 

NE aS(c,10 TO 23): IF as(c,10)= 

” ” THEN GOTO 1040 

1050 PRINT TAB 9;aS(c,10 TO 21) 


c=mntv THEN 


” THEN GOTO 


BRIGHT v; PA 
ITEM 


1060 INPUT "Quantia ";a(c): IF 
a(c)=u THEN GOTO 1060 

1070 LET vv=a(c)*100: LET v$=ST 
R$ vv: PRINT TAB 27-LEN vS;a(c) 


1080 INPUT "Categoria "; LINE £ 
$: IF £$="" THEN GOTO 1080 
1090 FOR n=v TO 8: IF fS=c$S(n,v 
TO LEN £$) THEN GOTO 1130 
1100 NEXT n: GOTO 1080 

1130 IF n=8 THEN LET cr=crta(c 
) 
1140 LET tt=tt+a( 
e) 
1150 
1160 


IF n<>8 THEN 


PRINT TAB 29;cS(n,v TO 3) 
LET aS(c,v)=CHRS (48+n) 
1200 LET c=ctv: GOTO 1015 

2000 FOR n=v TO 8: PRINT PAPER 
vi INK 7;AT n*2,4;” ";n;"- "je 
S(n): NEXT n 

2010 PRINT FLASH v; INK 2;AT 1 
9,3;” Selecione categoria(l a 8 
) 

2020 IF INKEY$="" THEN GOTO 20 
20 


2030 LET zS=INKEYS: IF z$<"1" O 


R z5>"8” THEN GOTO 2020 

2040 LET t=u: LET c=u 

2050 CLS : PRINT tp; PAPER 6; B 
RIGHT V;TAB 10;CS(VAL ZzS);TAB 3 
W”” 


2055 LET c=ctv: IF c=mn THEN G 
oTo 2500 


2060 IF aS(c,v)=" " THEN GOTO 
2500 
2070 IF aS(c,v)<>z$ THEN Goto 
2055 


2080 PRINT fp;aS(c,2 TO 9); TAB 
10;aS(c,10 TO 23); 

2090 LET am=a(c)*100: LET n$=ST 
R$ am: PRINT 4p;TAB 29;kS; TAB 3 
1-LEN n$;a(c) 

2100 LET t=t+a(c) 

2110 GoTo 2055 

2500 PRINT 4p;TAB 25;"----——— Ed 
LET tx=t*100: LET n$=STR$ tx 
2505 PRINT 4p;TAB 12;"TOTAL- "; 
TAB 29;KS;TAB 31-LEN n$;t 


2510 IF z5S<>"8” THÊN GOTO 2590 
2520 LET tz=tt*100: LET nS=STRS$ 
tz: PRINT 'Wp;TAB 4;"DESPESA T 
OTAL- ";TAB 29;kS; TAB 31-LEN n$ 
tt 
2530 LET ba=(t-tt)*100: LET n$= 
STR$S ba: PRINT '4p;TAB 10;"BALA 
NCO- ";TAB 29;kS;TAB 31-LEN n$; 
ba/100 
2590 PRINT PAPER 2; INK 7'"Pre 
ssione qualquer tecla para co 
ntinuar” 
2600 PAUSE u: 
THEN RETURN 
2610 CLS : GOTO 2000 
3000 GOSUB 8000: IF 
RETURN 
3010 PRINT PAPER 6;AT 10,u;” D 
igite o nome do arquivo data 
3015 INPUT LINE wS: IF LEN wS> 
10 OR LEN wS<v THEN GOTO 3010 
3020 CLS : SAVE wS DATA a(): SA 
VE w$ DATA aS(): RETURN 
4000 GOSUB 8000: IF re=v 
RETURN 
4010 PRINT BRIGHT V;AT 10,u;"D 
igite o nome dos dados a serem 
carregados”: INPUT LINE wS. IF 
LEN w$>10 THEN GOTO 4010 
4020 PRINT PAPER 3; INK 7;AT 1 
0,u;” Pressione PLA 
y - 
4030 LOAD wS DATA a() 
DATA aS() 
4040 LET cr=u: LET tt=u 
v TO mn: IF aS(n,v)="8" 
ET cr=crt+a(n) 
4050 IF aS(n,1)<>"B” THEN 
tt=tt+a(n) 
4060 NEXT n: 
5000 PRINT BRIGHT V;AT 10,u;” 
Voce quer imprimir (S/N)? " 
5010 PAUSE u: IF INKEYS="" 
Goto 5010 





IF PEEK 23560=13 


re=v THEN 


THEN 


LOAD wS 


FOR n= 
THEN L 


LET 


RETURN 


THEN 





5020 LET zS=-INKEYS 


5030 IF zS="n” THEN LET p-2: R 
ETURN 
5040 IF 2z$="s” THEN LET p=3: R 
ETURN 


5050 GOTO 5010 
6000 LET c=v: 
ETURN 

6010 PRINT AT u,u; 


IF a(c)=u THEN R 


BRIGHT v; PA 


PER (VAL aS(c,v))-v; INK 97” Nu 

mero ";c,CS(VAL as(c,v)) 

6015 PRINT PAPER 2; INK 7;''"D 

ATA ITEM QUANTIA 
PRINT 'aS(c,2 TO 9); TAB 10;a 


S(c,10 TO 23); 


6020 LET am=a(c)*100: LET n 


T 






























R$ am: PRINT TAB 29;KS; TAB 31-L 

EN n$j;a(lc) 

6030 PRINT PAPER 3; INK Z;AT 1 

0,u;” A - Prossegue Q - Retor 

na EDIT para alterar “« 

gastro * 

6040 PAUSE u 

6050 IF INKEYS="q” AND cv THEN 
LET c=c-v; GOTO 6010 

6060 IF INKEYS="a” AND c<>mn TH 

EN LET c=ctv 

6070 IF a(c)=u THEN LET « 

60B0 IF PEEK 23560=7 THEN GOTO 
6100 

6090 GOTO 6010 

6100 INPUT BRIGHT v;"Digite a 

nova data LINE a$(c,2 TO 9 
IF aS(c,2)=" THEN GOTO 6100 

6110 PRINT AT 5S,ujaS(c,2 TO 9) 

6120 INPUT BRIGHT v;"Digite « 

novo item "; LINE aS(c,10 TO 23 

): IF aS(c,10)=" " THEN GOTO 6 

120 

6130 PRINT AT 5,10;aS(c,10 TO 2 

3) 

6135 IF as(c,v)=" THEN LET c 

recr-a(c) 

6136 IF as(c,v)<> LET 











4 APLICAÇÕES 4 








tt=tt-a(c) 

6140 INPUT BRIGHT v;"Digite no 
va quantia ";a(c): IF a(c)=u TH 
EN GOTO 6140 

6150 LET am=a(c)*100; LET n$=ST 
RS am: PRINT AT 5,29;KS;TAB 31- 
LEN n$;a(c) 
6160 INPUT 
nova categoria "; LINE £$: 
S="" THEN GOTO 6160 

6170 FOR n=v TO 8: IF fS$=cS(n,v 
TO LEN £$) THEN GOTO 6190 
6180 NEXT n: GOTO 6160 

6190 LET aS(c,v)=CHR$ (48+n) 

6200 IF n=8 THEN LET cr=crta(c 


BRIGHT v;"Digite a 
IF £ 


) 

6210 IF n<8 THEN LET tt=tt+a(c 
, 

6220 RETURN 
7000 GOSUB 8000: 
RETURN 

7010 RAND USR u 
8000 PRINT PAPER 4;AT 10,9;” V 
oce tem certeza? 

8010 PAUSE u: LET re=u 
Y5<D"s” THEN LET re=v 
8020 RETURN 

9000 DATA "MANUTENCAO CASA", "LA 
ZER”, "ALUGUEL E TAKAS”,"VESTUAR 
10”, "AUTOMOVEL", "FERIAS", "OUTRO 
S”, "RENDA" 


IF re=v THEN 


IF INKE 


10 COLOR 15,4,4:KEYOFF:MOTOROFF 
: CLEAR5000 

20 DIMTES(200),AM(200),DAS( 
+«CTS(8),CA(200) 

30 FORN=1TO8:READCTS (N) :NEXT 

40 DATA MANUTENÇÃO DA CASA, LAZE 
R, ALUGUÉIS E TAXAS, ROUPAS, AUTOM 
ÓVEL, FERIAS, MISCELÂNEA, RENDAS 
50 UIS="SSHHIHHARE,CEUZS=" At 
see” 


200) 





60 CLS;LOCATE7,2:PRINT"M E NU 

PRINCI PA L":LOCATEIO,6 
:PRINT"1:- ENTRAR DADOS”: LOCATE 
10,8:PRINT"2:- VER DADOS":LOCAT 
E10,10:PRINT"3:- GRAVAR NA FITA 


70 LOCATEIO, 12:PRINT"4:- CARREG 
AR DA FITA”:LOCATEIO, 14:PRINT"S 
:- OPÇÃO DE IMPRESSÃO": LOCATEIO 
,16:PRINT"6:- ALTERAR DADOS” :LO 
CATElO,18:PRINT”"7:- FIM DE PROG 
RAMA” 

80 LOCATE10,22:PRINT"-ESCOLHA U 
MA OPÇÃO-" 

90 AS=INKEYS: IFAS<"1"ORAS>"7"TH 
EN90 

100 ONVAL (A$) GOSUB1000,2000,300 
0,4000,5000,6000,7000 

110 COLOR 15,4,4:G0T060 

1000 CLS: IFNU>200THENLOCATEIO, 1 
5: PRINT"MEMÓRIA CHEIA!":BEEP 
1010 GOSUB1160 

1020 GOSUB1250:INPUT"DATA 
(NU) 
1030 


";DAS 


IFDAS (NU) =""THENRETURN 
1040 IFLEN(DAS (NU) ) >8THEN1020 
1050 LOCATEO,L:PRINTDAS (NU) 
1060 GOSUB1250:LINEINPUT"ITEM ? 
"; TES (NU) : IFLEN (TES (NU) )>25THEN 
1060 

1070 AS=LEFTS (TES (NU), 15) :LOCAT 
E17-LEN(AS)/2,L:PRINTAS 

1080 GOSUB1250: INPUT"QUANTIA "; 
A 

1090 IFA>999999940RA<OTHEN1080 
1100 LOCATE25S,L:PRINTUSINGU2ZS;A 
:AM (NU) =A 

1110 GOSUB1250:INPUT"CATEGORIA 
";CAS 

1120 GOSUB1180:IFF=OTHEN1110 
1130 CA(NU) =NM:LOCATE36,L:PRINT 
LEFTS(CTS(CA(NU)),3) 

1140 IFNM<>8THENGT=GT+A 

1150 NU=NU+1:L=L+1: IFL=19THENIO 
00ELSE1020 





1160 L=2:PRINT” data”;TAB(14); 

"ítem"; TAB (26); "quantia"; TAB (36 

)"cat”; 

1170 RETURN 

1180 IFVAL (CAS)<>OTHENI230 

1190 F=0:FORN=1TO8 

1200 IFCAS=LEFTS(CTS(N), LEN(CAS 

)) THENF=E +: NM=N 

1210 NEXT: IFF>ITHENF=0 

1220 RETURN 

1230 IFVAL (CAS) >BTHENF=0: RETURN 

1240 NM=VAL (CAS) :F=1: RETURN 

1250 LOCATEO, 20: PRINTSPACES (79) 

: LOCATEO, 20: RETURN 

2000 CLS: FORN=1TO8 

2010 LOCATE1O,2*N+3:PRINTN;":- 

";CTS(N) 

2020 NEXT 

2030 TT=0:LOCATE15,23:PRINT"Qua 

1 categoria? "; 

2040 AS=INKEYS: IFAS<"1"ORAS>"B” 

THEN2040 

2050 NM=VAL (AS) 

2060 IFPT=1THENLPRINTTAB (40-LEN 
(CTS (NM) )/2);CT$ (NM): LPRINTTAB( 

10)” DATA”";TAB(28);"ITEM";TAB( 

51); "QUANTIA” 

2070 GOosUB2280 

2080 FORNN=OTONU 

2090 IFCA(NN)<>NMTHEN2150 

2100 IF PT=1 THEN LPRINTTAB (10) 
:DAS (NN) ; TAB (22) ; TES (NN) ; :LPRIN 

TTAB (50) USINGUZS; AM (NN) 

2110 LOCATEU,L: PRINTDAS (NN) ; :AS 

=LEFT$ (TES (NN) ,20) : LOCATEIO: PRI 

NTAS;:LOCATE 30:PRINTUSINGU2S;A 

M(NN);: TT=TT+AM(NN) 

2120 L=L+1:IF (L=21ANDNM<>8) OR 
(L=19ANDNM=B) THEN LOCATE14,22 
:PRINT"scroll? ";:ELSE GOTO 215 

o 

2130 AS=INKEY$S: IFAS=""THEN2130 

2140 GOSUB2280 

2150 NEXT: IFPT=1ANDNM<>8THENLPR 

INT:LPRINT:LPRINTTAB (38) ;USING” 

TOTAL => "+Ul1S;TT 

2160 LOCATEIB, 22: PRINTUSING"tot 

al =>"+UlS;TT 

2170 IFNM<>8THEN2250 

2180 IFPT=OTHEN2220 

2190 LPRINT:LPRINT:LPRINTTAB (40 

);USING"RENDA TOTAL =>"+UIS;TT 

2200 LPRINTTAB (36) ;USING"DESPES 

AS TOTAIS =>"+U1S;GT:LPRINTTAB( 

54)" 

2210 LPRINTTAB (44) ;USING"BALANÇ 

O =>"+ULS;TT-GT 

2220 LOCATE13,20:PRINTUSING"Ren 














da total =>"+UlS;TT 

2230 LOCATE9,21:PRINTUSING"Desp 
esas totais +U1S;GT 

2240 LOCATE17,22:PRINTUSING"Bal 


anço =>"+U1S;TT-GT; 

2250 AS=INKEYS:IFAS=""THEN2250 
2260 IFAS<>CHRS (13) THEN2000 
2270 RETURN 

2280 L=3:CLS:COLOR 15,NM+2:LOCA 
TE20-LEN(CTS (NM) ) /2:PRINTCTS (NM 


) 

2290 PRINT” data";TAB(18)"ftem 
";TAB (32) "quantia"; 

2300 FORN=3TOZ0 

2310 VPOKEN*40+10,22:VPOKEN*40+ 


30,22 

2320 NEXT:RETURN 

3000 CLS:MOTOR:LOCATEO, 10:PRINT 
"Posicione a fita e pressione < 
RETURN>” 

3010 IFINKEYS=""THEN3010 

3020 MOTOR:PRINT"Tecle <REC/PLA 
Y> e pressione <RETURN>" 

3030 IFINKEYS=""THEN3030 

3040 LOCATEB, 15: INPUT"Nome do a 
rquivo ";DAS:AR$="CAS:"+DAS 
3050 OPEN AR$ FOR OUTPUT AStI 
3060 PRINT$1,NU 

3070 FORN=OTONU-1 
3080 PRINT41,DAS(N);", 
"+" GAM(N),CA(N) 

3090 NEXT:CLOSE41:RETURN 

4000 CLS:LOCATE8, 10: INPUT”Nome 
do arquivo ";DAS:AR$S="CAS:"+DAS 
4010 MOTOR:LOCATEO,12:PRINT"Pos 
icione a fita e tecle <RETURN>" 
4020 IFINKEY$=""THEN4020 

4030 MOTOR:LOCATEO,14:PRINT"Pre 
ssione a tecla <PLAY> e <RETURN 
>" 

4040 IFINKEY$=""THEN4040 

4050 MOTOR:GT=0:0PEN AR$ FOR IN 








"iTES(N); 





PUT AS41 
4060 LOCATES,18:PRINT"Achei ";D 
As 


4070 INPUT$1,NU 

4080 FORN=OTONU-1 

4090 INPUT41,DAS(N), TES(N) ,AM(N 
).CA(N) 

4100 IFCA(N)<>BTHENGT=GT+AM (N) 
4110 NEXT:CLOSEf1: RETURN 

5000 CLS:LOCATEIO,10:PRINT"Impr 
essora: " 


5010 LOCATE15,12:PRINT"IL]igada 
5020 LOCATE15,13:PRINT"[DJeslig 
ada” 


5030 AS=INKEYS:IFAS=""THEN5S030 
5040 IFAS="L"THENPT=1:RETURN 
5050 IFAS="D”THENPT=0ELSES030 
5060 RETURN 





6000 IFNU=OTHENRETURN 

6010 CLS:PRINT” data”; TAB(I14); 
"ftem”; TAB(26) ; "quantia"; TAB (36 
Ji"cat” 


6020 LOCATEO,20:PRINT”Pressione 
[=>] para avançar” 

6030 LOCATEO,21:PRINT"Pressione 
[<=] para retroceder”: PRINT"OU 
a barra de espaços para editar 
GoTO60B0 

6040 AS=INKEYS: IFAS=""THEN6040 

6050 IFASC (AS) =29ANDM>OTHENM=M 

1:G0T06080 

6060 IFASC (AS) =28ANDM<NU-1THENM 

=M+1:GOTO6080 

6070 IFASC(AS) =32THEN6100ELSE60 

140 

6080 LOCATEO, 3: PRINTDAS (M) ; TAB( 

10) ;LEFTS (TES (M) , 15); : PRINTTAB( 

26) ;USINGU2S;AM(M) ;: PRINTTAB (16 

)FLEFTS(CTS(CA(M)),3) 

6090 GoTO 6040 

6100 IFCA(M)<>BTHENGT=GT-AM (M) 

6110 D$="":PRINT:INPUT"Data ";D 

S: IFDS=""THEN6130 

6120 IFLEN(D$)>8THEN6110ELSEDAS 

(M) =DS 





6130 D$="":PRINT:INPUT"Item 
$:IFD$=""THEN6150 

6140 IFLEN(DS$)>25THEN61 30ELSETE 
S (M) =DS 

6150 PRINT: INPUT"Quantia 
A=OTHEN6170 

6160 IFA<0ORA>99999994THEN6150E 
LSEAM (M) =A 

6170 CA$="":PRINT:INPUT"Categor 
1a ";CAS:IFCAS HEN6200 

6180 GOSUB1180:IFF=-OTHEN6170 
6190 CA(M)=NM 

6200 IFCA(M)<>BTHENGT=GT+AM (M) 
6210 RETURN 

7000 CLS:LOCATE1O,15:PRINT"Fim 
do programa? 
7010 AS=INKEYS:; IFAS=""THEN 7010 
7020 IFAS<>"S"THENRETURN 


";D 


";A:IF 











10 REM ONERR GOTO 8000 
20 DIM TES(200),QT(200),DT$S(20 
0) ,CTS(8B),CT(200) 


25 FORN= 1 TO7Z: READ KS$: NE 
XT 

30 FORN= 1 TOB: READ CT$S(N) 
: NEXT 

35 DATA ENTRAR DADOS, VER DADO 


S,GRAVAR EM DISCO,CARREGAR DO D 
ISCO, IMPRIMIR, ALTERAR UM DADO, F 
IM DE PROGRAMA 

40 DATA MANUTENCAO DA CASA,L 
AZER,ALUGUEIS E TAXAS, ROUPAS, AU 
TOMOVEL, FERIAS, MISCELANEA, RENDA 


s 

50 HOME RESTORE INVERSE 

VTAB 2: HTAB 7: PRINT" MENU 
PRINCIPAL” 

60 FORN= 1 TOJ7: READ KS$ 





70 HTAB 10: VTAB N * 2 + 4: PR 





INT N$":= "5K$ 

80 NEXT 

90 VTAB 23: HTAB 20: PRINT " O 
PCAO => ” GET AS 

100 IF AS<"1" ORAS>"7" TH 
EN 90 

110 PRINT A$;: NORMAL HOME 
120 ON VAL (AS) GOSUB 1000,20 


00,3000,4000,5000,6000,7000 





130 coro 50 

1000 IF NU > 200 THEN VTAB 15 
: HTAB 10: PRINT CHR$ (7);"MEM 
ORIA CHEIA!”; CHR$ (7): FOR N = 
1 TO 100 NEXT RETURN 

1010 GosuB 1160 

1020 GOSUB 1250: INPUT "DATA ( 
DD/MM/AA) : ";DTS (NU) 

1030 IF DTS(NU) = "" THEN RET 
URN 

1040 IF JLEN (DTS(NU)) > 8 THE 
N 1020 

1050 VTAB L: PRINT DTS(NU) 


1060 GOSUB 1250: INPUT "ITEM: 
";TES(NU): IF LEN (TES(NU)) > 
25 THEN 1060 


1070 AS = LEFTS (TES(NU),15): 
VTAB L: HTAB 17 - JLEN (A$) / 2 
: PRINT AS 
1080 GOSUB 1250: INPUT "QUANTI 
A: ";QT(NU) 
1090 IF QT(NU) > 99999999 OR Q 


T(NU) < O THEN 1080 


1100 VTAB L: HTAB 26: PRINT QT 
(NU) 

1110 GOSUB 1250: INPUT "CATEGO 
RIA: ";CS 

1120 DS = C$: GOSUB 9000: IF F 
= O THEN 1110 

1130 CT(NU) = NM: VTAB L: HTAB 














38: PRINT LEFTS (CTS(CT(NU)),3 
Ji 

1140 IF C< > 8 THENGT=GT 
+ QT(NU) 

1150 NU = NU + 1:L = L+ 1: IF 
L = 21 THEN 1000 

1155 coro 1020 

1160 L = 3: PRINT ” data”; TAB 
( 15);"atei TAB( 26);"quantia 
"; TAB( 38);"cat”; 

1170 RETURN 





1250 HTAB 1: VTAB 23: CALL - 
958: RETURN 
2000 HOME : FORN = 1 TOB 


VTAB 2 *N+3 
-— "GCTS(N): NEX 


2010 HTAB 1 
2020 PRINT 








T 

2030 TT = O: HTAB 15: VTAB 23: 

PRINT "Qual categoria? "; 

2040 GET AS: IF AS < "1" OR A$ 

> "8" THEN 2040 

2050 NM = VAL (AS) 

2060 IF PT = 1 THEN PRINT : P 

RINT CHR$ (4);"PR$1": PRINT C 

HRS (9);"80N”: PRINT SPC( 40 — 
LEN (CTS(NM)) / 2);CTS(NM): P 

RINT : PRINT SPC( 10);” DATA” 

i SPC( 17);" ITEM”; SPC( 18)"QUA 








NTIA": PRINT CHR$ (4);"PR$0” 
2070 GOSUB 2280 

2080 FOR NN = O TO NU 

2090 IF CT(NN) < > NM THEN 21 
50 

2100 IF PT = 1 THEN PRINT : P 
RINT CHR$ (4);"PR$1": PRINT C 
HRS (9);"80N”;: PRINT SPC( 10) 
;DTS(NN); SPC( 5 + (8 - JLEN (D 
TS(NN))));TES(NN); SPC( 6 + 25 


- LEN (TES(NN))); SPC( 7 - LE 
N ( STR$ (QT(NN))));QT(NN): PRI 
NT CHR$ (4);"PR$0” 

2110 VTAB L: HTAB 1: PRINT DT$S 
(NN);:AS = LEFTS (TES(NN),20): 
HTAB 10: PRINT A$;: HTAB 32 + 
(7 - JLEN ( STRS (QT(NN)))): PR 
INT QT(NN);:TT = TT + QT(NN) 
2120 L-L+1: IF (L-c2lAND 
NM < >8) OR(L = 19 ANDNM- 
8) THEN VTAB 23: HTAB 15: PRIN 
T "Scroll ?";: GET A$: GOSUB 22 


Bo 

2150 NEXT : IF PT = 1 AND NM < 
> 8 THEN PRINT : PRINT CHR$ 
(4);"PR$1": PRINT CHR$ (9);"8 






ON": PRINT : PRINT PRINT SPC 
( 40);" TOTAL =>";T' PRINT CHR 
S (4);"PR$O” 

2160 VUTAB 23: HTAB 21: PRINT ” 


TOTAL =>";TT; 
2170 IF NM< > 8 THEN 2250 
2180 IF PT = O THEN 2220 
2190 PRINT : PRINT CHR$ (4);” 
PR41”: PRINT CHR$ (9);"B0N”: P 
RINT : PRINT : PRINT SPC( 40); 
"RENDA TOTAL "; SPC( 9 - LEN 
( STR$ (TT)));TT: PRINT SPC( 
36); "DESPESAS TOTAIS =>"; SPC( 
9 - LEN ( STR$ (GT)) 
2200 PRINT SPC( 54);"----———— 








2210 PRINT SPC( 44);"BALANCO 
=>"; SPC( 9 - LEN ( STR$ (TT - 
GT)));TT - GT: PRINT CHRS (4) 





7" PR$0” 

2220 VTAB 21: HTAB 18: PRINT ” 
RENDA TOTAL =>";TT 
2230 VTAB 22: HTAB 15: 
DESPESAS TOTAIS =>" ;G' 
2240 VTAB 23: HTAB 20: PRINT ” 
BALANCO =>";TT - GT; 

2250 GET AS 

2260 IF AS < > cCHR$ (13) THE 
N 2000 

2270 RETURN 

2280 HOME :L = 4: HTAB 20 - L 
EN (CTS(NM)) / 2: PRINT CTS(NM) 
2290 PRINT ” data”; TAB( 18); 
"item"; TAB( 32);"quantia”; 
2300 FORN=4 TO 21: VTAB N: 
HTAB 9: PRINT "!";; HTAB 31: PR 
INT "!";: NEXT 

2310 RETURN 

3000 HOME : VTAB 15: HTAB 10: 
INPUT "Nome do arquivo? ";DAS 
3010 IF DAS = "” THEN RETURN 
3020 PRINT : PRINT CHR$S (4);” 
OPEN"; DAS 

3030 PRINT CHR$ (4);"DELETE”; 
DAS 
3040 





PRINT ” 








PRINT CHRS (4);"OPEN";DA 


s 
3050 
As 
3060 PRINT NU 

3070 FORN = O TO NU - 1: PRIN 
T DTS(N); CHRS$ (13); TES(N); CHR 
S (13);QT(N); CHRS (13);CT(N): 
NEXT 

3080 PRINT CHRS (4);"CLOSE”: 
RETURN 

4000 HOME : VTAB 15: 
INPUT "Nome do arquivo? 


PRINT CHARS (4);"WRITE";D 


HTAB 10: 
";DAS 


4010 IF DAS = "" THEN RETURN 
4015 GT - 0 

4020 PRINT : PRINT CHRS (4);" 
OPEN" ;DAS 

4030 PRINT CHRS (4);"READ";DA 
5 

4040 INPUT NU 

4050 FORN = O TONU-1 

4060 INPUT DTS(N), TES(N),QT(N) 
+CT(N) 

4065 IF CT(N) < > 6 THENGT = 
GT + QT(N) 

4070 NEXT 

4080 PRINT CHRS (4);"CLOSE” 
4090 RETURN 

5000 HOME ;: VTAB 15: HTAB 10: 
PRINT "Ligo a impressora? (S/N) 
5010 GET AS: IF AS< >"s” AN 
DAS < > "Nº THEN SOLO 

5020 PRINT PRINT TAB( 20);" 
OK!": IF AS = "Nº THEN PT = O: 
RETURN 

5030 PT = 1: RETURN 

6000 IF NU = O THEN RETURN 


6020 VTAB 20: PRINT PRINT "P 
ressione (->] para avancar”: PR 
INT “Pressione [<-] para retroc 
eder”: PRINT "Ou a barra de esp 
acos para corrigir”";: GOTO 6080 
6030 GET AS 
6040 IF AS = 
100 
6050 





CHRS (32) THEN 6 


IF AS = CHR$ (21) AND M 








< NU - 1 THENM=M+ãI1: GOTO 6 

080 

6060 IF AS - CHR$ (8) AND M > 
O THEN M = M- 1: GOTO 6080 

6070 GoTo 6030 

6080 VUTAB 5: HTAB 1: CALL - 8 

68: PRINT "DATA: ";DTS(M) 

6090 VUTAB 8: CALL - 868: PRIN 

T "ITEM: ";TES(M): VTAB 11 
CALL - 868: PRINT "QUANTIA: 
";QT(M): VTAB 14: CALL - 868 

: PRINT "CATEGORIA: ";CTS(CT(M) 

) 

6095 GOTO 6030 

6100 IF CT(M) < > 8 THEN GT = 
ST - QT(M) 

6110 FORX=-1To4 

6120 VTAB X * 3+ 2: HTAB 12: 

CALL - 868: INPUT "";DS 

6130 ON X GOTO 6200,6300,6400, 

6500 

6140 NEXT 

6150 IF CT(M) < > 8 THEN GT = 
GT + QT(M) 

6160 RETURN 

6200 IF DS - "" THEN DS = DTS( 

M): GOTO 6600 

6210 IF LEN (DS) > 8 THEN 612 


o 
6220 DTS(M) = 


DS: NEXT 
6300 IF DS = "” THEN DS = TES( 
M): GOTO 6600 
6310 IF JLEN (DS) > 25 THEN 61 
20 
6320 TES(M) = DS: NEXT 
6400 IF VAL (D$) = O THEN DS 


- STRS (QT(M)): GOTO 6600 
6410 IF VAL (DS) > 9999999 TH 
EN 6120 

6420 QT(M) = VAL (DS): NEXT 
6500 IF DS = "" THEN DS = CTS( 
CT(M)): GOTO 6600 
6510 GOSUB 9000: 
6120 

6520 CT(M) = NM: GOTO 6140 
6600 VTAB 3 * X + 2: HTAB 12: 
PRINT DS: NEXT RETURN 

7000 VTAB 15: HTAB 8: PRINT "T 
ermino o programa? (S/N)"; 


IF F = O THEN 


7010 GET A$: IF AS< >"s”aN 
DAS < > "Nº THEN-7010 

7020 IF AS = "Nº THEN RETURN 
7030 END 

8000 IF PEEK (222) < > 5 THE 
N RESUME 

8005 PRINT CHR$ (4);"CLOSE” 
8010 PRINT CHR$ (4);"DELETE"; 
DAS 

8020 HOME : VTAB 20: HTAB 10: 
FLASH PRINT "ARQUIVO INEXISTE 
NTE!” 

8030 FORI = 1 TO 2000: NEXT : 
NORMAL 

8040 Goto 50 

9000 IF VAL (DS) < > 0 THEN 
9030 

9010 F - 0: FORN = 1 TO 8 
9020 IF LEFTS (D$,3) = LEFTS 
(CTS(N),3) THEN F = 1:NM = N 

9025 NEXT : RETURN 

9030 IF VAL (DS) > 8 THEN F = 
O: RETURN 

9040 NM = VAL (DS):F = 1: RETU 

RN 





IEEE 





FAÇA PROGRAMAS 
MAIS CURTOS 


Programas mais curtos ocupam menores 
espaços na memória do computador, 
além de serem de execução mais rápida. 
Aprenda a trabalhar com eles, 
melhorando o desempenho do seu micro. 


Umadas regras básicas para se escre- 
ver um programa é torná-lo claro e le- 
gível, usando linhas curtas com comen- 
tários e espaços em branco e, se possí- 
vel, com nomes longos de variáveis. 

Evitar a digitação de muitos caracte- 
res é uma das exigências mais importan- 
tes quando se pretende, por exemplo, 
copiar a longa listagem de uma revista. 
Neste caso, não há necessidade de dig! 
tar todas as declarações REM do pro- 
grama. Afinal, sempre é possível con- 
sultar a revista mais uma vez, caso a fi- 
nalidade de alguma seção do programa 
tenha sido esquecida. 

Outra maneira de reduzir o trabalho 
de digitação na entrada de um progra- 
ma é omitir palavras-chaves opcionais 
do BASIC, embora nem todos os micros 
admitam esse tipo de omissão (é o caso 
do Sinclair). Mas em outros computa- 
dores você pode deixar de lado todos os 
LET e THEN, que são declarações op- 
cionais, ou mesmo — como no caso de 
uma linha de programa que contenha 
IF... THEN GOTO... — omitir o THEN 
ou o GOTO (a eliminação de ambas as 
partes, porém, não é possível). 

Alguns micros permitem que se en- 
trem palavras-chaves de forma abrevia- 
da, como ? em vez de PRINT, e ' (após- 
trofo), para substituir REM, nos micros 
das linhas TRS-80 e TRS-Color. 

Quando o programa for listado ou 
impresso, as abreviações aparecerão por 
extenso (com exceção do apóstrofo). As- 
sim, embora isso poupe tempo de digi- 
tação, não leva a nenhuma economia de 
memória, e nem faz com que o seu pro- 
grama rode mais rápido. 


[E UAU 


Outra razão para se encurtar um pro- 
grama é economizar espaço da memó- 
ria. Essa economia é decisiva em progra- 











mas muito longos. 

Uma das formas de economizar bytes 
extras é utilizar nomes de variáveis com 
uma letra apenas. Esse procedimento 
poupa não só tempo de digitação, co- 
mo também espaço de memória. Mas é 
sempre bom manter uma lista sobre o 
que faz cada variável, já que fica mais 
difícil usar códigos mnemônicos para 
variáveis com apenas uma letra. 

Outra maneira de se encurtar um pro- 
grama é omitir espaços em branco en- 
tre comandos, variáveis e operadores. 
Isso não se aplica ao ZX-81 e ao Spec- 
trum (nesses micros, os espaços apare- 
cem automaticamente). Em outros mi- 
cros a omissão de espaços é uma medi- 
da extrema, pois ela torna muito difícil 
a leitura do programa. Uma regra, con- 
tudo, deve ser sempre observada: você 
deve deixar um espaço entre uma variá- 
vele o início de uma palavra-chave. As- 
sim, uma linha como essa: 


IF A = B AND B = C THEN PRINT 
"oK” 

pode se tornar mais curta desse modo: 
IFA=B ANDB=C THENPRINT"OK” 


Mas, se você escreveu: 


RES 


DEL 


USE COMANDOS ABREVIADOS 

COMO ECONOMIZAR MEMÓRIA 
COMANDOS MÚLTIPLOS 
Ho COMO MELHORARA 
VELOCIDADE DE UM PROGRAMA 





IF A=BAND B=C THENPRINT"OK” 

o computador pensará que existe uma 
variável chamada BAND, e, como ela 
não existe, poderá ocorrer um erro du- 
rante a execução do programa (ou, em 
alguns micros, uma mensagem de erro). 

Um terceiro modo de economizar 
memória consiste em combinar várias 
declarações em uma única linha. Na 
maioria dos computadores descritos 
aqui (linhas TRS-80, TRS-Color, MSX, 
Sinclair Spectrum, Apple Il e TK-2000), 
o sinal de separação entre os comandos 
contidos em uma mesma linha é : (dois 
pontos). Apenas nos micros compatíveis 
com a linha ZX-81 isso não é possível. 
Mas esse recurso torna os programas 
mais difíceis de serem entendidos. 

A maioria dos métodos aqui indica- 
dos tende a acelerar ligeiramente a ve- 
locidade de execução de um programa. 
Outro truque para se nuclear a execu- 
ção de laços FOR...NEXT é omitir a va- 
riável que vem após o NEXT (isso não 
é permitido em alguns micros). Se o pro- 
grama tiver vários laços aninhados, ter- 
minando na mesma linha, podemos c: 
locar um único NEXT; por exemplo: 
NEXT A, B, C (apenas certos micros pm 
aceitam esta sintaxe). b 















Durante a programação em código de 
máquina, é comum nos depararmos 
com números negativos, como por 
exemplo quando, numa programação de 
jogos, somos levados a movimentar fi- 
guras em determinadas direções ao lon- 
go da tela. 

Como todos os outros, esses núme- 
ros devem ser codificados em bytes de 
oito bits, pois os computadores com uni- 
dades de memória desse tipo não con- 
tam com outros recursos para armaze- 
nagem de algarismos. Isto, porém, le- 
vanta um problema: como você já viu, 
um byte pode representar qualquer nú- 
mero de O a 255, ou 00000000 a 
Mi111111, em binário. Mas isso esgota 
todas as possibilidades do binário de oi- 
to bits, já que não existe espaço para si- 
nais de mais (+ ) ou menos (-),e nenhu- 
ma maneira pela qual eles possam ser re- 
presentados nessa gama de valores. Em 
aritmética simples, se você subtrair 1 de 
O obterá —1.Agora, tente o mesmo cál- 
culo em binário com oito bits: 


00000000 





na 


Esse resultado levará você, ao chegar 
ao oitavo bit à esquerda, a pedir ''em- 
prestado” um do próximo lugar à es- 
querda; mas quando o número binário 
é limitado a oito bits não existe nada à 
esquerda a ser emprestado. Do mesmo 
modo, se você subtrair outro 1 (para ob- 
ter-2 em aritmética simples), obterá 
JH1110. Mas se HIT em binário 
equivale a 255 em decimal, então 
11111110 deverá ser 254! 

Imagine agora, por exemplo, o que 
poderia acontecer em decimal se você 
não tivesse mais que três dígitos ou “'co- 
lunas” para colocar seus números. Ve- 
ja o que acontece se você tentar acres- 
centar 999 a 100, quando tais limitações 
são impostas: 


100 
+89 
(1099 


O número um, na unidade de milhar, 
teve que ser colocado entre parênteses. 





Diretamente relacionados com o 
funcionamento interno do 
computador, binários e hexadecimais 
apresentam problemas quando é 
preciso representar números negativos. 


Em nossa aritmética de três dígitos, sim- 
plesmente não existe espaço para ele. 
Assim, o resultado dessa adição, em um 
sistema de três dígitos, será 99, que é 
exatamente o que você obterá se subtrair 
1 de 100! 

Do mesmo modo, em um sistema de- 
cimal de três dígitos, o resultado da so- 
ma de 998 mais 100 seria o mesmo da 
subtração de 100 menos 2. E subtrair 998 
de 100 seria o mesmo que adicionar 2. 

Recapitulando: a mesma série de al- 
garismos em um byte de oito bits pode 
representar um número negativo e um 
positivo, Qualquer operação torna-se 
confusa e difícil diante disso. 

O que você pode fazer em relação a 
isso? Bem, na maioria das aplicações em 
computadores domésticos, não há com 
que se preocupar: os endereços de memó- 
ria e códigos de operação, ambos repre- 
sentados em binário, serão sempre con- 
siderados positivos. As únicas vezes em 
que você encontrará números negativos 
serão com dados ou com os chamados 
saltos relativos, os quais são códigos de 
máquina aproximadamente equivalentes 
às declarações GOTO do BASIC. 


COMO “VIRAR” OS BITS 


O processo utilizado em binário pa- 
ra se obter, a partir de um número po- 
sitivo, o seu valor negativo, é conheci- 
do como complemento de 2. Na reali- 
dade, essa técnica não tem uma base teó- 
rica muito bem fundamentada; o impor- 
tante é que ela funciona. 

Para se obter o valor negativo de um 
número binário, é necessário “*virar” os 
bits e acrescentar 1. “Virar os bits” sig- 
nifica transformar os bits 1 em O e aque- 
les que têm valor 0, em 1. 

No programa seguinte mostramos co- 
mo isso funciona. Note que, quando o 
binário for limitado a oito dígitos, seu 
equivalente em hexadecimal preencherá 
exatamente dois dígitos. Isso significa 
que o hexadecimal equivalente ao com- 
plemento de 2 também atuará como o 
negativo. 





10 cLs 







20 PRINTES, "NUMEROS NEGATIVOS” ; 
30 PRINTE40, STRINGS (16,CHRS (131 
»m: 

40 PRINTE6S,"DEC"TAB (15) "BIN"TA 
B(28)"HEX” 

50 PRINTE226,"+"TAB(29)"+"; 

60 PRINTE361, "COMPLEMENTO DE 2” 





70 PRINTE48 0 0000 00 
0 00”; 

80 FOR J=1474 TO 1502:POKE J,13 
1:NEXT 


90 FOR J=1 TO 7 

100 FOR K=1 TO 24 

110 POKE 1123+K+32*9,175 

120 NEXT K,J 

130 PRINTE174,"BITS”; 

140 PRINT6313,"+1"; 

150 AT=AT AND 255 

160 T=AT: IF T=128 THEN SOUND 3 
0,2 
170 
180 


LN=3:GOSUB 280: GOSUB 310 

T=T+256* (T>127) :GOSUB 340 
190 T=255-T:LN=7:GOSUB 280 

200 T=T+1l:T=T AND 255:LN=13:G08 

UB 280: GOSUB 310 

210 T=T+256%* (T>128) :GOSUB 340 
220 INS=INKEYS:IF INS<>"B” AND 
INS<>" " AND INS<>CHRS (13) THEN 
220 

230 IF INS="B” 

o 150 

240 IF INS=" 

o 150 

250 PRINT €384,;: INPUT AT 
260 PRINT 6384,” Er, 

270 GOTO 150 

280 FOR X=0 TO 7 

290 IF-(T AND 27X) THEN PRINT é 

LN*32+23-X*2+(X>3),"1”;ELSE PRI 

NT €LN*32+23-X*2+(X>3),"0"; 

300 NEXT:RETURN 

310 IF T<16 THEN AS="0" ELSE AS 


320 


THEN AT=AT-1:GOT 


” THEN AT=AT+1:GOT 


PRINT €LN*32+29,AS+HEXS(T) ; 
330 RETURN 

340 PRINT €32*LN,MIDS(” 
S(T),LEN(STRS(T))); 

350 RETURN 


10 PRINT AT 0,7;"NUMEROS NEGA 
TIVOS” 

20 PRINT AT 2,1;"DEC";TAB 14; 
"BIN";TAB 28;"HEX” 

30 LET AS=" 


"+STR 


40 FOR N=7 TO 13 
50 PRINT AT N,6; 
60 NEXT N 

70 PRINT AT 8,14;"BITS”"; 


INVERSE 1:;AS 








a QUANDO SÃO NECESSÁRIOS 
NÚMEROS NEGATIVOS 

TE A CONVERSÃO DE NÚMEROS 
E NEGATIVOS 

= À CONVENÇÃO DO SINAL 




















BRIGHT 1;AT 12,21;"+1" 140 FOR N=1 TO B: LET A(N)=0 210 PRINT AT - eum 
80 PRINT AT 10,3;"+";AT 10,30 150 IF CC-D>=0 THEN LET A(N)= use Sem 

Pres 1: LET CC=CC-D 220 PRINT AT 19,3;”0 000 
90 PRINT AT 15,7;"COMPLEMENTO 160 PRINT BRIGHT 1;AT 4,6+2*N 020000 00” 

DE 2" ;A(N);AT 10,6+2%N;1-A(N) 230 IF INKEYS="” THEN GOTO 
95 LET C=0 170 LET D=D/2: NEXT N 230 
100 LET DD=-C: DIM A(8) 180 POKE 23608,DD: LET DD=PEEK 240 LET AS=INKEYS: IF Aí 
110 PRINT AT 4,0;” ";aT 4,4 23608: LET D=128 THEN LET C=C+l: IF C=128 THEN 
LEN STR$ C;C 185 LET Z-DD: GOSUB 300: PRINT LET C=-128: SOUND 1,1 
115 POKE 23608,C: LET E=PEEK AT 17,29;AS 250 IF AS="B” OR AS="b” THEN 
23608: LET Z=E: GOSUB 300: 190 FOR N-1 TO 8; LET B=0: IF LET C=C-1l: IF C=-129 THEN LET 
PRINT AT 4,29;AS DD-D>=0 THEN LET B=l: LET DD= C=127: SOUND 1,1 
120 PRINT AT 17,0;” ";AT 17 DD-D 260 IF AS<>” ” AND AS<>"B” AND 
+4-LEN STR$ DD;DD 200 PRINT BRIGHT 1;AT 17,6+2* AS<>"b” THEN INPUT "2";C 


130 LET D=128: LET CC=E N;B: LET D=D/2: NEXT N 270 Goro 100 























COMO CONTAR EM COMPUTÊS 

Se quisermos contar qualquer coisa 
em um computador, devemos começãr 
sempre do zero e avançar daí para ci- 
ma. Por exemplo, as locações de me- 
mória são numeradas em hexadecimal, 
de 0000 a FFFF. 

O mesmo acontece com os bits em 
um byte. Quando numeramos os bits, 
começamos a partir da direita, com o 
bit número O, e aumentamos a conta- 
gem à medida que nos deslocamos pa- 
ra a esquerda. 

Assim, o dígito binário da extrema 
direita é chamado de bit O. O que está 
imediatamente à sua esquerda é cha- 
mado de bit 1, o seguinte de bit 2 e as- 
sim por diante, até o bit 7 — aquele que 
está na extrema esquerda de um byte. 

Assim como em política, os termos 
“à direita” e “à esquerda”' podem, em 
certos casos, parecer um pouco con- 
fusos, especialmente quando lidamos 
com números de dois bytes que podem 
ser armazenados de cima para baixo, 
ou de baixo para cima, dependendo de 
como o computador opera. 

Em “computês" correto (ou seja, na 
linguagem universal dos computado- 
res), esses números são chamados de 
valor mais significativo — isto é, com 
o endereço mais alto — e valor menos 
significativo. 

Dessa forma, se você estiver arma- 
zenando um endereço — 3DBE, por 
exemplo — 3D é o byte mais signifi- 
cativo, enquanto BE é o byte menos 
significativo. 

Os computadores das linhas Sin- 
clair, TRS-BO e MSX colocam o byte 
menor oujmenos significativo — BE, no 
exemplo acima — na locação de me- 
mória mais baixa. O byte alto, que va- 
le 100 em hexa (ou 256 em decimal), 
3D neste caso, é colocado com o en- 
dereço mais alto na locação de memó- 
ria (isto é, o endereço de memória que 
recebeu 8E, mais 1). 

Existe uma única exceção para es- 
ta convenção de baixo/alto: os núme- 
ros da linha BASIC são armazenados 
em forma inversa. 

O TRS-Color, por sua vez, armaze- 
na todos os números de dois bytes na 
locação de memória mais baixa com o 
byte alto, e armazena o byte baixo na 
locação de memória mais alta. 

A mesma terminologia se aplica aos 
bits. O bit mais significativo no núme- 
ro binário 01010101, obit 7,é0,e0 
bit menos significativo, o bit O, é o 1. 


300 LET ZA=INT (Z/16): 





LET ZB= 





Z-(16*ZA) 


310 LET ZA=ZA+48: 


IF ZA>57 


THEN LET ZA=ZA+7 


320 LET ZB-ZB+48: 


IF ZB>57 


THEN LET ZB=ZB+7 
330 LET AS=CHR$S ZA: LET AS=AS+ 
CHR$ ZB: RETURN 


Io 


PRINT AT 0,7;"NUMEROS NEGAT 


Ivos” 


20 


PRINT AT 21,1;"DEC";TAB 14; 


"BIN";TAB 28;"HEX” 


30 


40 
50 
60 


LET A$S=” 


FOR N=7 TO 13 
PRINT AT N,6:;AS 
NEXT N 


70 PRINT AT 8,14;"BITS";AT 12, 
QLJTao 

80 PRINT AT 10,3;"+";AT 10,30; 
nam 








90 

DE 

95 
100 
105 
110 
LEN 
115 
116 
117 
118 
119 
120 


PRINT AT 15,8;"COMPLEMENTO 
2” 

LET C=0 

LET DD=-C 

DIM A(B) 

PRINT AT 4,0;" 
STR$ C;C 

POKE 16507,C 
LET E=PEEK 16507 
LET Z=E 

GOSUB 300 

PRINT AT 4,29;AS 
PRINT AT 17,0;" 


“;AT 4,4- 


"RAT 17, 


4-LEN STR$ DD;DD 


130 
135 
140 
las 
150 
155 
160 


LET D=128 

LET CC=E 

FOR N=1 TO 8 

LET A(N)=O 

IF CC-D>=0 THEN LET A(N)=1 

IF CC-D>=0 THEN LET CC=CC-D 
PRINT AT 4,6+2*N;A(N);AT 10 


+6+2*N; 1-A(N) 


170 
175 
180 
181 
182 
185 
186 
187 
190 
191 
192 
193 
200 





LET D=D/2 

NEXT N 

POKE 16507,DD 
LET DD=PEEK 16507 
LET D=128 

LET Z-DD 

GOSUB 300 

PRINT AT 17,29;AS 
FOR N=1 TO 8 

LET B=0 

IF DD-D>=0 THEN LET B=1 

IF DD-D>=0 THEN LET DD=DD-D 
PRINT AT 17,6+2*N;B 
LET D=D/2 

NEXT N 

PRINT AT 18,0;"--—— 





PRINT AT 19,3;"0 
0 00” 

IF INKEY$="" THEN GOTO 230 
LET AS=INKEYS 

IF A$="F” THEN LET C=C+1 
IF AS="F” AND C=128 THEN 
c=128 

IF AS="B” 
IF AS="B” 


THEN LET C=C-1 
AND C=-129 THEN 





LET 
260 
INP 
270 
300 
305 
310 
320 
330 
340 
350 


C=127 
IF AS<>"F” AND AS<>"B” 
UT C 

Goto 100 

LET ZA=INT (2/16) 

LET ZB=Z-(16*ZA) 

LET ZA=ZA+28 

LET ZB=2B+28 

LET AS=CHR$S ZA 

LET AS=AS+CHRS ZB 
RETURN 


THEN 


hay 


10 
14 
20 


SCREEN 1:KEY OFF 
VPOKE BASE (6)+27,166 
LOCATE 6,0:PRINT "Números ne 


gativos”; 


30 


LOCATE 6,1:PRINT STRINGS (17, 


223); 


40 
3 
50 
a 
so 
to 
70 


120 
130 
140 
150 
160 
165 
UND 
: NE; 
170 
175 
180 
185 
190 
200 
205 
210 
215 
220 
INS 
22! 
230 
ol 
240 
ol 
250 
260 
270 
280 
290 


LOCATE 3,3:PRINT "DEC”";TAB(I 
"BIN"; TAB(24);"HEX"; 

LOCATE 1,10:PRINT "+"; TAB(27 
+"; 

LOCATE 6,17:PRINT 
de 2"; 

LOCATE 0,21:PRINT " o 00 
0000 00 "; 

FOR J=2 TO 30 

VPOKE BASE (5) +J+19*32,223 
NEXT 

FOR J=l TO 7 

FOR K=1 TO 24 

VPOKE BASE (5)+195+K+32*J,21 


"Complemen 


NEXT K,J 

LOCATE 12,11:PRINT "BITS"; 
LOCATE 23,12:PRINT "+1" 
AT=AT AND 255 

T=-AT 

IF T=128 THEN SOUND 7,56:50 
8,15:SOUND 1,1:FORI=1 TO 50 
XT: SOUND 8,0 

LN=3:GOSUB 280 

GOSUB 310 

T=T+256*(T>127) 

GOSUB 340 

T-255- N=7 :GOSUB 280 
TeT+1:T=T AND 255:LN=13 
GOSUB 280:GOSUB 310 
T=T+256*(T>128) 

GOSUB 340 

INS=INKEY$:IF INS<>"B” AND 
<>" " AND INS<>CHRS(13) THEN 
o 

IF IN$="B” THEN AT=AT-1:GOT 
50 














IF INS=" " THEN AT=AT+1:GOT 
50 

LOCATE 0,20: INPUT AT 
LOCATE 0,20:PRINT " " 
GoTo 150 

FOR X=0 TO 7 

IF -(T AND 27X) THEN VPOKE 


BASE (5) +LN*32+87-X*2+(X>3) ,ASC( 


"1" 
7-X 
300 
310 
320 
s(T 


) ELSE VPOKE BASE (5) +LN*32+8 
*2+(X>3) ,ASC("07) 
NEXT: RETURN 

IF T<16 THEN AS="0" ELSE AS 
LOCATE 25,LN+2:PRINT AS+HEX 
J5 


330 RETURN 

340 LOCATE 0,LN+2:PRINT MIDS(” 
"+STRS(T),LEN(STRS(T))); 

350 RETURN 


Um número binário ou hexadecimal 
pode, na maior parte das vezes, atuar 
perfeitamente bem, seja ele um número 
positivo ou negativo. Mas, às vezes, 
cê precisa saber se um número é positi- 
vo ou negativo. 

Quando se quer que um programa dê 
um salto, em código de máquina, é pre- 
ciso especificar quantos bytes deve ter 
o salto a ser dado pelo computador: com 
um número positivo, no caso do salto 
para a frente; com um número negati- 
vo, para saltar para trás. 

O que o computador faz é olhar pa- 
ra o primeiro bit do número binário e 
decidir se o número é negativo ou posi- 
tivo. Se o primeiro bit for 1, o compu- 
tador o tomará como negativo. Se for 
0, ele será considerado como positivo. 

Conhecido como convenção de sinal 
esse processo indica que, ao invés de to- 
mar números binários de oito bits para 


Na convenção de sinal, o número 128 
(ou 10000000, em binário) atua como seu 
próprio negativo e o computador recomeça 
a contar de forma ascendente, 


representar a série de 0 a 255, o compu- 
tador a trata como — 128 a + 127, 

No programa de conversão de com- 
plemento de 2, você notará que o com- 
putador se atrapalha quando chega ao 
128. Isso se deve a que o 128, ou seja, 
10000000 em binário, ou 80 em hexa, 
atua como o seu próprio negativo (você 
pode verificar por si mesmo: —1 
+ 10000000 = (100000000 ou O em bi- 
nário de oito bits, do mesmo modo que 
80 + 80 = (1)00 ou O em hexa de dois 
dígitos. E 128 — 128 = O em decimal). 

Portanto, qual deles é positivo ou nm: 
gativo? O 10000000 tem o 1 em seu pri- 
meiro bit; o computador o trata como 
um número negativo: - 128. Por outro la- 
do, o O — ou 00000000 — tem o O em 
seu primeiro bit; desse modo, o compu- 
tador o trata como positivo. 


Quando posso utilizar o sistema deci- 
mal codificado em binário (BCD)? 


O BCD é empregado para imprimir 
números na tela, ou transmiti-los rapi- 
damente. Para codificar um decimal de 
dois dígitos em um byte em binário, co- 
locamos o dígito à direita nos últimos 
quatro bits significativos (um “” meio 
byte”) e o dígito à esquerda dentro do 
meio byte mais significativo. 

Existem dezesseis dígitos que po- 
dem ser codificados em quatro bits bi- 
nários. O BCD é um número hexadeci- 
mal sem as letras A, B,C,D, Ee F.O 
único problema surge quando obtemos 
um número maior que 9 em um dos 
meios bytes. 

















ORDEM E LIMPEZA 


NO VÍDEO 


Listas, tabelas e instruções são mais 
compreensíveis quando distribuídas 
pelo vídeo de forma clara e ordenada. 
Use comandos do BASIC para isso. 





Existem muitas maneiras de se dispor 
textos na tela, Mas é importante orga- 
nizar bem a exibição, especialmente se 
você está escrevendo um programa que 
outras pessoas utilizarão. 

Cada computador possui uma manei- 
ra própria de posicionar o texto na te- 
la. Algumas funções de posicionamen- 
to são padronizadas para todas as ya- 
riantes do BASIC, independentemente 
da marca do computador (exemplo: a 
função TAB e os sinais de pontuação — 
vírgulas e pontos e vírgulas — utilizados 
para separar os elementos de uma decla- 


ração PRINT). Entretanto, há outros 
comandos (associados ou não ao 
PRINT) destinados a posicionar o cur- 
sor na tela por meio do endereçamento 
por linhas e colunas e que variam ampla- 
mente entre os diversos computadores: 


Comando Microcomputador 
PRINT AT Sinclair 

PRINT O TRS 

LOCATE MSX 

HTAB ec VTAB Apple 


ERRaSES (dó) 
Eeee——— 


PRINT 


imprimirá a mensagem na próxima linha 
em branco, a partir da margem esquer- 
da da tela. 


"BOM DIA” 





[E COMO UTILIZAR TAB COM 


PRINT 

SINAIS DE PONTUAÇÃO 
E COMO MELHORAR A EXIBIÇÃO 
EM TELA 










Entretanto, existem meios para dizer 
ao computador como imprimir a men- 
sagem em uma posição diferente: 


PRINT TAB(20)"BOA TARDE” 


A função TAB é usada em conjunto 
com um PRINT. O número entre parên- 
teses especifica a coluna a partir da qual 
o texto (ou número) que se segue será 
impresso. Pode-se colocar também uma 
expressão numérica ou uma variável, 

O resultado da expressão numérica ou 
o número colocado como parâmetro po- 
dem ser fracionários, mas o computador 
usará apenas a sua parte inteira (por 
exemplo, TAB (23, 2197) será aproxima- 
do para 23). O número resultante deve 
ficar entre O e o número máximo de co- 
lunas por linha do computador. É pos- 
sível também posicionar cada palavra se- 
paradamente, Modifique a linha para: 

















PRINT TAB(20)"BOA” 
TARDE” 

A primeira palavra é impressa a par- 
tir da coluna 20, e a segunda, a partir 
da coluna 30 (TAB negativo não funcio- 
na, ou seja, não se pode recuar posições 
na linha de impressão). 

Não existe espaço em branco entre a 
palavra-chave TAB e o primeiro parên- 
tese. Alguns micros exigem ponto e 
vírgula entre o TAB e o elemento que 
o segue: 

PRINT TAB(20);" BOA”; 

TAB (30) ;" TARDE” 


SINAIS DE PONTUAÇÃO 


A função TAB indica a coluna, nu- 
ma linha de impressão na tela, a partir 
da qual o texto será exibido. 

O comando PRINT emprega vírgula 
e ponto e vírgula (e também apóstrofo, 
na linha Sinclair Spectrum), para deter- 
minar O espaço entre os elementos a se- 
rem impressos. 

Quando dois elementos de uma linha 
PRINT são separados por um ponto e 
vírgula, o computador não concede es- 
paço entre eles e: 

PRINT "TOCA”;"DISCOS” 


TAB(30)” 


imprimirá TOCADISCOS, sem separa- 
ção. Se os elementos de PRINT forem nú- 
meros, e não cordões alfanuméricos, o 
resultado dependerá do tipo de micro. 
Alguns colocarão um espaço em bran- 
co antes do número a ser impresso. 
Assim, 


PRINT "SOMA" ;25 
mostrará o resultado: SOMA 25. 

No Sinclair, entretanto, o resultado 
dessa instrução seria: SOMAZ2S. 

A vírgula funciona como a função 
TAB. A cada vírgula encontrada, o pro- 
grama coloca a próxima informação a 
ser impressa numa posição distante dez 
colunas (ou dezesseis, no Sinclair) à di- 
reita da última posição inicial. Assim, 
PRINT "TOCA", "DISCOS" 
produzirá: 

TOCA DISCOS. 


Em muitos casos, especialmente 
quando há colunas de números ou de 
palavras, a informação pode ser posicio- 
nada muito mais facilmente e com mui- 
to menos esforço de sua parte, exigin- 
do o emprego da função TAB apenas de 
vez em quando. Digite e execute as li- 
nhas a seguir, para ter uma idéia de co- 
mo isso funciona: 


10 PRINT "01234567890123456678 
901234567890" 
20 PRINT 9;9 
30 PRINT 9,9 


A linha 10 numera as colunas no to- 
po da tela. Uma vírgula separa os nú- 
meros em “campos”, cada um com dez 
colunas de extensão (dezesseis, no Sin- 
clair). Agora tente o mesmo programa 
com textos (isto é, cordões alfanuméri- 
cos), acrescentando essas linhas: 


40 LET AS="A” 
50 PRINT AS;AS 
60 PRINT AS,AS 


Normalmente, costumamos alinhar 
palavras à esquerda e números à direi- 
ta, mas os computadores descritos aqui 
não fazem isto automaticamente. 

O ponto e vírgula é essencial para 
que a função TAB funcione corretamen- 
te, pois uma vírgula após um TAB pro- 
vocará o deslocamento para uma nova 
posição de tabulação. O ponto e virgula 
também é útil no final de uma declara- 
ção PRINT. Sua função, neste caso, é 
manter o cursor de impressão na tela, 
na última posição impressa, de tal for- 
ma que o próximo comando PRINT en- 
contrado pelo programa comece a im- 
primir nessa posição, sem mudar de li- 
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TO PROGRAMAÇÃO BASIC IO 








nha na tela. O programa a seguir impri- 
me todo o alfabeto utilizando um laço 
FOR...NEXT para incrementar de um 
em um os códigos ASCII para os carac- 
teres de A a Z. 


20 FOR C=65 TO 90 
30 PRINT CHRS(C); 
40 NEXT € 


(Para micros da linha Sinclair ZX-81, 
substitua a linha 20 por FOR C=38 TO 
63, pois eles usam um código diferente 
do ASCII.) Se você não colocar o pon- 
to e vírgula ao final da linha 30, cada 
letra será impressa em uma linha sepa- 
rada. Os sinais de pontuação coTAB 
oferecem tantas maneiras de se exibir 
textos na tela que você encontrará cer- 
tamente combinações adequadas aos 
seus próprios programas. 


As linhas Sinclair contam com três 
declarações para posicionamento de tex- 
tos na tela: PRINT, PRINT AT e 
PRINT TAB. A declaração PRINT so- 
zinha imprime uma linha em branco (ve- 
ja mais adiante). 

A tela do Sinclair tem 22 linhas, nu- 
meradas de 0 a 21, a partir do topo da 
tela. Cada linha, por sua vez, tem 32 
“colunas”, ou posições, para os carac- 
teres, numerados de O a 31, a partir da 
margem esquerda da tela. O comando 
PRINT AT indica onde o texto a ser im- 








presso vai começar: os números (ou ex- 
pressões) que seguem AT indicam a li- 
nha e a coluna; as linhas: 


PRINT AT 0,0,"*" 

PRINT AT 21,0,"*" 

PRINT AT 0,31,"*" 

PRINT AT 21,31,"*” 

imprimirão um asterisco em cada canto 
do vídeo. Se você quiser imprimir mais 
de um caractere em uma locação da te- 
la, o computador imprimirá o primeiro 
caractere onde você determinar e o res- 
tante nas demais posições da mesma 
linha, 





PRINT AT 10,12;"COMPRIMENTO” 


coloca o '*C” na linha 10, coluna 12, e 
as outras letras em 10,13, 10,14... etc., 
até 10,17. 

Outro recurso interessante do PRINT 
AT é que uma linha PRINT pode con- 
ter vários AT, separados por pontos e 
vírgulas. Por exemplo, a linha nsada pa- 
ra imprimir quatro asteriscos poderia ser 
assim: 


PRINT AT 0,0,"*"; AT 21,0,"*"; 
AT 0,31,"*"; AT 21,31,"*" 


PRINT TAB 


No Sinclair, a instrução PRINT TAB 
funciona, em muitos casos, do mesmo 
modo que PRINT AT. Contudo, exis- 
tem duas diferenças: não é preciso es- 
pecificar a linha; e não se pode utilizar 


Utilizado tanto pelo comando PRINT como pelo INPUT, o ponto e vírgula serve para 


controlar o modo pelo qual a informação é exibida na tela. Ca 





é colocado no vídeo, seguindo-imediatamente o item anterior na mesma linha. 


o PRINT TAB para escrever (nem para 
apagar) por cima de qualquer material 
na tela. Se você entrar um novo PRINT 
TAB na antiga posição, a impressão se- 
rá realizada em uma linha abaixo da an- 
terior. Agora, digite: 


PRINT AT 0,15;"*" 
PRINT AT 0,15;"2" 


Limpe a tela (CLS) e tente isso: 


PRINT TAB 15;"*"; 
PRINT TAB 15;"2"; 

Comparado com o PRINT AT, o 
PRINT TAB economiza trabalho de di- 
gitação e isenta o operador da tarefa de 
lembrar-se dos números de linhas à me- 
dida que vai prosseguindo. 

O programa a seguir permite que vo- 
cê digite as notas dos alunos de uma 
classe e as disponha ordenadamente na 
tela, usando uma série de funções TAB; 
além disso, ele calcula a média das no- 
tas (digite tudo em letras maiúsculas, pa- 
ra micros da linha ZX-81): 

10 PRINT "NOME”;TAB 12;"PROVA” 
;TAB 18;"ORAL";TAB 23; "EXAME"; 
TAB 29; "MED" 
20 PRINT AT 20 
30 INPUT n$ 

35 PRINT AT 20 
40 INPUT np 
45 PRINT AT 
50 INPUT no 
55 PRINT AT 
60 INPUT ne 
70 LET m=((np+no*2)/3+ne)/2 


+0;"Nome 7?” 
+0;"Prova?” 
20,0;"Oral 7" 


20,0;"Exame?” 


80 PRINT NS;TAB 14;np; TAB 19; 
no; TAB 24;ne; TAB 29; m 
90 PRINT 


100 PAUSE 200 
110 GoTo 20 

As linhas PRINT, usadas para pedir 
os dados iniciais de cada aluno, são po- 
sicionadas com o AT na penúltima linha 
da tela. 

Ao ser rodado pela primeira vez, o 
programa limpa a tela e coloca na pri- 
meira linha as identificações correspon- 
dentes às colunas de dados. Em segui- 
da ele perguntará: “NOME?”. Digite o 
nome do aluno. Depois, perguntará su- 
cessivamente as notas da prova, do exa- 
me oral e do exame final. Entre núme- 
ros inteiros ou, no máximo, com uma 
decimal. Em seguida o programa mos- 
trará esses dados de entrada, juntamente 
com a média. Adicione as linhas: 

75 LET M=INT(M*10)/10 
76 LET NS=NS(TO 13) 

O primeiro problema é que a média cal- 
culada pela última parte da linha 80 pode 
conter muitas casas decimais. Isto é resolvi- 
do pela linha 75, por meio de uma opera- 
ção de arredondamento do resultado: mul- 
tiplicamos a média (M) por 10, tomamos o 
valor inteiro do resultado e o dividimos por 











HERE 











10. Vejamos a média 7,654321: multiplica- 
da por 10, ficaria 76,54321; seu inteiro é 76 
que, dividido por 10, é 7,6. 

Outro problema é que a primeira no- 
ta (NP) será mostrada na tela a partir 
da coluna 14. Isto quer dizer que o no- 
me do aluno não deve ter mais do que 
treze caracteres. A função TO na linha 
77 ““amputa” o nome do aluno de mo- 
do a caber nesse espaço. Para interrom- 
per o programa sem limpar a tela, pres- 
sione <CAPS SHIFT> junto com 
<BREAK> (no ZX-81, pressione ape- 
nas <BREAK >). A linha 100 lhe dará 
tempo de fazer isso. 

O programa abaixo oferece o esbo- 
ço de uma contabilidade doméstica: 


10 PRINT "NOME";TAB 10;" ITEM” 
TAB 26;" PRECO”; 

15 LET total=0 

20 FOR I=1 TO 8 

35 PRINT AT 20,0;"Data ?” 

40 INPUT ds 
45 PRINT AT 
50 INPUT 15 
55 PRINT AT 
60 INPUT p 
70 LET total=total+p 

B0 PRINT dS;TAB 10;1S; TAB 26; 
90 PRINT 

100 NEXT I 

110 PRINT TAB 26; 
120 PRINT TAB 10; 
26; total 


Use corretamente a pontuação, com 
a declaração PRINT TAB. Normalmen- 
te, dois pontos e vírgulas são utilizados 
após PRINT TAB: 


10 FOR n=l TO 21 
20-FOR t=0 TO 24 
30 PRINT TAB t;n; 
40 NEXT t 
50 NEXT n 


Quando tiver rodado o programa, 
modifique a linha 30 para: 





20,0;"Item 


20,0;"Preco?” 








TOTAL 


;TAB 


STEP 6 
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Veja como usar um ponto e vírgula para 
preencher a tela com uma mensagem 
(exemplo rodado no Spectrum). 


10 PRINT"mensaçem” 
20 goto 10 





Os apóstrofos instruem o computador a colocar o item seguinte em uma nova linha, 
quando a máquina estiver impossibilitada de fazer isso automaticamente. 
Nem todos os computadores, entretanto, contam com esse recurso de pontuação. 


30 PRINT TAB t,n; 
« € então compare-a com essa: 
30 PRINT TAB t;n 


Um ponto e vírgula significa: 
““Aproxime bem a próxima palavra, sem 
nenhum espaço"; uma vírgula significa: 
“Comece a próxima palavra no início 
da coluna O ou da coluna 15"*; uma de- 
claração PRINT TAB precisa sempre de 
dois pontos e vírgulas (do contrário, a 
desordem se instalará na tela). 





A maneira mais fácil de exibir uma 
mensagem na tela é: 


PRINT “OLA” 


Se PRINT “OLA” estiver na última 
linha da tela, esta rolará para cima, de 
modo a dar espaço à mensagem (não se 
esqueça de digitar as aspas). Limpe a te- 
la antes e tudo ficará claro: 

10 CLS 


20 PRINT “OLA” 


Agora “OLA” aparece no topo à es- 
querda. Acrescente essa linha e rode o 
programa: 


30 PRINT “ADEUS” 


“ADEUS” aparecerá abaixo de 
“OLA”. Se quiser uma linha branca en- 
tre “OLA” e '“'ADEUS”, acrescente: 


25 PRINT 


Agora você já sabe como suas men- 
sagens são organizadas verticalmente na 
tela, mas ainda não sabe como elas apa- 
recerão em cada linha. Suponha que vo- 
cê queira exibir “OLA” no meio da li- 
nha. O micro tem uma função (TAB) 
que coloca a mensagem no ponto da li- 
nha que você quiser. Acrescente essa li- 
nha e rode o programa: 


40 PRINT TAB(15);"BOA TARDE!” 


Os espaços em cada linha são nume- 
rados de O a 31 no TRS-Color, e de O 
a 63no TRS-80. Então, a mensagem na 
linha 40 começará no espaço número 15. 
Não deixe espaço entre TAB e o parên- 
tese, no TRS-Color; senão, (15) será tra- 
tado como variável e TAB não funcio- 
nará. Veja como TAB calcula o quadra- 
do, o cubo, a raiz quadrada e o inverso 
dos números de 1 a 12: 






10 cLS 

20 PRINT "NUMERO"; TAB(8);"CUBO” 
; TAB (14);"QUAD.";TAB(21);"RAIZ” 
; TAB (27); " INVER” 


30 FOR J=1 TO 12 

40 PRINT TAB(1);J;TAB(7);J*J*J; 
TAB (13) ;J*J; TAB(20); INT(SQR(J)* 
1000)/1000; TAB(26) ; INT(1000/J)/ 
1000 

50 NEXT J 


Um problema que deve ser resolvido 
neste programa, com um pouco de arit- 
mética elementar, é que a raiz quadra- 
da e o inverso do número J, calculados 
pela última parte da linha 40, podem ter 

















muitas casas decimais. Isso é resolvido 
por meio de uma operação de arredon- 
damento do resultado para conter ape- 
nas uma casa decimal: multiplicamos a 
raiz quadrada por 1000, tomamos o va- 
lor inteiro do resultado, e o dividimos 
por 1000. Vejamos, por exemplo, a raiz 
7,654321: multiplicada por 1000 ficaria 
7654,321; seu inteiro é 7654 que, divi- 
dido por 1000, ficaria 7,654. Se você 
quiser imprimir em um lugar específico 
na tela deve utilizar PRINTO (“PRINT 
arroba”) em vez de PRINT TAB. 





10 cLs 

20 PRINT 
30 PRINT 
40 PRINT 
50 PRINT 


€461,"BAIXO” 
€77,"aLTO” 
6257," ESQUERDA” 
€280,"DIREITA” 





10 cLs 
20 PRINT 
30 PRINT 


8925," BAIXO” 
€30,"ALTO” 

40 PRINT 6448," ESQUERDA” 
50 PRINT €502,"DIREITA” 


Os números após PRINTO se refe- 
rem às locações de tela (numeradas da 
esquerda para a direita, no TRS). O 
TRS-80 tem posições numeradas de O a 
1023, e o TRS-Color (32 colunas) de O 
a 511. Eis um programa que calcula as 
notas dos alunos de uma classe: 





5 cLs 

10 PRINT "NOME”;TAB(12);"PROVA” 
;TAB(18);"ORAL”; TAB(23); 
"EXAME"; TAB (29) ; "MED" 

20 PRINT €448,"NOME "; 

30 INPUT N$ 

35 PRINT 6448,"PROVA"; 

40 INPUT NP 

45 PRINT €448,"ORAL "; 

50 INPUT NO 

55 PRINT 6448," EXAME”; 

60 INPUT NE 

70 LET M=((NP+NO*2) /3+NE) /2 

B0 PRINT NS; TAB(14);NP;TAB(19); 
NO; TAB(24);NE;TAB(29);M 

90 PRINT 

100 FOR I=1 TO 400:NEXT 1 

110 coTo 20 





20 PRINT 
30 INPUT NS 


€896,"NOME "; 


35 PRINT €896,"PROVA” ; 





40 INPUT NP 

45 PRINT €896,"ORAL "; 

50 INPUT NO 

55 PRINT 6896," EXAME”; 

60 INPUT NE 

70 LET M=((NP+NO*2)/3+NE) /2 
80 PRINT NS;TAB(14);NP;TAB(19); 
NO; TAB(24);NE;TAB(29);M 

90 PRINT 

100 FOR I=1 TO 400:NEXT I 
110 coTo 20 


A linha 20 exibe os cabeçalhos das 
colunas. As linhas 40 a 70 limpam uma 
linha da tela e perguntam pelos dados 
necessários (PRINTO posiciona a linha 
que pede a informação na penúltima li- 
nha da teia). A linha 80 tabula as infor- 
mações, e a 90 calcula a média. A va- 
riável PA faz a máquina checar se a te- 
la foi preenchida. 


As vírgulas e os pontos e vírgulas 
controlam a posição do cursor. Agora 
digite: 

10 CLS 

20 PRINT"O CURSOR RETORNARA” 

30 PRINT"SEM O PONTO-E-VIRGULA” 
40 PRINT"MAS COM O PONTO-E- 
VIRGULA "; 
50 PRINT"ACONTECE ISTO" 


Um ponto e vírgula ao final de uma 
linha PRINT obriga o cursor a perma- 
necer onde estava quando terminou de 
imprimir. Acrescente essas linhas; 





60 PRINT"E QUE TAL”, 
70 PRINT"USAR”, 

80 PRINT"VIRGULAS”, 
90 PRINT"?7” 


No TRS-Color: uma vírgula no fim 
de um PRINT faz o cursor saltar para 
a outra metade da tela. TRS-80: cada 


vírgula encontrada tabula para a próxi- 
ma posição). 


' EEE 


Os controles de cursor (declaração 
LOCATE), a função TAB e o coman- 
do PRINT com sinais de pontuação ser- 
vem para melhorar a aparência das exi- 
bições na tela do MSX. A maneira mais 
fácil de mostrar uma mensagem é: 


PRINT "BOM DIA!” 


O “BOM DIA” aparecerá à esquerda 
da tela na próxima linha disponível. Se 
PRINT “BOM DIA” estiver na última 
linha da tela, esta rolará para cima, de 
modo a dar espaço à mensagem. Não se 
esqueça de digitar as aspas, ou obterá 
uma mensagem de erro. O resultado do 
comando acima ficará mais claro se vo- 
cê limpar a tela antes: 


10 cLS 
20 PRINT"BOM DIA!” 


SIR 


De todas as instruções de posiciona- 
mento do cursor, a função TAB é, cer- 
tamente, a mais utilizada. Ela se com- 
porta, na tela, como o recurso de tabu- 
lação das máquinas de escrever, posicio- 
nando o cursor alguns espaços a partir 
da borda esquerda da área de texto da 
tela. Sua forma pode ser: 


30 PRINTTAB(15)"BOA TARDE!” 


Você pode colocar, se quiser, um 
ponto e vírgula depois do parêntese, 
mas isso não é necessário. Não deve 
existir espaço entre TAB e seu argumen- 
to entre parênteses, cujo valor está no 
ponto inicial do cordão impresso. 

Funções TAB múltiplas podem ser 
utilizadas para posicionar várias obser- 
vações em cada linha da tela. 


30 PRINTTAB(10)"BOA” TAB(20)"TA 
RDE!” 


Neste caso, B é impresso na coluna 
10, e T, na 20 (o valor do argumento 
sempre se refere à distância da borda es- 
querda da área de texto). 

TAB é a abreviação de “tabular”. 
Veja no programa a seguir como essa 
função pode ser útil (ela calcula o qua- 
drado, o cubo, a raiz quadrada e o in- 
verso dos números de 1 a 12): 


10 cLS 

20 PRINT"NUMERO" TAB (10) "QUADRAD 
O" TAB (20) "CUBO" TAB (30)"40 POT” 
30 FORJ=1TOZ0 

40 PRINTJ;TAB(10) J*J;TAB(20)J*J 
*J; TAB (30) J*J*I*I 

50 NEXT 


Ao rodar o programa, você verá uma 
tabela de números sendo montada. To- 
da vez que o programa passar pelo la- 
ço, uma outra linha de números será exi- 
bida na tela (TAB permite colocar cada 
número na coluna correta). 


Ei 


Suponhamos que você queira impri- 
mir em um lugar específico na tela, e 
não apenas na próxima linha disponível. 
Neste caso, PRINT TAB não é o mais 
indicado: use LOCATE. 

No MSX LOCATE pode ser usada 
para controlar o posicionamento do cur- 
sor em qualquer ponto da tela, como 
ocorre com os comandos PRINT AT, 
PRINTO e HTAB/VTAB de outras 
máquinas. Tente o programa abaixo: 





10 CLS 

15 LOCATE 14,23 
20 PRINT"SUL” 
25 LOCATE 12,1 
30 PRINT"NORTE” 
35 LOCATE 0,12 
40 PRINT"OESTE” 
45 LOCATE 25,12 
50 PRINT"LESTE” 


O programa escreve os pontos car- 
deais junto às quatro margens da tela. 

A declaração LOCATE define, com 
dois números, a próxima posição do 
cursor da tela de textos. O primeiro ar- 
gumento deve ser um número entre O e 
39 e diz ao computador da coluna a ser 
posicionada. O segundo, um número de 
0a 24, indica a posição da linha a ser 
posicionada. Os argumentos que seguem 
LOCATE podem ser números, variáveis 
ou expressões com resultado numérico; 
e somente será considerado o seu valor 
inteiro (não fracionário) para o cálculo 
da posição. 

Assim, para posicionar uma declara- 
ção PRINT em um ponto escolhido, es- 
tabeleça a posição X (para coluna) e Y 
(para carreira) e coloque no programa 
um LOCATE antes do PRINT. 


[oie RSRS 


As entradas de dados através do co- 
mando INPUT podem ser posicionadas 
da mesma forma que as mensagens que 
usam o comando PRINT: 


10 CLS 

20 LOCATE 10,10: INPUT"SEU NOME” 
:NS 

30 LOCATE 12,22:PRINT "OLA, " 
ENS; rt” 





Esse programa imprimirá a primeira 
instrução na coluna 10 e na linha 10, 
orientando o usuário com uma mensa- 


gem seguida de um ponto de interroga- 
ção, para efetuar uma entrada de dados 
com o INPUT. Qualquer coisa que seja 
digitada será armazenada na variável 
NS. A linha 30 apenas imprime o nome, 
desta vez na coluna 12 da linha 22. O 
LOCATE não precisa aparecer necessa- 
riamente na mesma linha que o INPUT 
eo PRINT. Eis aqui um programa que 
utiliza tanto LOCATE quanto PRINT 
TAB e que serve para calcular e exibir 
as notas dos alunos de uma classe: 


10 CLS:KEYOFF 

20 PRINT"NOME"TAB(10) "NOTA 1"TA 
B(20) "NOTA 2" TAB(30) “MEDIA” 

25 FORX=1TOIS 

30 LOCATEO, 22: INPUT"NOME 
40 LOCATEO,22: INPUT"NOTA 1” 
50 LOCATEO, 22: INPUT"NOTA 2";N2Z 
60 LOCATEO,X:PRINTNS;TAB(10)N1; 
TAB(20)N2; TAB (30) (NI+N2)/2 

70 NEXT 





A linha 20 exibe os cabeçalhos das 
colunas no topo da tela. As linhas 30 a 
50 perguntam pelos dados necessários. 
LOCATE é necessário para posicionar 
a linha que pede a informação na penúl- 
tima linha da tela; sua não inclusão de- 
sorganizaria a tabela que está sendo 
montada na parte de cima. A linha 60 
tabula a informação que você acabou de 
fornecer à máquina e calcula a média. 


O uso correto dos sinais de pontua- 
ção do PRINT é importante quando se 
está exibindo informações na tela. As 
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vírgulas e os pontos e vírgulas contro- 
am a posição do cursor (o quadrado ou 
o sinal de sublinha que assinala onde 
aparecem os caracteres). 

10 CLS 

20 PRINT"O CURSOS MUDA DE LINHA 


30 PRINT"SEM O PONTO-E-VIRGULA” 
40 PRINT"MAS, COM ELE "; 
50 PRINT"TUDO MUDA!” 

Quando se inclui um ponto e virgula 
ao final de uma linha PRINT no pro- 
grama, o cursor não retorna ao início da 
próxima linha: ele permanece exatamen- 
te onde estava quando terminou de im- 
primir. A próxima declaração PRINT 
continua diretamente depois da última 
declaração. Acrescente essas linhas ao 
programa e rode-o: 


60 PRINT 

70 PRINT"E QUE TAL”, 

80 PRINT"USAR VIRGULAS?”, 
90 PRINT"E VER”, 

100 PRINT"O QUE ACONTECE?” 


é | EESSERSRE) 


Você provavelmente já conhece este 
comando: 


PRINT "BOM DIA!” 


O seu computador imprimirá a men- 
sagem na primeira linha disponível, co- 
meçando no limite esquerdo da tela. Se 
você digitar o programa: 


10 HOME 
20 PRINT "BOM DIA!” 


verá que a tela será apagada e que a sua 
mensagem aparecerá na primeira linha, 
como se tivesse dado uma folha de pa- 
pel em branco ao computador. 

Mas é possível fazer com que a men- 
sagem apareça numa posição diferente. 
Adicione essa linha: 


30 PRINT TAB( 15)"BOA TARDE!” 


A mensagem aparece centralizada na 
tela. A primeira letra foi colocada na co- 
luna 15 da linha de impressão. A tela de 
textos do Apple II tem 24 linhas de qua- 
renta colunas de largura, cada. Você 
também pode usar mais que um TAB 
por linha: 


40 PRINT TAB( 10)"DIA”; TAB( 
20)" TARDE”; TAB( 30)"NOITE” 


- E se você quiser pular linhas? É fá- 
cil: experimente adicionar as linhas abai- 
xo ao seu programa: 


25 PRINT 
35 PRINT 


Um comando PRINT sem nada de- 
pois significa simplesmente uma linha 
em branco na tela. 
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Nas declarações PRINT e INPUT, as vírgulas indicam que a informação será e: 
-Color têm dois campos de dezesseis coluni 





campos, O ZX-81, o Spectrum e o T 








ja em 





o MSX e o Apple II, três campos de oito colunas; já o TR$-B0 conta com quatro campos. 


ULTRA 


O Apple II tem outro sistema para 
posicionar mensagens na tela. 


10 HOME 


30 HTAB 15 : PRINT "BOA TARDE” 


Observe que o efeito é semelhante ao 
do PRINT TAB. Acrescente a linha a 
seguir e rode o programa novamente: 


20 VTAB 15 


A sua mensagem está agora no cen- 
tro da tela. Com esses dois comandos, 
HTAB (abreviatura de horizontal tabu- 
lation) e VTAB (vertical tabulation), 
você pode colocar o cursor (e suas men- 
sagens) em qualquer lugar da tela. 


ITS 


As entradas de dados através do IN- 
PUT podem ser posicionadas da mesm 
forma que as mensagens com PRIN 











10 HOME 

20 VTAB 10: HTAB 10: INPUT "SE 
U NOME? ";N$ 

30 VTAB 22: HTAB 12: PRINT "OL 


A, CGNS;TIM 

A primeira instrução será impressa na 
coluna 10 e na linha 10, orientando o 
usuário com uma mensagem, seguida de 
um ponto de interrogação, para entrar 
dados com o INPUT. Qualquer coisa 


que seja digitada será armazenada na 
variável N$. A linha 30 imprime o no- 
me, desta vez na coluna 12 da linha 22. 
A ordem em que VTAB e HTAB apa- 
recem no programa não é importante. 
Se você não quiser um ponto de inter- 
rogação, omita-o da linha 20. 


INPUT"ENTRE O CUSTO EM CZ$:"; 
custo 


Um ponto de interrogação prejudica- 
ria a clareza da tela. O programa ab; 
xo serve para calcular e exibir as notas 
dos alunos de uma classe: 





10 HOME 


20 INPUT "QUANTOS ALUNOS? ";A 


30 HOME : PRINT "NOTAL”,"NOTAZ 
", “MEDIA” 

40 FORJ=1 TOA 

50 VTAB 21: INPUT "NOTAL? ";N1 


60 VTAB 21: INPUT "NOTAZ? ";N2 
70 VTAB J + 3: 
+ N2) / 2 


80 NEXT 


PRINT N1,N2, (N1 


A linha 20 exibe os cabeçalhos das 
colunas no topo da tela. As linhas 40 a 
70 limpam uma linha e perguntam pe- 
los dados necessários. O HTAB e o 
VTAB antes do INPUT são necessários 
para posicionar a linha que pede a in- 
formação na penúltima linha da tela. 

A linha 80 tabula a informação que 
você acabou de fornecer à máquina, e 





a linha 90 calcula a média. 

A média das notas pode dar um re- 
sultado com muitas casas decimais (uma 
dízima periódica, por exemplo). Ora, es- 
se resultado não caberia na linha de te- 
la do Apple II, extravasando para a li- 
nha seguinte e “estragando” o aspecto 
da tela. Isso pode ser resolvido por meio 
de uma operação de arredondamento 
para que o resultado contenha apenas 
uma casa decimal; multiplicamos a raiz 
quadrada por 1000, tomamos o valor in- 
teiro do resultado, e o dividimos por 
1000. Vejamos, por exemplo, a média 
7,654321: multiplicada por 1000 ficaria 
7654,321; seu inteiro é 7654 que divi- 
dido por 1000 ficaria 7,654. Se você qui- 
ser um resultado com duas casas deci- 
mais, ao invés de três, multiplique e di- 
vida por 100. Substitua a linha: 





70 VTAB J + 3: PRINT N1,N2, 
INT((N1+N2)/2/10)*10 


PONTUAÇÃ! 


Em BASIC, a pontuação oferece três 
ssibilidades: a vírgula, o ponto e 
vírgula e a ausência de pontuação. O 
ponto e vírgula faz com que o cursor 
não mude de posição após imprimir 
uma mensagem na tela, o que resulta em 
uma justaposição, se várias delas forem 
impressas em segúência: 





10 HOME 
20 A = 10:B = 20:C = 30 
30 PRINT A;B;C 


A vírgula produz um efeito bem di- 
ferente. Tente adicionar essa linha e ve- 
ja o que acontece: 


40 PRINT A,B,C 


A tela, neste caso, é dividida em três 
colunas de tabulação automática e tu- 
do que for mostrado na tela obedecerá 
a essa tabulação, exceto se algum dado 
exceder o tamanho da coluna. 

Neste programa mostramos como a 
tabulação automática com a vírgula po- 
de ser útil (ele calcula o quadrado e o 
cubo dos números de 1 a 20): 


10 HOME 

20 PRINT "NUMERO", "QUADR”,"CUB 
o” 

25 PRINT 

30 FORJ = 1 TO 20 


40 PRINT J,J*JSJ*I*I 
50 NEXT 


Você verá uma tabela de números 
sendo montada. Toda vez que o progra- 
ma passar pelo laço uma outra linha de 
números será exibida na tela. A utiliza- 
ção do TAB permitirá que você coloque 
cada número na coluna correta. 
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Se você gosta de enfrentar desafios, 
aprenda a tornar mais complicados 
seus jogos de labirinto, incorporando 
a eles níveis crescentes de 
dificuldade. E veja quanto tempo leva 
para encontrar um tesouro oculto no 
esconderijo de um sangiúinário pirata. 


Muitos programas pedem que se es- 
colha um nível de dificuldade, antes de 
começar o jogo. Essa exigência permite 
que tanto os iniciantes quanto os espe- 
cialistas possam utilizar o mesmo jogo, 
sem que este se torne excessivamente fá- 


cil ou difícil. Existem muitas maneiras 
de se introduzir níveis de dificuldade em 
um jogo, dependendo da sua natureza. 
Por exemplo: podemos mudar o núme- 
ro de inimigos enfrentados pelo joga- 
dor; desenvolver a ação em diferentes 
velocidades; conceder maior ou menor 
tempo para o jogo; variar os problemas 
a serem encontrados pelo jogador, e as- 
sim por diante. 

Desta vez, vamos aprender a incor- 
porar níveis de dificuldade a um progra- 
ma de jogo de labirinto. O jogo esco- 
Ihido emprega uma entre duas maneiras 
possíveis de se produzir níveis de difi- 
culdade — o método a ser utilizado em 
detalhe dependerá do modelo de seu 


m COMO DESENHAR UM 


LABIRINTO ALEATÓRIO 


m DUAS MANEIRAS DE TORNAR 


O JOGO MAIS DIFÍCIL 
DESCUBRA O TESOURO 


computador. O jogo não envolve ape- 
nas a tentativa de se achar o caminho 
através do labirinto, mas também uma 
limitação no tempo de que dispõe o jo- 
gador para guiar um homenzinho até 
um tesouro desenhado em algum lugar 
do labirinto. Não apresentaremos aqui 
uma versão do programa para micro- 
computadores da linha ZX-81, pois o jo- 
go ficaria excessivamente lento. Tam- 
bém não será apresentada versão para 
micros da linha TRS-80, devido à baixa 
resolução gráfica do vídeo desses mode- 
los. 

Existem basicamente duas formas de 
aumentar a dificuldade de resolução de 
um labirinto: ou se altera o limite de 
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tempo, ou se varia a complexidade do 
labirinto. A razão pela qual devemos es- 
colher métodos diversos, de acordo com 
o tipo do computador, tem a ver com 
a maneira como o labirinto é produzi- 
do. Esse exemplo mostra que você pre- 
cisa decidir o caminho a seguir, quan- 
do quiser inventar jogos com diferentes 
níveis de dificuldade. 


Uma das maneiras de tornar mais ex- 
citante um jogo de labirinto consiste em 
impor algum tipo de penalidade ao jo- 
gador que esgota seu tempo sem encon- 
trar o tesouro. Pode-se, por exemplo, 
fazer com que ele perca alguns pontos 
na contagem; mas a penalidade mais co- 
mum é obrigá-lo a perder uma “'vida””. 

Nesse jogo daremos três “vidas” ao 
jogador: se ele não achar o tesouro den- 
tro do limite de tempo, em três tentati- 
vas, O jogo terminará. 


ELSE 


O jogo é baseado em uma sub-rotina 
de produção de labirintos aleatórios (ou 
seja, de desenho gerado ao acaso). É um 
programa muito interessante, pois dese- 
nha um labirinto totalmente diferente de 
cada vez, evitando assim que você tenha 
dear uma série enorme desses de- 

os. Já mostramos, em um artigo an- 
terior, como projetar labirintos, utili- 
zando linhas DATA para incorporar o 
seu desenho ao programa, Imagine, en- 
tão, como seria complicado incluir vá- 
rios labirintos ao programa, usando es- 
sa técnica. 

A geração aleatória de labirintos é 
muito mais fácil do quê isto, embora 


apr algumas dificuldades, 
» Uma maneira óbvia de 
á-los, por exemplo, seria desenhar 
blocos gráficos aleatoriamente na tela. 
O prol neste caso, é que nada ga- 


rante que se formem caminhos interio- 
res entre os blocos; ou seja, pode não 
surgir um verdadeiro labirinto. Assim, 
caso escolhesse esse método, você teria 
que encontrar maneiras de checar a exis- 
tência-de;-no mínimo, uma saída. 


CE Tv) 





O melhor modo de se desenhar labi- 
rintos aleatórios é inventar um progra- 
ma que trace caminhos ao acaso, 
incluindo-os depois no desenho final. O 
programa proposto a seguir foi desen- 
volvido de tal forma que a linha do ca- 


“minho aleatório fica contida no interior 
da moldura desenhada na tela. Não é 
permitido que a linha cruze com ela mes- 
ma. Quando o caminho aleatório não 
puder prosseguir, o programa fará o 
mesmo percurso de volta. Ele faz isso 
passo a passo, examinando a área em 
torno do caminho anteriormente traça- 
do, até encontrar espaço livre para pros- 
seguir. Quando esse espaço é encontra- 
do, o programa inicia um outro desvio 
no caminho aleatório, prosseguindo por 
ele até ser imobilizado novamente, e as- 
sim por diante. O computador continua 
tentando desenhar novos caminhos até 
que toda a tela seja preenchida; nesse 
momento, ele volta ao ponto de partida. 

Quando o programa acaba de de: 
nhar o labirinto, apenas um caminho li- 
vre aparece na tela; esse caminho pode 
ser facilmente distinguido, pois os des- 
vios não são muito complicados. O la- 
birinto também será solucionável atra- 
vés da regra da mão direita. De acordo 
com essa regra, é sempre possível sair de 
um labirinto, seguindo-se a sua parede 
direita (ou esquerda, tanto faz, desde 
que seja sempre a mesma). Para impe- 
dir que alguém aplique a regra, basta 
construir algumas ilhas no labirinto, 
obrigando o pobre jogador a ficar dan- 
do voltas sem fim. Assim, após desenhar 
um labirinto, o programa traça um cer- 
to número de blocos aleatórios que fa- 
zem com que o desenho pareça mais 
complexo, impedindo que alguém recor- 
ra à regra da mão direita. 

Uma vez digitado, guarde o progra- 
ma em fita ou disco, pois o próximo ar- 
tigo mostrará como acrescentar a ele al- 
guns efeitos sonoros. 


O programa para os micros da linha 
Spectrum começa estabelecendo os blo- 
cos gráficos, introduzindo as variáveis 
e fazendo uma preparação geral para 
o jogo. Digite essa seção do programa, 
mas não a execute ainda: 





10 FOR n=0 TO 23: 
POKE USR “a"+n,a: 
20 LET hs=0 


READ di 
NEXT Tm 


30 INPUT "Selecione nivel (1 
a 6) "ita 

40 LET ta=1100-100*ta 

50 BORDER 1: PAPER 1: INK O: 
CLS : INK 7 

60 LET s=0: LET vidas-3 

70 PRINT BRIGHT 1; PAPER 6; 
INK 2; RECORDE 


” SCORE 


490 DATA 24,24,60,82,82,24,36, 
36,127,65,93,85,81,95,64,127, 
24,24,255,255,24,24,24,24 


A linha 10 define os blocos gráficos 
para o jogo — um homenzinho, o tesou- 
ro e uma cruz — por meio da leitura dos 
dados na linha 490. A variável que ar- 
mazenará o recorde — HS (Aigh score) 
— é zerada na linha 20. 

A seguir, pede-se ao jogador para es- 
colher um nível de dificuldade de 1 a 6 
(TA). Quanto menor for o número, 
mais baixo será esse nível (e, portanto, 
mais fácil será o jogo). Você verá que 
na linha 40 os números mais baixos es- 
tabelecem tempos maiores, e os núme- 
ros mais altos, tempo menores. 

As cores da tela e dos gráficos são es- 
tabelecidas na linha SO. A linha 60 zera 
o placar e atribui as três “vidas” ao jo- 
gador. A linha 70, finalmente, exibe as 
palavras ESCORE (contagem) e RE- 
CORDE, juntamente com os espaços 
em branco para colocar os números cor- 
respondentes, na tela. 


SA 


Agora, digite essas linhas: 


80 FOR n=22561 TO 22589: POKE 


n,16: POKE n+640,16: NEXT n 
90 FOR n=1 TO 21: POKE 22528+ 
n*32,16 POKE 22558+n*32,16 


: POKE 22559+n*32,9: NEXT n 
100 LET b=22593: 


LET a-b 
110 DIM a(4): LET a(1)=-1: LET 
a(2)=- 32: LET a(3)=1: LET a(4 
Vea 
120 POKE a,56 
130 LET 3=INT (RND*4)+1: LET q 
= 
140 LET b=ata(3)*2: IF PEEK b= 
B THEN POKE b,): POKE ata(3), 
56: LET a=b : GOTO 130 
150 LET 3=)+1: IF 9=5 THEN 
LET 3=1 
160 IF 3<>g THEN GOTO 140 
170 LET )=PEEK a: POKE aç96: 
IF )<5 THEN LET asdoa(n)aZ: 
GoTo 130 


180 POKE 22625456 

190 FOR n=-Lto 20 

200 LET k=22528+64*(INT (RND*9 - 
)+2)4 INT (RND*29)+] 

210 POKE k,56: NEXT n 


A borda do labirinto é 
linhas 80 e 90, prio 
meio de comandos POKE nas 


portanto uma borda constituída de blo- 
cos vermelhos. As linhas 100 a 180 de- 
senham o labirinto. Não caia na tenta- 
ção de interromper o programa e lim- 
par a tela nesse ponto. Se você fizer is- 
so, o labirinto se perderá, pois ainda está 
armazenado apenas no arquivo de atri- 
butos. Para completar o labirinto, as li- 
nhas 190 a 210 exibem vinte quadrados 
em posições aleatórias dentro do labi- 














rinto. Se um quadrado ““cair”” em cima 
de uma parede, uma passagem será au- 
tomaticamente aberta. 


RAR eo) 


A próxima seção do programa diz 
respeito ao jogo em si (não tente ainda 
rodar o programa): 


220 LET x=15: LET y=10 
230 LET tx=INT (RND*15)*2+1 
240 LET ty=INT (RND*10)*2+2 
250 PRINT BRIGHT 1; PAPER 2; 
AT 0,7:5;AT 0,24:hs 
260 POKE 23672,0: POKE 23673,0 
270 PRINT FLASH 1; PAPER 3; 
INK 6;AT ty, tx;CHRS 145 
280 PRINT INK PAPER 7;AT y 
+X;CHRS 144 
290 IF PEEK 21672+2564PEEK 
23673>ta THEN GOTO 390 
300 IF INKEYS="" THEN 
290 
310 LET aS=INKEYS: 
LET sy=y 
320 IF aS="2z” AND ATTR 
>=56 THEN LET x=x-1 
330 IF aS="x" AND ATTR 
>=56 THEN LET xext+l 
340 IF aS="k” AND ATTR 
>=56 THEN LET y-y-L 
350 IF ao m” AND ATTR 
H ET y 











Goto 


LET sxrx: 








(yox=1) 





(yexti) 
(y-luxso 


tytlox) 


A posição inicial do homenzinho é es- 
tabelecida pela linha 220; o Homenzinho 


passo que a linha 260 zera 
ômetro interno por meio de dois | 


CHRS$ 144 e CHRS 145 das li- 
nhas 270 e 280 são utilizados 
para exibir os blocos cod 
cos a oaios para( ( 

esses códigos. O CHR$ 


nativo através de letras, como foi expli- 
cado anteriormente. As linhas restantes 
(ou seja, da 300 à 380) se ocupam com 
a movimentação do homenzinho no la- 
birinto. As linhas 320 a 350 verificam se 
está sendo pressionada a tecla adequa- 
da, e se o próximo quadrado para a mo- 
vimentação é um caminho e não uma 
parede. O teste utiliza o ATTR, que já 
foi explicado anteriormente. A linha 260 
anula a última posição do homenzinho 
eo exibe novamente em uma posição di- 
ferente. A linha 370 testa se o homenzi- 
nho atingiu o tesouro. Se ele atingiu, a 
contagem de pontos é aumentada, an- 











tes de se sortear e exibir um outro tesou- 
ro a ser encontrado. 


AU [Aa 


A última seção final do programa é 
apresentada a seguir. Agora, finalmen- 
te, você pode rodá-lo. 


390 PRINT FLASH 1; PAPER O; 
INK S;AT y,x;CHRS 146 


400 LET vidas=vidas-l: FOR f=1 
TO 200: NEXT £: IF vidas>0 
THEN GOTO 260 

410 IF s>hs THEN LET hs-s 







é empregado aqui porque é mais fácil de 
ser visto na listagem do pr a 15 
bora você possa utilizar o método alte: DO aiii 








420 PRINT BRIGHT 1; PAPER 2; 
AT 0,24;hs 
430 PRINT FLASH 1;AT 10,1;”" P 


ressione qualquer tecla para 
Jogar de novo ” 

440 IF INKEYS<>"” THEN GOTO 
440 

450 IF INKEY$="" THEN GOTO 
450 

460 Goto 30 

470 LET s=stta-PEEK 23672+256* 
PEEK 23673: GOTO 230 

Quando o jogador perde uma “*vi- 
da”, e antes mesmo que a linha 400 sub- 
traia 1 ao total de “vidas”, uma cruz 
piscante (CHRS$ 146) é exibida pela li- 
nha 390. Existe ainda uma pausa antes 
que o jogo retorne à linha 260, a qual 
coloca novamente o relógio em 0, de 
modo a ficar pronto para outra tentati- 
va de atingir o tesouro. Esse retorno, 
evidentemente, só ocorrerá se o jogador 
ainda tiver mais “'vidas” para usar. 

Se não restar nenhuma “'vida”, a li- 
nha 410 compara o placar final com o 
último recorde. O recorde registrado é 
alterado quando o escore for maior. Em 
ambos os casos, a linha 420 exibe o re- 
corde obtido até o momento. 

A linha 410 é necessária para blo- 
quear o jogo, caso o jogador ainda es- 
teja pressionando uma das teclas de mo- 
vimentação. A linha 420, por sua vez, 
bloqueia o programa até que uma nova 
pressão em qualquer tecla assinale que 
o jogador quer prosseguir. 

A linha 470 calcula o escore, logo 
após o encontro do homem com o te- 
souro. O teste está na linha 370. 


A tela de texto proporciona a manei- 
ra mais fácil de se desenhar um labirin- 
to nos micros da linha TRS-Color. Mas 
os labirintos assim obtidos seriam mui- 
to simplificados por causa do grande ta- 
manho e do pequeno número de blocos 
gráficos disponíveis. 

Em vez disso, o programa aqui pro- 
posto desenha os labirintos na tela com 
gráficos de alta resolução. Embora seja 
mais complicado do que o que sé pode 
conseguir na tela de textos, ele tem a 
vantagem de desenhar labirintos de di- 
ferentes complexidades, fornecendo as- 
sim vários níveis de dificuldade. 

Imagine que o caminho seja forma- 
do por uma série de blocos quadrados. 
Se você quisesse desenhar um labirinto 
bem simples, bastaria escolher um blo- 
co grande, ao passo que, se quisesse um 
labirinto mais complexo, deveria optar 
por um bloco de menor tamanho. 

A primeira seção do programa intro- 
duz as variáveis e prepara o computa- 
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dor para desenhar labirintos aleatórios. 
Digite o programa, mas não execute ain- 
da, senão você obterá um erro do tipo 
UL — linha indefinida —, quando o 
programa tentar executar o GOSUB 
1000 da linha 110. 


10 PMODE 4,1 

20 CLS:PRINT €193,"NIVEL DE DIF 
ICULDADE (0-5)"; 

30 LS=INKEYS:IF L$<"0” 
” THEN 30 

40 BS=12-VAL (LS) :NX=2XINT(.5+12 
8/BS) :NY=2*INT(.5+96/BS) 

50 SX=250-BS*NX:SY=190-BS*NY 
60 DIMP(NX,NY),A(5S),B(5) 

70 PCLS 5: DRAW"S"+STRS (INT(8.5 
-4*VAL (L$) /5)) +"COBMO, OBRZBDNFN 
GDINFG” 

80 GET (0,0)-(BS-1,BS-1),A,G 

90 GET(10,10)-(BS+9,B5+9),B,G:C 
OLOR 5,0 

100 CLS:PRINT €226,"GERANDO LAB 
IRINTO DE NIVEL ";LS 

110 GosuB 1000 

120 goto 120 


A linha 10 diz ao computador para 
utilizar o quarto modo gráfico (PMO- 
DE 4) para todo o programa. A tela de 
alta resolução não é ligada nesse está- 
gio. A linha 20 exibe, então, a mensa- 
gem NÍVEL DE DIFICULDADE (0 - 


3); 

LS$ é o nível que o jogador escolheu. 
O valor numérico de LS — VAL (LS) 
na linha 40 — regula o tamanho do blo- 
co, a extensão do caminho e a comple- 
xidade do labirinto. O INKEYS$ na linha 
30 significa que o jogador não precisa 
digitar mais que o único dígito em res; 
posta à pergunta, e que o programa co) 
tinua sem que ele precise pressionar 
<ENTER>. 


OR L$>"5 
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Na linha 40, o BS é o tamanho do 
bloco gráfico, em pixels. Esse tamanho 
pode variar de sete a doze pixels, NX é 
o número de blocos na direção horizon- 
tal, e NY é o número de blocos na dire- 
ção vertical. 

Antes de desenhar o labirinto na te- 
la, o computador calculará sua aparên- 
cia final e colocará essa informação no 
conjunto P, o qual é dimensionado 
(DIM) na linha 60. O conjunto A con- 
tém o formato do homenzinho, e o con- 
junto B, um espaço em branco, de mo- 
do a provocar sua animação gráfica. O 
homenzinho é desenhado pela linha 70. 
Nesse programa o homenzinho será de- 
senhado em tamanho maior, quando o 
caminho do labirinto for mais largo, e 
menor quando for mais estreito. 

Agora que o homenzinho foi dese- 
nhado, a linha 80 o coloca no conjunto 
A por intermédio de um comando GET, 
ea linha 90 preenche o conjunto B de 
branco. Nas lições anteriores, quando 
um espaço em branco era utilizado em 
um jogo, não era necessário colocar na- 
da no conjunto: tínhamos apenas um 
conjunto vazio. Desta vez, é necessário 
um espaço em branco, de modo a com- 













binar com a cor de fundo do caminho. 

O comando COLOR na linha 90 as- 
segura que o labirinto será desenhado 
mais tarde na cor correta (de outro mo- 
do você estaria desenhando um labirin- 
to preto sobre um fundo preto). 

A linha 100 diz ao jogador que o la- 
birinto está sendo produzido; pode de- 
morar algum tempo até o desenho apa- 
recer. 


[a ARO) 


Agora digite a sub-rotina de produ- 
ção do labirinto — chamada pela linha 
110 — e você poderá rodar o programa: 


1000 FOR J=0 TO NX:P(J,NY)=6:P( 
J,0)=6:NEXT 

1010 FOR J=0 TO NY-2:P(0,J)=6:P 
(NX,J) =6:NEXT 

1020 X=2:Y=2:LX=2:LY=2 
1030 J=RND(4)-1:G=J 

1040 Y=LY+2*((J=0)-(J=2)) 
2*((J=3)-(J=1)) 

1050 IF P(X,Y)=0 THEN P(X,Y)=J+ 
1:P((X+LX)/2, (Y+LY)/2)=5:LX=X:L 
Y=Y:GOTO 1030 

1060 J=(J+1)AND 3: IF 
1040 

1070 J=P(LX,LY)-1:P(LX,LY)=5:IF 
J<4 THEN LX=LX-2*((J=3)-(J=1)) 
:LY=LY-2*((J=0)-(J=2)):GOTO 103 
o 


:X=LX+ 


J<>G THEN 


1080 FOR J=0 TO 20:P(2+2*RND((N 
X-3)/2) , 1+RND(NY-3))=5:P (1+RND( 
NX-3),2+2*RND((NY-3)/2))=5:NEXT 
1090 SCREEN 1,1:PCLS 

1100 FOR J=2 TO NX-2:FOR K=2 TO 
NY-2 

1110 IF P(J,K)=5 THEN LINE(J*BS 
+5X,K*BS+SY) - ((J+1) *BS+SX-1, (K+ 
1)*BS+SY-1),PSET,BF 
1120 NEXT K,J:RETURN 


“As linhas 1000 a 1080 “desenham” 
o labirinto na memória do computador 
'ê armazenam a sua forma no conjunto 
P — cada elemento do conjunto corres- 


ponde a um bloco do labirinto. A sub- 
rotina armazena o número 5 em P onde 
quer que exista um caminho, e o núme- 
ro 0, se existir uma parede. Uma vez que 
o labirinto tenha sido armazenado em 
P, a linha 1090 liga a tela de alta reso- 
lução e a deixa pronta para a execução 
do desenho. 

As linhas 1100 e 1120 exibem o labi- 
rinto na tela mediante a verificação dos 
conteúdos de P. Quando um 5 for en- 
contrado, um quadrado branco será im- 
presso. 


SR PRI 


Agora você precisa de um jogo para 
acompanhar o seu labirinto aleatório. 
Digite a próxima seção do programa, 
mas não o rode porque ele chamará uma 
sub-rotina que ainda não existe. 

120 X=2:Y=2:LX=2:LY=2:TL=B00:LI 
3 

130 TIMER=0 

140 X1=1+RND (NX-3):Y1=1+4RND (NY 
J:IF P(X1,Y1)=5 THEN P(XI,Y1)- 
7:DRAW "S4COBM"+STRS (SX+X1*BS) + 
”, "+STRS (SY+Y1*BS) +" BFRSDSL3U3R 
D” ELSE 140 

150 X1=X*BS+SX:Y1=Y4BS+SY 

160 PUT(X1,Y1)-(X1+BS-1,Y1+BS-1 
) + A, PSET 
170 IF PEEK (338)=251 THEN Y=Y- 


1 
180 IF PEEK (342)=253 THEN Y=Y+ 


1 
190 IF PEEK (340)=247 THEN X=X- 
1 


200 IF PEEK (338)=247 THEN X=X+ 
1 

210 IF P(X,Y)=7 THEN F=1:P(X,Y) 
=5: GOTO 230 

220 IF P(X,Y)<>5 THEN X=LX:Y=LY 
:GOTO 170 

230 IF X<>LX OR Y<>LY THEN PUT 
(X1,Y1)-(X1+BS-1,Y1+BS-1),B,PSE 
T:LX=X:LY=Y:FOR P=1 TO 68:NEXT 
240 IF F=1 THEN F=0:SC=SC+(TI-T 
IMER) :TI=TI-10:GOTO 130 

250 IF TIMER TI THEN GOSUB 500 
: IF LI<I THEN 100 

260 Goto 150 


120, que substitui a linha 120 

anterior, contém as variáveis 

quais é calculada a posição 

inho. X, Y é a localização 

homenzinho, e LX e LY, sua 

ição; poré: m virtude da 

variável do caminho, os valores 

ser ligeiramente ajustados um 

pouco antes de o homenzinho aparecer 

na tela. TI é o limite de tempo para des- 

cobrir o tesouro. Esse tempo limite é de 

dezesseis segundos. Se o homenzinho 
não tiver encontrado o tesouro, q! 
do o tempo se esgotar, perderá uma 


























da”. No início do jogo, o jogador tem 
três “vidas” — LI=3. 

O cronômetro interno do computa- 
dor é zerado na linha 130, antes que a 
linha 140 selecione uma posição aleató- 
ria para o tesouro, O elemento corres- 
pondente em P é examinado para que 
haja certeza de que nesse lugar há um 
caminho e não uma parede. Se o tesou- 
ro estiver em um caminho, o valor do 
conjunto será modificado de 5 para 7. 
A última parte da linha desenha o tesou- 
ro no labirinto. 

A posição do homenzinho é calcula- 
da na linha 150, levando-se em conside- 
ração a largura do caminho, que é o ta- 
manho do bloco BS. A linha 160 colo- 
ca o homenzinho em posição. 

As linhas 170 a 220 examinam o te- 
clado por meio de comandos PEEK, de 
modo a permitir a movimentação do pi- 
rata no labirinto. Como não é possível 
deixá-lo atravessar paredes, a linha 220 
o mantém dentro do caminho. A linha 
210 verifica se o tesouro foi encontra- 
do, examinando o elemento correspon- 
dente em P para o número 7. Se o com- 
putador o achar, o “indicador de desco- 
berta”' (F) será igualado a 1. 

A linha 230 movimenta o pirata. O 
espaço em branco é colocado, com o co- 
mando PUT, sobre a última posição do 
personagem, e sua localização atual 
torna-se a última posição. 

A linha 240 calcula o escore, caso o 
tesouro tenha sido encontrado. O limi- 
te de tempo é diminuído então de 10 se- 
gundos. O F volta ao 0, e o programa 
retorna para zerar o cronômetro. O pro- 
grama continua, redesenhando o tesou- 
ro em outro lugar, deixando o pirata no 
mesmo ponto em que estava quando o 
último tesouro foi encontrado, 

Caso o tesouro demore muito a ser 
encontrado, a linha 250 chamará a sub- 
rotina que se inicia na linha 500. Se, 
mesmo não tendo achado o tesouro, o 
homenzinho ainda dispuser de algum 
tempo, a linha 260 retornará ao progra- 
ma, calculando sua nova posição. 


RS on Riva 


Esta é a sub-rotina fi 
o escore e o número de 
que uma “vida” for rei 


500 CLS:SCREEN 0,0:LI=LI-1 

510 PRINT €106,"NIVEL=";LS 

520 IF LIDO THEN PRINT €202,"VI 
DAS=";LI 

530 PRINT €298,"SCORE=";SC 

540 IF LIDO THEN FOR J=1 TO 600 
0:NEXT:TIMER=0:SCREEN 1,1:RETUR 















N 
550 PRINT €358,"QUER OUTRA VEZ 
(S/N) ?” 









































158 


560 AS=INKEYS:IF AS<>"S”" AND AS 
<>"N” THEN 560 
570 IF AS="s” 
580 END 


Agora você pode rodar o programa. 
Se uma ““vida"* for perdida, o progra- 
ma religa a tela de texto — SCREEN 
0,0, A linha 500 também diminui de 1 
o número de ““vidas"' restantes do joga- 
dor. 

As linhas 510 a 530 exibem o nível de 
dificuldade, o número de “'vidas” res- 
tantes (se o jogo continuar) e a conta- 
gem de pontos. Se ainda sobrarem al- 
gumas “'vidas””, a linha 540 introduzirá 
uma pausa antes de zerar o cronômetro, 
religando a tela de alta resolução e re- 
tornando à sub-rotina. 

As linhas 550 e 580 perguntam se o 
jogador quer tentar de novo, e ele ou pá- 
ra o programa ou roda novamente, O 
RUN é utilizado na linha 570 para lim- 
par P para um novo labirinto. 


THEN RUN 


A versão do programa para os micros 
da linha MSX desenha os labirintos na 
tela com gráficos de alta resolução. Em- 
bora mais complexa do que o programa 
para se desenhar na tela de textos, ela 
tem a vantagem de poder traçar labirin- 
tos de diferentes complexidades, forne- 
cendo assim uma variação no nível de 
dificuldade. 

O caminho aleatório é formado por 
uma série de blocos quadrados. Se você 
quisesse desenhar um labirinto bem sim- 
ples, bastaria escolher um bloco gran- 
de, ao passo que, se quisesse um labi- 
rinto mais complexo, teria que optar por 
um bloco de menor tamanho. 


Um pirata à procura de um fabuloso tesouro no labirinto do MSX. 
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É 











A primeira seção do programa intro- 
duz as variáveis e prepara o computa- 
dor, de um modo geral, para desenhar 
labirintos aleatórios, Digite o programa, 
mas não o execute ainda, pois não apa- 
recerá nada na tela, por enquanto. 


10 SCREEN O 

20 LOCATE 2,11:PRINT "Nível de 
dificuldade (0-5) 7” 
30 LS=INKEYS:IF LS<"0” 
” THEN 30 

40 BS=13-VAL (LS) :NX=2*INT(.5+12 
8/BS) :NY=2*INT(.5+96/BS) 

50 SX=250-BS*NX:SY=190-BS*NY 
60 DIM P(NX,NY) 

70 FOR I=1 TO 8 

80 READ A,B,C:AS=AS+CHRS (A) 

84 B$=BS+CHRS (B) 

88 C$=CS+CHRS(C) 

90 NEXT 

100 CLS:LOCATE 2,11 

105 PRINT "Gerando labirinto de 
nível ";L$ 

110 DATA 24,24,127,24,24,65,60, 
255,93,82,255,85,82,24,81,24,24 
195,36,24,64,36,24,127 


A linha 10 diz ao computador para 
utilizar a tela de textos (SCREEN 0). A 
linha 20 exibe, então, a mensagem: “Ní- 
vel de dificuldade (0 - 5) 7" 

L$ é o nível que o jogador escolheu. 
O valor numérico de L$ — VAL (LS) 
na linha 40 — regula o tamanho do blo- 
co, a extensão do caminho e a comple- 
xidade do labirinto. O INKEY$ na linha 
30 significa que o jogador não precisa 
digitar mais que um único dígito em res- 
posta à pergunta, e que o programa con- 
tinua sem que ele precise pressionar 
<ENTER>. 

Na linha 40, o BS é o tamanho do 
bloco gráfico, em pixels. O tamanho po- 
de variar de oito a doze pixels. NX é o 
número de blocos na direção horizon- 
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Outro bucaneiro explora o colorido labirinto do Spectrum. 





tal, e NY é o número de blocos na dire- 
ção vertical. 

Antes de desenhar o labirinto na te- 
la, o computador calculará sua aparên- 
cia final e colocará essa informação no 
conjunto P, que é dimensionado (DIM) 
na linha 60. A variável A$ contém o for- 
mato do homenzinho, e a variável B$, 
uma cruz, para assinalar sua ''morte”, 
A variável C$ contém a imagem do te- 
souro. Os códigos gráficos correspon- 
dentes são lidos em DATA, na linha 
10, e concatenados nas variáveis alfa- 
numéricas mencionadas. Posteriormen- 
te, esses blocos gráficos serão colocados 
dentro de sprites. 

O computador limpa a tela de textos 
na linha 100, e esta informa que o labi- 
rinto está sendo produzido. 


ISA O) 


Agora, digite a parte do programa 
que produz o labirinto, e rode-o para ver 
o resultado: 


1000 
1005 
1008 
1010 
1014 
1018 
1020 


FOR J=0 TO NX 
P(J,NY)=6:P(J,0)=6 

NEXT 

FOR J=0 TO NY-2 
P(0,J)=6:P(NX,J)=6 

NEXT 

X-2;Y=2:LX=2:;:Ly=2 

1030 J=INT(RND(1)*4) :G=J 

1040 Y=LY+2%((J=0)-(J=2)) :X=LX+ 
2*((=3)-(J=1)) 

1050 IF P(X,Y)=0 THEN P(X,Y)=J+ 
1:P((X+LX)/2, (Y+LY)/2) =5:LX=X:L 
Y=Y:GOTO 1030 

1060 J=(J+1) AND 3:IF J<>G THEN 
1040 

1070 J=P(LX,LY)-1:P(LX,LY)=5 
1075 IF J<4 THEN LX=LX-2*((J=3) 
=(J=1)) :LY=LY-2*((J=0)-(U=2)) :6 








oTO 1030 
1080 FOR J=0 TO 20 

1082 P(2+2*INT (RND(1)*((NX-3)/2 
)) + 1+INT (RND(1)*(NY-3)))=5 

1085 P(1+INT(RND(1)*(NX-3)),2+2 
*INT(RND(1)*((NY-3)/2)))=5 


1088 NEXT 
1090 SCREEN 2,0 
1092 COLOR 1,10,4 


1094 
1098 
1099 
1100 


SPRITES(1)= AS 

SPRITES (0)= B$ 

SPRITES (2)=CS 

FOR J=2 TO NX-2 

1105 FOR K=2 TO NY-2 

1110 IF P(J,K)=5 THEN LINE (J*B 
S+5X,K*BS+SY)— ((J+1) *BS+SX-1, (K 
+1) *BS+SY-1),4,BF 

1130 NEXT K 

1140 NEXT J 


As linhas 1000 a 1080 '*desenham” 
o labirinto na memória do computador 
e armazenam sua forma no conjunto P 










z 
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(cada elemento do conjunto correspon- 
de a um bloco do labirinto). A sub- 
rotina armazena o número 5 em P onde 
quer que exista um caminho, e o núme- 
ro O faz o mesmo, caso exista uma pa- 
rede. 

Uma vez que o labirinto tenha sido 
armazenado em P, a linha 1090 liga a 
tela de alta resolução, e a linha 1092 de- 
fine as cores de frente e de fundo do de- 
senho. As linhas 1094 a 1099 definem os 
sprites correspondentes aos blocos grá- 
ficos montados na seção anterior do 
programa. Note que o sprite do bloco 
em branco tem prioridade sobre o blo- 
co do homenzinho, As linhas 1100 a 
1140 exibem o labirinto na tela median- 
te a verificação dos conteúdos de P. 
Quando um 5 for encontrado, um qua- 
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drado será impresso (comando LINE de 
bloco cheio) na linha 1110. 


ie 


Agora você precisa de um jogo para 
divertir-se com o labirinto aleatório. Di- 
gite a próxima seção do programa; mas 
não o rode, pois ele chamará uma sub- 
rotina que ainda não existe. 


1200 
1210 
1215 
1220 
1230 


X=2:Y=2:LX=2:LY=2 
TI=800:LI=3 

R=RND (-TIME) 

TIME=0 

X1=1+INT (RND(1)* (NX-3)) 
1240 Y1=1+INT(RND(1)*(NY-3)) 
1250 IF P(X1,Y1)=5 THEN P(X1,Y1 
)=7:PUT SPRITE 2, (SX+XI*BS,SY+Y 
1*B5),10 ELSE 1230 

1255 X1=X*BS+SX:Yl=YXBS+SY 

1260 PUT SPRITE 1, (X1,Y1),1 
1270 T$=INKEYS:IF TS="" THEN 12 
70 
1280 
1290 
1300 


IF ASC(T$)-28 THEN X=X+1 
IF ASC(T$)=29 THEN X=X-1 
IF ASC(T$)=30 THEN Y=Y-1 
1310 IF ASC(T$)=31 THEN Y=Y+1 
1320 IF P(X,Y)=7 THEN F=1:P(X,Y 
)=5:GOTO 1330 

1325 IF P(X,Y)<>5 THEN X=LX:Y=L 


Y:GOTO 1270 
1330 IF X<>LX OR Y<>LY THEN LX= 
X:LyY=Y 


1340 IF F=1 THEN F=0:SC=SC+(TI- 
TIME) :TI=TI-10:GOTO 1220 

1350 IF TIME>TI THEN GOSUB 1500 
:IF LI<1 THEN 1000 

1360 GoTo 1255 









































A linha 1200 contém as variáveis a 
partir das quais a posição do homenzi- 
nho é calculada, X e Y são as coorde- 
nadas da posição atual do homenzinho, 
e LX e LY, da última posição. TI é o 
limite de tempo para descobrir o tesou- 
ro, e LI, o número de “'vidas” de que 
o jogador dispõe. O tempo limite é de 






se esgotar sem que o tesouro tenha 
sido encontrado, o homenzinho perde- 
rá uma “'vida” - No início, o joga- 
dor tem três “vidas” 
A linha 1215 introduz o gerador de 
números aleatórios, usando como ““se- 
mente” o valor armazenado no cronô- 
metro interno, naquele instante. O cro- 
nômetro interno do computador é zera- 
do na linha 1220, antes que as linhas 
1230 e 1240 selecionem uma posição 
aleatória para o tesouro. O elemento 
correspondente em P é examinado na li- 
nha 1250, para verificar se nesse lugar 
há um caminho ou uma parede. Se hou- 
ver um caminho, o valor do conjunto se- 
rá modificado de 5 para 7. A última par- 
te da linha desenha o tesouro no labi- 
rinto. 


cerca de dezesseis segundos; se este 
























A posição do pirata é calculada na li- 
nha 1255, levando-se em conta a largu- 
ra do caminho, que é o tamanho do blo- 
co BS. A linha 1260 coloca o homenzi- 
nho na tela, naquela posição. 

As linhas 1270 a 1310 examinam o te- 
clado através do comando INKEYS, de 
modo a permitir a movimentação con- 
tínua do homenzinho, no labirinto, co- 
mandado pelas teclas de controle do cur- 
sor. A linha 1325 faz com que ele se 
mantenha dentro do caminho, de mo- 
do a impedi-lo de atravessar alguma pa- 
rede. A linha 1320 checa se o tesouro foi 
encontrado, examinando o elemento 
correspondente em P para o número 7. 
Quando tesouro é encontrado, o ““indi- 
cador de descoberta” (F) éigualado al. 

A linha 1330 promove a movimenta- 
ção do homenzinho, fazendo com que 
a localização atual torne-se a última po- 
sição. Como o homenzinho é definido 
por intermédio de um sprite, não é ne- 
cessário apagá-lo do lugar onde estava, 
como em outros computadores. 

A linha 1340 calculará o escore, se o 
tesouro for encontrado. O limite de tem- 
po é diminuído de 10 segundos. O F re- 
torna ao zero e o programa volta à li- 





Os micros da linha TRS-80, por serem 
de tecnologia mais antiga do que os da 
nova geração de computadores pessoais 
(Sinclair Spectrum, MSX, TRS-Color), 
contam com menores recursos para a de- 
finição de blocos gráficos (UDG, ou user 
= defined graphics) além de terem uma 
resolução gráfica na tela (128 x 48 pixels) 
insuficiente para a programação de efei- 
tos visuais mais sofisticados. 

Existem, porém, formas de contornar 
esse problema. Assim, para definir e ani- 
mar blocos gráficos no TRS-80, utiliza- 
mos três conceitos básicos de programa- 
ção: como incorporar caracteres gráficos 
a variáveis alfanuméricas (cordões); co- 
mo usar os caracteres de controle do cur- 
sor para definir figuras complexas, e co- 
mo movimentar blocos gráficos por meio 
do comando PRINTO. 

Como a utilização desse comando já 
foi explicada, abordaremos aqui apenas 
a técnica de definição de figuras com- 
plexas. 

Imagine que queremos definir um dis- 
co voador. Para montar a figura em uma 
única variável alfanumérica (por exem- 
plo, D$) concatenamos os caracteres grá- 
ficos que determinam a primeira linha 
(veja no munual do seu computador os 
códigos gráficos correspondentes): 


AS = CHR$(128)+CHRS (186) + 
CHRS (176) +CHRS (186) + 
CHR$ (144) 








nha 1220 para zerar o cronômetro. O 
programa continua, redesenhando o te- 
souro em outro lugar, mas deixando o 
pirata no ponto em que ele estava quan- 
do o último tesouro foi encontrado. 

Se o jogador demorar muito para 
achar o tesouro, a linha 1350 chamará 
a sub-rotina que se inicia na linha 1500 
(ela será apresentada a seguir). Essa sub- 
rotina diminui uma ““vida”” do jogador; 
caso tenha se esgotado o número de 
“existências”, o programa retornará ao 
começo (linha 1000). Se o homenzinho 
não tiver achado o tesouro e ainda dis- 
puser de algum tempo, a linha 1360 fa- 
rá o programa voltar à linha 1255, per- 
mitindo que sua nova posição seja cal- 
culada. 


[Ui 
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A sub-rotina final exibirá o escore e 
o número de “'vidas” restantes depois 
que uma “'vida”” for perdida: 


1500 LI=LI-1 

1505 PUT SPRITE O, (X1,Y1),1 
1507 OPEN "GRP:” FOR OUTPUT AS 
+“ 


Acrescentamos a seguir a linha do 
meio da figura. Mas, se nos limitarmos 
a concatenar os próximos caracteres grá- 
ficos ao DS já definido, na hora de colo- 
car o disco voador na tela por meio de 
um PRINTO, o desenho sairá errado (em 
vez de se posicionarem uma embaixo da 
outra, as duas linhas ficarão fundidas em 
uma única linha), Para evitar isso, temos 
que fazer com que o cursor se posicione 
no ponto certo, abaixo da primeira linha 
do gráfico. Para isso, usamos os códigos 
de controle: CHR$(26), que tem o efeito 
de descer o cursor do PRINT de uma po- 
sição na tela, e CHRS$(24), que recua o 
cursor, sem limpeza. 

Dessa forma, para posicionar o cur- 
sor corretamente na linha seguinte do grá- 
fico, temos que descer uma posição com 
o cursor e recuar cinco posições. Para 
economizar tempo de digitação, podemos 
definir um cordão BS, que incorpora to- 
dos esses CHRS: 


BS = CHR$(26)+STRINGS (5,24) 
E agora AS fica definido assim: 
AS = CHR$(128)+CHRS (186)+ 
CHRS (176) +CHRS (186) + 
CHRS (144) +BS+CHRS (170) + 
STRINGS (4,171) 


Finalmente, podemos completar a fi- 
gura, adicionando a terceira linha de blo- 





1510 PSET(0,0),10:PRINT 41,TAB( 
3); "VIDAS:";LI;TAB(5);"SCORE = 
";5c 

1520 FOR J=1 TO 6000:NEXT 

1525 LINE(0,0)-(255,7),10,BF 
1530 IF LI>O THEN PUT SPRITE 0, 
(-20,-20) :CLOSE 41:TIME=0:RETUR 


N 

1540 PSET(0,0),4:PRINT 41," Que 
r jogar novamente ? (S/N)” 
1550 AS=INKEYS:IF AS<>"S” AND A 
S<>"N” THEN 1550 

1560 IF AS="S” THEN RUN 

1570 END 


Rode o programa: se uma “'vida” for 
perdida, ele diminuirá de 1 o número de 
“existências” restantes (linha 1500). A 
linha 1505 assinala a ''morte”” do per- 
sonagem. 

As linhas 1510 a 1530 exibem o nível 
de dificuldade, o número de ““vidas” 
restantes e a contagem de pontos, Caso 
ainda sobrem “vidas”, a linha 1530 co- 
locará o cronômetro em 0. 

As linhas 1540 a 1560 perguntam se 
o jogador quer tentar de novo; depen- 
dendo da resposta, elas param o progra- 
ma ou o rodam novamente. O RUN é 
utilizado na linha 1560, limpando P pa- 
ra um novo labirinto. 





UMA TÉCNICA DE ANIMAÇÃO DE BLOCOS GRÁFICOS NOS 
MICROCOMPUTADORES DA LINHA TRS-80. 


cos gráficos, e repetindo o truque de des- 
cer uma posição e recuar o cursor cinco 
posições: 


AS = CHR$(128)+CHR$ (186) + 
CHR$ (176) +CHRS (186) + 
CHR$ (144) +B$+CHRS (170) + 
STRINGS (4,171) +B$+ 
CHRS (128) +STRINGS (3,131)+ 
CHR$ (129) 


O bloco gráfico está definido. Para de- 
senhar, de uma vez só, esse bloco em um 
ponto qualquer da tela (por exemplo, na 
posição NJ), basta dar o comando: 


PRINTEN,AS; 


Para animar o bloco gráfico contido 
em AS, variamos o valor de N, 
colocando-o dentro de um laço de pro- 
grama. Se o valor de N for aumentado 
ou diminuído de 64, em cada repetição 
do laço, a movimentação se dará no sen- 
tido vertical. Por outro lado, se esse va- 
lor for aumentado ou diminuído de 1, o 
movimento se fará no sentido horizontal. 

Para apagar o bloco gráfico do lugar 
onde estava, é necessário colocar por ci- 
ma dele um terceiro bloco gráfico previa- 
mente definido, contendo apenas três li- 
nhas de cinco caracteres em branco, con- 
catenadas por meio do cordão de contro- 








le, BS, definido acima. 

















E AGORAO QUE 


FAZER? 


O COMANDO INPUT E AS 
MENSAGENS DE PRONTIDÃO 







INKEY$ OU GET 
E | PROGRAMAS DE DESENHOS NA 
TELA 


EM ENTRADAS DE SENHAS SECRETAS 











Grande parte dos programas para micros 
exige que o usuário digite 

dados e outras informações necessárias 
ao seu funcionamento. À maneira 
como isso é feito tem uma importância 
fundamental. Veja por quê. 


Com muito poucas exceções, os com- 
putadores não funcionam inteiramente 
sozinhos, dando saída a informações. 
Quase todos os programas, desde jogos 
até aplicações comerciais e científicas, 
exigem do usuário algum tipo de entra- 
da. Entretanto, há informações que po- 
dem ser fornecidas diretamente ao com- 
putador, e existem inúmeras maneiras 
pelas quais isso pode ser feito, para os 
vários tipos de programa. 

A informação pode ser tão simples 
quanto a pressão sobre uma tecla de con- 
trole do cursor para direcionar uma ba- 


se de mísseis. Mais comumente, porém, 
consiste na digitação de números ou tex- 
tos como acontece, por exemplo, em pro- 
gramas para bancos de dados. No caso 
de um jogo, a maior exigência é que o 
computador responda de modo rápido. 


INPUTS SIMPLES 


Um dos primeiros programas execu- 
tados pelos iniciantes e que ilustra o uso 
do comando INPUT é o seguinte: 


Ss 


10 PRINT"QUAL E O SEU NOME?” 
20 INPUT NS 
30 PRINT"OLA, 





"ins 


Ao deparar-se com um INPUT dentro 
de um programa, o computador pára o 
processamento e espera até queo usuário 
digite algo. Após terem sido pressionados 




















<ENTER> ou <RETURN>, a men- 
sagem digitada (qualquer que seja ela) é 
colocada em uma variável — N$, no caso 
do programa acima. 

Neste exemplo, a variável é um cor- 
dão alfanumérico, mas variáveis numé- 
ricas também podem ser utilizadas. No 
programa seguinte, mostraremos como 
se faz uma lista de cinco nomes e ida- 
des, empregando comandos INPUT 
simples. Esse programa utiliza dois con- 
juntos para armazenar informações 
(mais adiante, abordaremos numa lição 
específica a questão dos conjuntos e de 
como funcionam). 





5 DIM NOMES (5), IDADE (5) 

10 FOR N=1 TO 5 

20 PRINT"NOME:” 

30 INPUT NOMES (N) 

40 PRINT"IDADE:” 

50 INPUT IDADE (N) 

60 NEXT N 

70 FOR N=1 TO 5 

80 PRINTNOMES (N);” TEM "; IDADE( 
N);” ANOS DE IDADE” 

90 NEXT 
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5 DIM n$(5,10): 
10 FOR n=1. TO 5 
20 PRINT "Nome: ” 
30 INPUT n$(n) 

40 PRINT "Idade: ” 
50 INPUT a(n) 

55 CLS : NEXT n 
60 FOR n=1 TO 5 
70 PRINT n$(n);” tem ";a(n);” 
anos de idade” 

80 NEXT n 


Nos computadores da linha ZX-81, 
digite tudo com letras maiúsculas. Omi- 
ta as linhas 5 e 55, e acrescente: 


5 DIM N$(5,10) 
7 DIM A(S5) 

55 CLS 

57 NEXT N 


A informação fornecida ao usuário 
deve estar correta. Da mesma forma, o 
usuário precisa entrar exatamente o ti- 
po de informação solicitada. Se você di- 
gitar um nome quando for perguntada 
uma idade, o programa será interrom- 
pido. No entanto, rodar o programa 
mais uma vez leva quase sempre à per- 
da de tudo o que já foi entrado, obri- 
gando o operador a um duplo trabalho. 
Isso não constitui problema se forem 
apenas cinco entradas; mas quando se 
trata de um programa extenso, esse es- 
forço pode ser desgastante. 


DIM a(5) 


RA a E A 


Embora pareça simples, o programa 
acima tem uma característica importan- 
te, que é a mensagem de prontidão con- 
tida nas duas declarações PRINT. Essa 
mensagem faz com que o programa di- 
ga ao usuário que tipo de informação ele 
deve digitar pelo teclado. 

Se as linhas 20 e 40 do programa fos- 
sem apagadas, ainda assim ele funcio- 
naria, pois, na maioria dos computa- 
dores, toda ocorrência de um INPUT 
provoca o aparecimento de algum si- 
nal de prontidão na tela (por exemplo, 
um ponto de interrogação). 

Se você já está familiarizado com 
computadores, o sinal de prontidão do 
INPUT é suficiente, quase sempre, pa- 
ra lembrá-lo de que alguma coisa preci: 
sa ser entrada. Ele é insuficiente, porém, 
para lhe dizer qual o tipo de informa- 
ção a ser digitada. Imagine, por exem- 
plo, que o programa lhe é estranho, que 
talvez você não tenha experiência em li- 
dar com o computador ou que não te- 
nha conhecimento de como ele funcio- 
na. Neste caso, um ponto de interroga- 
ção causa apenas estupefação 


A mensagem de prontidão é necessá- 
ria até mesmo nos programas mais sim- 
ples, pois o usuário tende a esquecer fa- 
cilmente a forma exata pela qual a in- 
formação deve ser entrada. Por exem- 
plo, a entrada de datas. A maior parte 
dos programas de contabilidade, além 
de muitos outros, requer a entrada de 
datas pelo usuário. Em alguns casos, es- 
sa informação é utilizada pelo progra- 
ma, seja em rotinas de pesquisa, quan- 
do se deseja encontrar um dado especi- 
fico, seja na ordenação cronológica de 
uma série de eventos, por exemplo. Nes- 
te caso, é preciso estabelecer que uma 
data seja sempre entrada segundo uma 
forma padronizada. 

Um método comum é utilizar seis di- 
gitos para uma data, ou seja, dois dígi- 
tos para o dia, dois para o mês, e dois 
para o ano. Muitas vezes empregam-se 
barras ou pontos para separar os três pe- 
ríodos. Uma rotina típica de entrada de 
dados através de um INPUT seria: 

















ass 


100 PRINT "DIGITE DATA (EM FORM 
ATO DD/MM/AA)” 
110 INPUT DS 


A mensagem serve não somente pa- 
ra lembrar o usuário de que uma data 
é necessária, como também para defi- 
nir a forma como ela deve ser entrada 
(o que se denomina formato de entrada 
do dado). Se você quiser entrar, por 
exemplo, 3 de setembro de 1945, deve- 
rá digitar: 03/09/45. 

O formato de entrada poderá ser 
qualquer um que o programa desejar, 
desde que o usuário seja informado, por 
meio de uma mensagem adequada. 

A utilização do comando INPUT, 
como foi mostrada até agora, é bastan- 
te simples. Mas ela pode ser ainda mais 
simplificada no caso de alguns compu- 
tadores, que permitem a inclusão da 
mensagem de prontidão no próprio co- 
mando INPUT. Esse recurso só não 
existe nos micros da linha ZX-81. Vol- 
tando ao programa de nome e idade, eli- 
mine as linhas 20 e 40 e reescreva as li- 
nhas 30 e 50, como mostramos a seguir: 





30 INPUT "NOME"; NOMES (N) 
50 INPUT “IDADE” ; IDADE (N) 
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Na maioria dos micros (com exceção 
do TRS-Color), se não for colocado um 
espaço em branco antes do segundo si- 
nal de aspas, na mensagem de pronti- 
dão, o ponto de interrogação aparecerá 
colado a ela. Por isso, se você quiser dar 
maior clareza à mensagem, coloque o es- 
paço em branco adicional. 

Com exceção do Sinclair Spectrum, 
é possível compactar ainda mais a roti- 
na de entrada de dados. Assim, as linhas 
30 e 50 do programa anterior poderiam 
ser substituídas por apenas uma: 


30 INPUT"DIGITE NOME E IDADE "; 
NOMES (N) , IDADE (N) 


(Não se esqueça de apagar a linha 
50.) 

No Spectrum, é necessário colocar so- 
mente uma variável por comando IN- 
PUT, de modo que o usuário deve pres- 
sionar duas vezes o <ENTER>. No ca- 
so do TRS-Color, do TRS-80, do MSX 
e do Apple II, além de se poder utilizar 
o método do Spectrum, a linha única 
oferece a possibilidade de se digitar no- 
me e idade separados apenas por uma 
vírgula, e de se pressionar o < ENTER > 
somente no final. Pode-se ainda colocar 
qualquer número de variáveis — sepa- 
radas por vírgulas em uma única linha 
de INPUT. 

Ao se utilizar apenas uma linha de 
INPUT para várias entradas, não se de- 
ve esquecer de incluir instruções sobre 
todas as informações pedidas, bem co- 
mo os seus formatos. Além disso, é ne- 
cessário lembrar o usuário de que os da- 
dos devem ser separados uns dos outros 
por vírgulas, e que só no final se d 























pressionar a tecla <ENTER>. Se essa 
norma não é seguida a maioria dos mi- 
cros interrompe o programa, colocan- 
do um duplo sinal de interrogação na li- 
nha seguinte. 

No Sinclair é possível dividir a men- 
sagem de prontidão em mais de uma, na 
mesma linha. Se cada mensagem de 
prontidão for mantida entre aspas, o 
computador se limitará a imprimi-las, 
sem tratá-las como variáveis. 

Entretanto, note que não é possível 
fazer isso nos computadores das linhas 
TRS-Color, Apple, TRS-80, MSX e 
ZX-81. Para melhorar a disposição das 
informações na tela, as mensagens de 
prontidão dos INPUT podem ser posi- 
cionadas por intermédio de comandos 
TAB normais (conforme foi explicado 
anteriormente, na lição sobre o uso des- 
sa função). 


URB RAR da 


O principal problema na utilização 
do comando INPUT surge quando se 
tenta entrar cordões alfanuméricos que 
contenham vírgulas e dois pontos, ou es- 
paços em branco no início. Um endere- 
ço, por exemplo, normalmente contém 
vírgulas, de modo que fica impossível 
usar o INPUT para colocá-lo em uma 
variável alfanumérica simples. Do mes- 
mo modo, a inclusão de espaços no ini- 
cio de uma entrada pode ser útil para a 
beleza da apresentação na tela. 

A dificuldade está em que muitos com- 
putadores ignoram espaços à esquerda em 
um comando INPUT, embora não criem 
problemas com os intervalos entre as pa- 
lavras. E, quase sempre, eles também ig- 
noram qualquer coisa que ocorra após vir- 
gula, dois pontos ou ponto e vírgula, trun- 
cando a informação restante, mesmo que 
o usuário a tenha digitado. Felizmente, al- 























guns micros possuem um comando que 
contorna essa dificuldade. Os computa- 
dores da linha Sinclair, por sua vez, têm 
um modo especial de evitá-la. 

A solução mais comum é incluir a en- 
trada entre aspas. O ZX-81 co Spectrum, 
por exemplo, colocam aspas automatica- 
mente na tela quando uma variável alfa- 
numérica aparece em um comando IN- 
PUT. Em relação aos outros computado- 
res, o operador deve digitar as aspas co- 
mo parte da entrada (essa exigência, por- 
tanto, deve ser apontada ao usuário, atra- 
vés da mensagem de prontidão). 

Uma outra solução, disponivel nos 
computadores TRS. TRS-Color e 
MSX, consiste em utilizar o comando 
LINE INPUT. Este é empregado exa- 
tamente do mesmo modo que o INPUT. 

















10 LINE INPUT "POR FAVOR, DIGIT 
E O SEU ENDERECO ";AS 


A vantagem é que se pode colocar, 
dentro da variável, qualquer coisa até o 
<RETURN>, incluindo vírgulas e es- 
paços. Isto é mais garantido, pois v 
não precisará lembrar o usuário a dig 
tar entre aspas. 


ACELERE AS ENT! S 


Uma das qualidades do comando LI- 
NE INPUT consiste em permitir que vo- 
cê altere o que estiver entrando, até o 
momento de pressionar <RETURN> 
ou <ENTER>. Assim, se você come- 
ter um erro de digitação, ou perceber 
que está fornecendo uma informação er- 
rada, ou simplesmente mudar de idéia, 
você poderá apagar o que foi feito e ten- 
tar novamente. A desvantagem é que e: 
se sistema é relativamente lento e, se vo- 
cê estiver escrevendo programas para 
pessoas pouco familiarizadas com com- 
putadores, elas poderão não perceber ou 
esquecer que <ENTER> ou <RE- 
TURN> devem ser digitados. 
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Em programas que utilizam uma por- 
ção de menus ou respostas do tipo “sim 
ou não”, a necessidade de pressionar 
uma tecla extra diminui a velocidade de 
execução, além de praticamente dupli- 
car o número de teclas a serem pressio- 
nadas. Para evitar que isto aconteça, 
existe uma maneira de levar o compu- 
tador a detectar automaticamente a te- 
cla que está sendo pressionada, sem que 
seja necessário acionar depois as teclas 
<ENTER> ou <RETURN> 

O comando utilizado é o INKEY$ 
nos computadores Sinclair, TRS-80, 
TRS-Color e MSX, e o GET nos da li- 
nha Apple II. 

O efeito da função INKEYS, que já es- 
tudamos anteriormente, é provocar uma 
varredura no teclado para averiguar se al- 
guma tecla está sendo pressionada nesse 
instante. Se este for o caso, a função tra- 
rá o caractere correspondente de volta ao 
programa principal. No caso de nenhu- 
ma tecla estar sendo pressionada no mo- 
mento em que o INKEY$ é encontrado, 
um cordão vazio é trazido de volta. As- 
sim o INKEY$ é usado dentro de um co- 
mando IF, que testa continuamente se o 
valor retornado é diferente do vazio: 


TTSER 


100 LET AS=INKEYS:IF A$="" THEN 
coro 100 





Já nos micros da linha Apple II, o 
GET faz o computador esperar até que 
a tecla seja pressionada, não sendo ne- 
cessário colocá-lo dentro de um laço de 
espera, como nos outros casos: 


[eb Ló] 


100 GET AS 


Qualquer variável alfanumérica po- 
de ser usada — A$ é apenas um exem- 
plo. A máquina pára na linha 100. Se 
você teclar o R, o A$ conterá a letra R. 
Você pode entrar um número, ou um es 
paço, ou qualquer outro caractere, até 
mesmo teclas de controle como <EN- 
TER>. Embora seja virtualmente qual- 
quer coisa, a entrada pode ter apenas 
um caractere. Assim que a tecla for pres- 
sionada, o programa prosseguirá. 


SATA 


Agora examine o seguinte programa, 
que utiliza quatro teclas para desenhar 
em alta resolução na tela (esse progra- 
ma não funciona no ZX-81 e no 
TRS-80, que não dispõem de alta reso- 
lução gráfica). Para desenhar no Apple 








Uma linha pode ser movimentada em diversas 


direções. Para isso, basta acionar 
algumas teclas indicadas pelo programa. 


H e no TRS-Color são utilizadas as te- 
clas, Z, X, Pe L; no MSX, as teclas a 
empregar são as de controle do cursor. 
Você também pode usar a tecla 2 para 
pedir um desenho na cor de fundo da 
tela (criando, portanto, uma linha invi- 
sível), ou a tecla 1, para retornar à li- 
nha do desenho visível. 





10 PMODE 4,1:PCLS:SCREEN 1,1 
20 LET X=100:LET Y=100 

40 LET X1=X:LET Yl=Y 

50 LET AS=INKEYS 

60 IF AS="P” THEN LET Y=Y1-4 
70 IF AS="L” THEN LET Y=Y1+4 
80 IF A$="Z” THEN LET X=X1-4 
90 IF AS="X" THEN LET X=X1+4 


100 IF A$="1" THEN COLOR 5 
110 IF A$="2” THEN COLOR O 
120 IF A$=" " THEN STOP 

130 LINE(X,Y)-(X1,Y1), PSET 
140 goto 40 

10 INK 2 

20 PLOT 127,87 

30 IF INKEYS="p” THEN DRAW O 
2 

40 IF INKEY$="1" THEN DRAW O 
+72 

50 IF INKEY$="2” THEN DRAW - 
2,0 

60 IF INKEYS="x" THEN DRAW 2 
0 

70 IF INKEYS="1" THEN INK 2 
80 IF INKEY$="2" THEN INK 7 
90 IF INKEYS=" " THEN STOP 
100 PAUSE 10 

110 coro 30 

10 SCREENZ 


20 LETX=100:LETY=100 

30 LETXI=X:LETY1=Y 

40 AS=INKEYS 

50 IFAS=CHR$ (30) THENY=Y1-4 
60 IFAS=CHRS (31) THENY=Y1+4 
70 IFAS=CHRS (29) THENX=X1-4 








Com um programa simples, que controla 
apenas algumas teclas, é possível 
desenhar imagens como as da ilustração. 





80 IFAS=CHRS (28) THENX=X1+4 
90 IFAS="1"THENCOLOR 4,4 
100 IFAS$="2"THENCOLOR 15,4 
110 IFAS=CHRS (32) THENSTOP 
120 LINE(X,Y)-(X1,Y1) 

130 coTo30 


[ef] 


10 ONERR GOTO 150 


20 HGR : HCOLOR= 7 

30 X = 100:Y = 100 

40 x) o X;71 0 Y 

50 GET AS 

60 IP AS» "P” TRENYTeTI]-2 
70 IF AS = "L” THEN Ye Yl+2 















MSN Naa! 














Um barco, um míssil, uma garrafa: se você 
quiser executar desenhos como esses, siga 
as instruções desenvolvidas no texto. 


80 IF AS = "Z" THENX=-X1-2 


90 IF AS = "X”" THEN X =X] +2 
100 IF AS = "1” THEN HCOLOR= 
lio IF AS = "2" THEN HCOLOR= 
i20 IF A$ » * ” THEN END 

130 HPLOT X,Y TO X1,Y1 


140 GOTO 40 
150 X = xl:Y = Y1: 
(7);: RESUME 

Esse tipo de rotina é muito útil para 
gráficos e jogos. A linha é traçada en- 
quanto as teclas são pressionadas. Mas 
observe que o computador aceita uma 
tecla de cada vez; já linhas diagonais 
são de traçado mais difícil, pois consis- 
tem em uma série de pequenos degraus. 


PRINT CHRS 


























Trace as diagonais como se fossem uma 
escada de minúsculos degraus. 
Não pressione duas teclas ao mesmo tempo. 


Os comandos INKEYS$ ou GET são 
também muito úteis em qualquer pro- 
grama que empregue menus. O progra- 
ma seguinte imprime um menu como 
parte de um programa de arquivo de 
dados. 

5 cLS 

10 DATA CRIAR UM ARQUIVO, ENTRAR 
DADOS, VER DADOS, EDITAR, PROCUR 
AR, IMPRIMIR, CARREGAR, GRAVAR, FIM 
15 RESTORE 

20 FORN=1TO9 

30 READ OPCOESS 

40 PRINTTAB(S);N;TAB(10);OPCOES 
5 

50 NEXTN 

60 PRINT:PRINTTAB (5) "SUA OPÇÃO 
->" 

70 AS=INKEYS: IFAS=""THEN7O 

80 IFAS="1"THENGOSUB1000 

90 IFAS="2"THENGOSUB2000 

100 IFAS="3"THENGOSUB3000 

110 IFA$="4"THENGOSUB4000 

120 IFAS="5"THENGOSUB5000 

130 IFA$="6"THENGOSUB6000 

140 IFA$="7"THENGOSUB7000 








150 IFA$="8"THENGOSUB8000 
160 IFAS="9"THENGOSUB9000 
170 coTos 


Altere a linha 70 do programa ante- 
rior para: 


70 LET AS=INKEYS:IF AS="" THEN 
Goto 70 


Modifique as linhas do programa an- 
terior para: 


5 HOME 
70 GET AS:IF A$="" THEN 70 


Apague as linhas 10 e 70 do progra- 
ma anterior, substituindo-as por: 


10 DATA "Criar novo arquivo”, 
"Entrar com registros”,"ver r 
egistros”","Editar registros”, 
"Procurar registros” mprimi 
r arquivo”,"Carregar arquivo” 
+"Gravar arquivo”,"Saida” 

15 RESTORE 

20 FOR n=1 TO 9 

30 READ h$ 

40 PRINT TAB S;n;TAB 10;hS 
50 NEXT n 
60 PRINT 
scolha->" 





PRINT TAB 5;"Sua e 













70 LET AS=INKEYS: IF AS="" 
THEN GOTO 70 

80 IF A$="1" THEN GOSUB 1000 
90 IF AS="2" THEN GOSUB 2000 
100 IF THEN GOSUB 3000 
110 IF THEN GOSUB 4000 
120 IF THEN GOSUB 5000 
130 THEN GOSUB 6000 
140 THEN GOSUB 7000 
150 THEN GOSUB 8000 
160 THEN GOSUB 9000 


170 














Com esse programa, o computador 
vai direto à sub-rotina pertinente assim 
que uma tecla é acionada — a menos 
que você pressione uma outra tecla en- 
tre os números de 1 a 9, Neste caso, a 
linha 170 imprimirá novamente o menu 
e este se repetirá na tela. 
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O programa anterior funcionará per- 
feitamente enquanto existirem menos de 
nove opções. Mas se você tentar teclar 
10, o computador entenderá que você 
está entrando o 1, pois o programa pros- 
seguirá automaticamente assim que ti- 


ver sido teclado o primeiro dígito. Mas 
existe uma maneira de entrar palavras 
inteiras. E como não é mostrado nada 
na tela, ela é ideal para se entrar uma 
senha ou um “'código secreto”, que po- 
de ser usado para limitar o acesso dos 
usuários a um determinado programa, 
Cada dígito é entrado utilizando-se o 
INKEY$ ou o GET, sendo o caractere 
resultante acrescentado ao último digi- 
to entrado. Eis o programa: 








10 PRINT "DIGITE A SENHA” 

20 LET K$=INKEYS:IF K$="" THEN 
coro 20 

30 LET PS=PS+K$ 

40 IF LEN(P$)<>7 THEN GOTO 20 
50 IF PS<>"BANANAS” THEN STOP 
60 PRINT "O.K.” 

70 REM (A SEGUIR VEM O PROGRAMA 
, 


10 LET pS="" 

20 PRINT "DIGITE A SENHA” 
30 PAUSE O 

40 LET kS=INKEYS: 
THEN GOTO 40 

50 LET pS-pS+kS 
60 IF LEN p$<>7 THEN GOTO 30 
70 IF pS<>"bananas” THEN 
STOP 

80 PRINT "O.K.” 

90 REM (Em seguida vem o rest 
o do programa” 


Leg 


Modifique a linha 20 do programa 
anterior para: 


20 GET K$S:IF K$=""THEN 20 


Essa rotina começa com um cordão 
vazio (P$), ao qual vão sendo progres- 
sivamente acrescentados os caracteres, 
um a um, até que a extensão da senha 
esteja correta. Como os caracteres en- 
trados não são impressos na tela, o pro- 
grama impede que as pessoas olhem o 
que está na tela e aprendam a senha. 
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O INKEYS (e outros comandos simi- 
lares) é igualmente empregado para 
“congelar” um programa. Isto é útil 
quando uma tela repleta de informações 
deve ser examinada. Após a parte do 
programa que imprime a informação, 
coloca-se um comando INKEYS$ ou 
GET no programa de modo a bloquear 
a listagem antes de limpar a tela. 
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Infelizmente, o interpretador Apple- 
soft BASIC, dos micros da linha Apple 
II, não dispõe de uma função tão pode- 
rosa como o INKEYS, para efetuar 
“varreduras” no teclado. Existe apenas 
o comando GETS, mas este bloqueia o 
andamento do programa toda vez que 
é encontrado por ele. Dessa forma, se 
quisermos, por exemplo, fazer progra- 
mas de jogos em que um míssil ou um 
disco voador precisa continuar se mo- 
vendo pela tela enquanto o jogador não 
pressiona a tecla que comanda um dis- 
paro, é necessário “imitar” a ação do 
INKEYS, executando o pequeno pro- 
grama a seguir (não tente entendê-lo ain- 
da; estudaremos os comandos P! 
POKE numa lição posterior): 





100 LET K$="" 
110 LET K=PEEK(-16384) 
120 IF K<128 THEN RETURN 





130 LET KS$=CHR$(K-128) 
140 POKE -16368,0 
150 RETURN 

Esta sub-rotina, quando chamada 
(por meio de um GOSUB 100), retorna- 
rá, através da variável K$, o caractere 
pressionado no teclado. Se K$ retornar 
com valor nulo, isso significa que ne- 
nhuma tecla foi pressionada. Por isso, 
podemos colocar a chamada à sub- 
rotina em um laço, assim: 











30 GOSUB 100 
35 IF K$="" THEN GOTO 30 


O comando PEEK examina a locação 
de memória - 16384, que guarda um có- 
digo numérico. Se esse número for igual 
a 128 ou maior, significa que uma tecla 
foi pressionada e que o seu código A: 
CII será deduzido pela expressão" da li- 
nha 130 e convertido para o caractere ar- 
mazenado em K$. O comando POKE 
zera uma outra locação da memória, pa- 
ra permitir uma nova varredura. 








O interpretador BASIC do TK-2000 
não dispõe de uma função tão podero- 
sa como o INKEY'S$ para efetuar ““var- 
reduras” no teclado. Existe apenas o co- 
mando GET (de funcionamento idênti- 
co ao do Apple II), que tem a desvanta- 
gem de bloquear o andamento do pro- 
grama, sempre que é encontrado por ele. 
Assim, para programarmos jogos em 
que um míssil ou um disco voador, por 
exemplo, precisa continuar se movendo 
pela tela enquanto o jogador não pres- 
siona a tecla que comanda um disparo, 
















é necessário “imitar” a ação do 
INKEYS$ através de uma rotina diferente 
da que foi apresentada para os micros 
da linha Apple II 

A locação 39 da memória RAM do 
TK-2000 retém um valor numérico cor- 
respondente à última tecla pressionada. 
Assim, a sub-rotina abaixo retorna esse 
código toda vez que uma tecla for pres- 
sionada 





100 LET K=0 

110 LET K=PEEK(39) 

120 IF K=48 THEN GOTO 100 
130 RETURN 


ão de memória 39, no TK-2000, 
contém sempre o número 48, enquanto 
nenhuma tecla for pressionada. 

Assim, é fácil incluir uma chamada 
a essa rotina (GOSUB 100) no ponto do 
programa em que se torna necessário ve- 
rificar se alguma tecla foi pressionada 
e, em caso positivo, qual foi essa tecla. 

Para descobrir o código gerado por 
cada tecla do TK-2000, rode o pequeno 
programa abaixo e pressione sucessiva- 
mente as teclas que quer descobrir. O 
código correspondente será mostrado na 
tela. Pressione <CTRL><C> para 
interromper o programa: 














10 HOME 

20 LET K=PEEK(39) 

30 IF K<>48 THEN PRINT K 
40 coTo 20 


O uso do PEEK tem uma vantagem 
a mais: se você apoiar o dedo sobre uma 
determinada tecla, o código referente a 
ela será mostrado repetidamente na te- 
la, ou seja, a função é auto-repetitiva. 
Isto é muito importante para diversos ti- 
pos de programas, principalmente pro- 
gramas de jogos. 
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EBRE A Bipes, explosões, ruídos extraterrenos: 
seja qual for a sua escolha, 
todos esses sons podem ser produzidos 
tornando seus jogos mais eletrizantes. 
= 












Os programas de jogos de ação in- 
cluem, normalmente, diversos tipos de 
efeitos sonoros — explosões, tiros, zum- 
bidos, pequenas melodias e outros ruí- 
dos — que os tornam mais excitantes e 
atraentes. 

Esta lição tem por finalidade propor- 
cionar a você uma pequena “bibliote- 
ca” de sons adequados a programas de 
jogos. Você pode utilizá-los tal como es- 
tão ou desenvolvê-los livremente, como 
parte de conjuntos sonoros mais com- 
plexos. 

Lembre-se de que não existem regras 
sumárias ou definitivas para se produ- 
zir efeitos sonoros, Se o seu jogo preci- 
sa, por exemplo, de um ruído semelhan- 
te ao de alguém mergulhando numa pis- 
cina, você terá que sentar-se em frente 
ao computador e experimentar várias 
vezes, até conseguir um efeito convin- 
cente. Por outro lado, alguns sons apa- 
rentemente improváveis poderão ser 
bem aproveitados, caso você consiga in- 
ventar os tipos adequados de gráficos. 





A incorporação de efeitos sonoros em 
seus programas depende da complexida- 
de destes e da frequência com que tais 
efeitos serão utilizados. Assim, ruídos 
simples que entram apenas uma vez em 
um programa, devem ser colocados após 
uma declaração IF... THEN, Efeitos re- 
petitivos ou mais complexos, por sua 
vez, precisam de uma sub-rotina. 

O grau de sofisticação dos efeitos so- 
noros depende não só da habilidade do 
programador, mas também dos recur- 
sos de programação de sons de cada 
computador. Desse modo, o gerador de 
som dos micros compatíveis com o Sin- 
clair Spectrum (por exemplo, o TK-90X) 
é limitado a um simples tom puro (cha- 
mado de Aipe, em jargão computacio- 
nal) obtido por meio do comando 
BEEP, e cuja freqiiência e duração po- 
dem ser controlados pelo usuário, Um 
ruído semelhante pode ser produzido, 
no microcomputador brasileiro 
TK-2000, mediante o comando 
SOUND, Em contrapartida, os micros 


das linhas TRS-Color e MSX possuem 
um gerador de sons bastante sofistica- 
do, capaz de sintetizar uma série imen- 
sa de efeitos diferentes. Esse gerador dis- 
põe de vários comandos específicos na 
linguagem BASIC. O Apple II, o ZX-81 
eo TRS-80 só permitem efeitos sonoros 
satisfatórios através de programas espe- 
ciais em linguagem de máquina; por is- 
so não serão tratados nesta lição. 
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O Sinclair Spectrum conta, como já foi 
assinalado, com um único recurso para 
a programação de efeitos sonoros em BA- 
SIC: o comando BEEP. Simples de pro- 
gramar, esse comando pode ser usado pa- 
ra “envenenar” consideravelmente os seus 
programas. No TK-2000 temos um co- 
mando equivalente: o SOUND. Para 
exemplificar, veja a seguir uma rotina que 
produzirá uma série de sons idênticos: 




































8000 FOR n=1 TO 12 
8010 BEEP .03,30 
8020 NEXT n 


Como você pode ver na linha 8010 do 
programa acima, o BEEP é seguido por 
dois números separados por uma virgu- 
la. O primeiro número determina a du- 
ração da nota a ser tocada: quanto 
maior ele for, mais tempo durará a no- 
“ta. O valor 1 corresponde à duração de 
um segundo. Números maiores ou me- 
nores do que esse (no caso, frações de- 
cimais) funcionarão proporcionalmente. 

O segundo número estabelece a fre- 
quência da nota, com o número O cor- 
respondendo ao dó médio no teclado de 
um piano. Cada número inteiro acima 
ou abaixo disso representa um semitom 
mais alto ou mais baixo — ou seja, é 
correspondente à tecla mais próxima, 
em um teclado de piano. Para efeitos so- 
noros em jogos, frequências muito bai- 
xas, da ordem de —32, são utilizadas 
para imitar explosões e zumbidos. 




















n INVENTE O SOM CERTO E SOUND 
n COMO INCORPORAR EFEITOS EXPLOSÕES, TIROS, 
SONOROS AO JOGO DE DESTRUIÇÃO 





8000 FOR N=1 TO 12 
8010 SOUND 90,3 
8020 NEXT N 


O comando SOUND no TK-2000 (ve- 
ja a linha 8010) funciona da mesma ma- 
neira, só que agora o primeiro número 
determina a frequência do som, e o se- 
gundo a sua duração. Não são permiti- 
dos números negativos ou fracionários, 
nem maiores que 255. A correspondên- 
cia da frequência com as notas musicais 
é um pouco mais complicada, e está ilus- 
trada no manual de programação BA- 
SIC do TK-2000. 

Os comandos BEEP e SOUND serão 
explicados com maior riqueza de deta- 
lhes numa próxima lição. 

Na rotina acima, o laço FOR... 
NEXT executa uma série de doze notas. 
Já o programa abaixo contém dois la- 
ços, com a variável de controle de cada 
laço estabelecendo a frequência das no- 





LABIRINTOS ALEATÓRIOS 
APRENDA A USAR BEEP, PLAY 








E DORUÍDO ÀS NOTAS MUSICAIS 
MAIS EXPLOSÕES 


tas. Isto resulta em um efeito que pode- 
rá lhe ser útil quando, em um de seus 
jogos, for necessário criar um som pa- 
ra acompanhar a destruição de um ex- 
traterrestre. 


8000 
8010 
8020 
8030 
8040 
8oso 


[Si] 


8000 FOR N=60 TO O STEP -10 
8010 SOUND N,3 

8020 NEXT N 

8030 FOR N=0 TO 60 STEP 10 
8040 SOUND N,3 

8050 NEXT N 


FOR n=4 TO O STEP -1 
BEEP .0l,n 

NEXT n 

FOR n=l TO 4 

SOUND .01,n 

NEXT n 


Eis aqui uma rotina que emprega o 
laço FOR...NEXT de um modo pareci- 












do; o ruído criado, porém, será agora 
um som de “Congratulações”, Você po- 
derá utilizá-lo quando o jogador tiver 
destruído todos os “'monstros”” ou pa- 
ra celebrar alguma outra vitória. 


8000 FOR n=10 TO 60 STEP 5 


8010 BEEP .01,n 
8015 BEEP .01,n-2 
8020 NEXT n 
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8000 FOR N=70 TO 150 STEP 5 
8010 SOUND N,3 

8015 SOUND N-2,3 

8020 NEXT N 


Tente fazer experiências mudando os 
parâmetros do comando BEEP (ou 
SOUND) para produzir efeitos sonoros 
em seus programas de jogos. Procure 








EFEITOS SONOROS NO TRS-80 
O TRS-80 não tem recursos para a pro- 
dução de efeitos sonoros, mas é pos- 
sível fazê-lo emitir alguns sons. Para is- 
to, utiliza-se a interface de saída para 
o gravador cassete, que gera pulsos no 
espectro audível, sob controle adequa- 
do de um software. Basta ligar o fio que 
vai do computador até o conector MIC 
ou AUX, em um sistema de amplifica- 
ção de som. 

O software de produção de som 
funciona da seguinte maneira: o co- 
mando OUT envia para a porta de saí- 
da do gravador (a de número 255) uma 
sequência de bytes O e 1. O byte O cau- 
sa um pulso negativo na saída, e o byte 
1, um pulso positivo. Alternando-se 
ambos, temos uma onda de som. Para 
variar a frequência do som, varia-se a 
pausa entre o pulso positivo e o nega- 
tivo. Com essa técnica, é possível pro- 
duzir sons em BASIC: basta colocar os 
comandos OUT dentro dos laços de re- 
petição entre meados de um laço de re- 
tardo de tempo: 


10 FOR I=1 TO 1000 

20 OUT 255,0 

30 FOR J=1 TO 10:NEXT J 
40 OUT 255,1 

50 NEXT I 


Sons mais agudos e efeitos como 
explosões, sirenas, etc., exigem uma 
rotina em linguagem de máquina, que 
pode ser chamada a partir de um pro- 
grama em BASIC pelo comando USR. 








utilizá-los também dentro de laços e de 
sub-rotinas. 
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Imagine o jogo de labirinto aleatório 
apresentado na última lição com alguns 
efeitos sonoros. Note que não há uma 
versão para o TK-2000. Adicione as li- 
nhas 365 e 500 ao programa original e 
modifique a linha 400, 


365 BEEP .01,10 


400 LET vidas=vidas-l1: RESTORE 
500: FOR f=0 TO 10: READ a,b: 

BEEP a,b: NEXT f: IF vidas>0 

THEN GOTO 260 

500 DATA .45,0,.3,0,.15,0,.45, 
0,.3,3,.15,2,.3,2,.15,0,.3,0,. 
15,-1,.45,0 





Se você rodar o programa agora, des- 
cobrirá que acrescentou uma rotina de 
som simples mas muito eficaz, que exe- 
cuta uma marcha fúnebre sempre que o 
jogador perder uma “vida”. Tente mo- 
dificar os valores de a e b para criar efei- 
tos diferentes. 

Esse exemplo mostra que você deve 
ser cuidadoso quando utilizar efeitos so- 
noros em jogos, já que o computador 
interrompe o que está fazendo durante 
a execução do BEEP, criando assim al- 
gumas pausas inoportunas. Mesmo que 
você inclua apenas efeitos de curta du- 
ração, isso poderá tornar o seu jogo 
muito lento. 


hay 


O MSX possui um dispositivo sono- 
ro muito sofisticado que emprega três 
“vozes” altamente controláveis, ou ca- 
nais sonoros. Esse dispositivo permite 
uma grande variedade de ruídos, mui- 
tos dos quais podem ser incorporados 
aos seus programas de jogos. 

Tais ruídos podem ser criados por 
meio das “vozes”, isoladamente ou em 
grupos, de modo a formar diversas com- 
binações. Uma explicação mais detalha- 
da sobre programação de efeitos sono- 
ros no MSX será desenvolvida em um 
artigo posterior de 

O MSKX utiliza um segundo micro- 
processador interno somente para pro- 
duzir sons e efeitos sofisticados: algu- 
mas linhas de programa são suficientes 
para isso. Esse microprocessador é com- 
posto por 14 registros que funcionam de 
maneira semelhante às posições de me- 
mória do computador. O som é produ- 
zido de acordo com o conteúdo de tais 
registros, ou seja, suas características 
dependem dos números armazenados 





nos registros. Os valores adequados são 
colocados nesses registros por.intermé- 
dio do comando SOUND R, N (Ré o 
número do registro, e N o número que 
determinará as características do som). 
o MSX conta ainda com uma lingua- 
gem “'macromusical” disponível me- 
diante o comando PLAY. Quando se 
deseja programar uma melodia (é neces- 
sário entender um pouco de música) é 
mais fácil utilizar esse comando e não 
se preocupar com tantos registros, o 
PLAY é, contudo, um pouco lento e 
não produz ruídos, só notas musicais. 
Para entendê-lo melhor, leia a seção de- 
dicada ao TRS-Color, mais adiante. 
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Se você gravou o programa de cria- 
ção de labirintos aleatórios para o MSX 
(apresentado na última lição de progra- 
mação de jogos), certamente achará in- 
teressante acrescentar as três linhas que 
listamos a seguir. 


1330 IF X<>LX OR Y<>LY THEN LX= 
X:LY=Y:PLAY "VIST25505L64DG” 
1340 IF F=1 THEN F=0:SC=SC+(TI- 
TIME) :TI=TI-10:PLAY "VI5STI0003B 
CDEFGA”:GOTO 1220 
1500 PLAY "V15T25502L2CR64L4CR6 
4LIZCR64L2CR64LADIR64LEDR64L4DR 
64LBCR64L4CR6401LBBR6402L2C”:LI 
=LI-1 

A primeira linha produz som para o 
movimento do homenzinho; a segunda, 
para o momento em que ele encontra o 
tesouro; a terceira toca uma “marcha 
fúnebre” quando ele perde uma “vida”. 

Como dissemos, o comando PLAY 
só é adequado para programação de me- 
lodias. Quando desejarmos ruídos (sons 











não musicais) ou uma velocidade maior, 
deveremos utilizar o comando SOUND. 

Muitos valores (até 13) devem ser co- 
locados nos registros adequados, para 
a emissão de um determinado som. Co- 
mece a aprender como fazê-lo, digitan- 
do as seguintes linhas: 


10 SOUND 7,7 
20 SOUND 6,20 
30 SOUND 8,15 


Rode o programa e ouvirá um ruído 
semelhante ao das ondas do mar que- 
brando na praia (use a imaginação). 

Vejamos os registros utilizados. Na 
linha 10 colocamos o valor 7 no regi 
tro 7. Este último determina os canais 
de som a serem utilizados e se eles pro- 
duzirão música ou ruído. O que impor- 
ta no momento é que o valor 7 ativa os 
três canais para criar ruídos. O valor 56 
ativaria os três para sons musicais. 
Qualquer outro valor entre 1 e 63 utili- 
zaria os canais de uma maneira mista. 
Na realidade, deve-se converter o valor 
utilizado para a forma binária de modo 
a ficarmos sabendo o que cada canal 
produzirá: música ou ruído. 

Na linha 20, o registro 6 determina a 
frequência do ruído produzido, poden- 
do conter valores de O a 63. Números me- 
nores determinam sons mais agudos. Na 
linha 30, o registro 8 controla o volume 
do som produzido pelo canal A, poden- 
do conter um número entre O e 15, Ge- 
ralmente, é melhor colocarmos o valor 
máximo e ajustarmos o volume da TV. 
Outras vezes, contudo, podemos criar 
efeitos interessantes variando o volume. 
Acrescente as seguintes linhas ao progra- 
ma para obter um som mais próximo do 
real. Isto é conseguido variando lenta- 
mente o volume nas linhas 40 e 70. 











30 FOR I=10 TO |5 STEP LE-1 
40 SOUND 8,1 

50 NEXT 

60 FOR I=15 TO 10 STEP -1E-04 
70 SOUND 8,1 

80 NEXT 


90 Goto 30 


Modifique o valor do STEP nas li- 
nhas 30 e 60 de -1E-3 para .5 e você ou- 
virá o barulho de um trem a vapor em 
movimento. O programa listado a seguir 
permite que você experimente e modifi- 
que vários efeitos sonoros, variando os 
valores dos diversos registros. 


5 CLS:R=RND(-TIME) 

10 INPUT "Número do programa (1 
=13)2.-45P 

15 INPUT "Envoltória (l-fixa , 
2-programável): ";E 

16 EE-14+E 

20 IF E=1 THEN 35 

25 INPUT "Forma da onda sonora 
(8-15): ";W 

26 SOUND 13,W 

30 INPUT "Período do ciclo (0-6 
5384): ";F 

31 Ht=F/256:L%-F-256*H8 

32 SOUND 11,L2%:SOUND 12,H% 

35 INPUT "Música ou ruído (M ou 
R): ";MS 

36 IF M$="M” THEN SOUND 7,56:A= 
0:T=255:GOTO 40 

38 IF M$="R” THEN SOUND 7,7:A=6 
:T=63:GOTO 40 

39 Goro 35 

40 SOUND 8,EE 

60 ON P GOSUB 80,90,100,110,120 
,130,140,150,160,170,180,190,20 
0,210 

70 SOUND 8,0:END 

80 SOUND 1,5:FOR Z=1 TO T STEP 
.3 

85 SOUND A,Z:NEXT:RETURN 

90 SOUND 1,0:FOR Z=T TO 1 STEP 
«3 

















95 SOUND A,Z:NEXT:RETURN 

no SOUND 1,0:FOR Z=1 TO 20 STE 
sd 

SOUND A,ABS(SIN(Z)*T/2) 
NEXT: RETURN 

SOUND 1,1:FOR Z=1 TO 200 
115 SOUND A,RND(1)*(T+1):NEXT 
117 RETURN 

120 IF A=0 THEN A=1:T=15 

122 FOR Z=1 TO 50 

125 SOUND A,T AND ABS(TAN(Z)+5) 
127 NEXT:RETURN 

130 SOUND A,T/2:SOUND 1,2 


lo5 
107 
110 


A linha 5 limpa a tela e prepara o ge- 
rador de números aleatórios. Os diver- 
sos INPUT das linhas seguintes pedem 
informações a respeito do efeito dese- 
jado. Nas linhas 80 a 207 estão treze di- 
ferentes sub-rotinas que geram: treze 
efeitos diversos. 

Essas sub-rotinas cuidam principal- 
mente da frequência dos sons — isto é, 
se eles são agudos ou graves — e de co- 
mo essa frequência vai variar com o 
tempo. Caso se trate de som musical, é 
utilizado o canal A, cuja frequência é es- 
tabelecida pelos registros O (ajuste fino) 
e 1 (ajuste grosseiro). Em caso de ruí- 
do, a frequência é determinada pelo re- 
gistro 6. A variável A contém o valor 
adequado do registro de frequência, 
conforme a opção seja música ou ruí- 
do. A variável T varia também confor- 
me essa opção, compatibilizando os va- 
lores máximos que cada registro de fre- 
quência comporta. 

Conforme o valor do registro 7 (li- 
nhas 36 e 38) teremos ruídos ou sons 
musicais. O valor 7 determina ruído, e 
o valor 56, música (nm 

Uma das características do disposit 
vo sonoro do MSX é a possibilidade de 
programar o formato da onda sonora 
































ou “envoltória””. Isto significa que o vo- 
lume do som muda ao longo do tempo 
de acordo com uma curva cujo forma- 
to pode ser escolhido por nós (formato 
de serra, triângulo, pulso, etc). Normal- 
mente, o volume é fixado de acordo com 
o valor do registro 8 (para o canal A). 
Se colocarmos nesse registro o valor 16 
(linha 40) teremos à nossa disposição di- 
versos tipos de envoltórias (veja o for- 
mato delas em seu manual). O registro 
13 seleciona a forma da envoltória, e os 
registros 11 e 12 determinam o período 
do ciclo. Este último valor corresponde 
à velocidade com que o volume vai mu- 
dar. Valores baixos correspondem a al- 
tas velocidades. 

Comece então a experimentar. Esco- 
lhendo o programa 10, por exemplo, 
com envoltória fixa e sons musicais, vo- 
cê ouvirá um canto de pássaro. As va- 
riações são quase ilimitadas. 

Para entender melhor como todos es- 
ses valores modificam as características 
do som produzido, faça o seguinte: pri- 
meiro ouça todos os treze programas 
utilizando envoltórias fixas e sons mu- 
sicais. Depois comece a ouvi-los com as 
diferentes envoltórias programáveis, 
mantendo o mesmo programa para po- 
der comparar. Inicialmente, varie ape- 
nas a forma da onda, mantendo o va- 
lor 1000 para o período do ciclo. A se- 
guir, varie o período, conservando o res- 
to constante. Depois de experimentar os 
sons music: repita a mesma seqiên- 
cia para os ruídos. 











Existem dois comandos no BASIC do 
TRS-Color que podem ser usados para 
produzir efeitos sonoros: o SOUND e o 





PLAY. Ambos utilizam o mesmo gera- 
dor sonoro, embora não seja possível 
afetar de maneira significativa a quali- 
dade (timbre) da nota produzida. O 
SOUND controla a fregiiência e a dura- 
ção do som, enquanto o PLAY permite 
que você selecione uma sequência de no- 
tas musicais para executar uma melodia, 
por exemplo. O comando SOUND po- 
de ser utilizado para produzir bipes (sim- 
ples tons sonoros, de frequência e dura- 
ção fixas), como mostramos no progra- 
ma a seguir. Quando rodá-lo, não se es- 
queça de ligar o volume na sua TV; do 
contrário, não ouvirá nada! 


10 FOR Q=1 TO 5 
20 SOUND 200,1 
30 NEXT Q 


A série de bipes pode ser alterada me- 
diante a modificação dos números após 
o comando SOUND. O primeiro núme- 
ro controla a frequência da nota e pode 
ter um valor de 1 a 255. A nota mais bai- 
xa é produzida por 1 e a mais alta por 
255 (para alguém que conhece algo so- 
bre música: o valor 89 corresponde à no- 
ta dó da escala do meio de um piano). 

O segundo número após o comando 
SOUND regula a duração do tom sono- 
ro. Novamente, a gama possível de va- 
lores vai de 1 a 255; o valor 16 fornece 
cerca de um segundo de duração. 

Esses bipes podem ser adequados a 
jogos especiais ou de fantasia, mas não 
são de muita utilidade quando o tema 
do jogo é mais realista. Assim como no 
caso dos efeitos gráficos simplificados 
para produzir explosões (flashes) desc: 
tos anteriormente, deve-se ser criterio- 
so ao utilizá-los. Nunca deixe de empre- 
gar efeitos sonoros adequados ao “*cli- 
ma”* do jogo. 














Quando se precisa de um tipo mais 
sofisticado de efeito sonoro, é recomen- 
dável abandonar o comando SOUND, 
cujos recursos são limitados. Ao invés de- 
le, é preferível utilizar o comando PLAY, 
como será explicado mais adiante. 


[TRA BIRINTO 


Se você gravou o programa de criação 
delabirintos aleatórios para o TRS-Color 
(dado na última lição de programação de 
jogos), poderá melhorar muito o jogo, 
adicionando os efeitos sonoros a seguir. 

Substitua a linha 230 no programa do 
labirinto pela seguinte: 


230 IF X<DLX OR Y<DLY THEN PUT 
(X1,Y1)-(X1+BS-1,Y1+BS-1),B,PSE 
T:LX=X:LY=Y:PLAY"TS005DG” 


Mude a linha 240 pa: 


240 IF F=1 THEN F=0:SC=SC+(TI-T 
IMER) :TI=TI-10:PLAY"TIOO3BCDEFG 
A"GOTO 130 


e substitua a linha 500 por: 








500 CLS:SCREEN 0,0:PLAY"T302L2C 
LACLIZCL2CL4ADALBDL4DLBCL4COILBB 
O2L2C":;LI=LI-1 


Agora, rode o programa e escute o que 
acontece quando o homenzinho se move 
pelo labirinto. Você obterá um som di- 
ferente no momento em que o tesouro for 
encontrado, e uma ''marcha fúnebre” 
quando o jogador perder uma “'vida”, 

Ao lidar com efeitos sonoros, procu- 
re evitar que eles retardem o seu jogo, 
pois toda vez que produz um som o 
computador interrompe qualquer outra 
coisa que esteja fazendo. Em programa- 
ção de jogos, isso significa que qualquer 

















movimento na tela cessa enquanto o 
som estiver sendo produzido. Na verda- 
de, você pode utilizar sons em vez de la- 
ços FOR...NEXT para introduzir pau- 
sas mais ou menos longas nos seus pro- 
gramas. O som na linha 230, por exem- 
plo, é muito curto, pois o espaço de tem- 
po foi reduzido ao mínimo. Trabalhan- 
do com sons, você pode até mesmo fa- 
zer o ajuste fino de seus programas. 


[Re Ad 


O comando PLAY opera sempre 
com base em um cordão alfanumérico, 
que transporta instruções para o com- 
putador. O cordão na linha 230 do pro- 
grama anterior contém as instruções 
T5005DG.OT significa Tempo(ou ve- 
locidade, se você preferir) e pode ser es- 
tabelecido em qualquer valor de 1 a 255 
A letra O é a oitava, e-pode assumir um 
valor de la 5 (1 é o valor mais baixo, 
eSéo mais alto). As duas últimas letras, 
De G, são notas, no sistema ameri- 
cano de notação (C é dó, D é ré, E é mi, 
etc.). De um modo muito geral, o que 
T5005DG significa é: “toque duas no- 
tas altas rapidamente 

Tente alterar os valores de T e O pa 
ra ver que tipos de efeitos sonoros você 
poderá obter. 

Na linha 240, o cordão é TIDO3BCD 
EFGA, que executa uma escala cres- 
cente. 

A marcha fúnebre na linha 500 é mais 
complexa. Uma explicação detalhada de 
como escrever música para o computa- 
dor deverá esperar mais um pouco, mas 
observe o quanto a duração da nota L 
é variada durante a melodia. Na verda- 
de, você pode variar qualquer um dos 




















parâmetros em um cordão, em qualquer 
ponto durante a melodia, tornando as- 
sim o comando PLAY muito flexível. 


ES 


O comando PLAY pode igualmente 
ser utilizado para produzir efeitos sono- 
ros simulando explosões, que serão de 
grande utilidade na maioria de seus jo- 
gos de ação. Os seguintes efeitos sono- 
ros podem ser utilizados sozinhos, ou 
com as imagens da lição '“'Bombardeios 
e Explosões"” (páginas 121 a 127). 

Tente esse efeito: 


10 PLAY”"TI6001L30GF4FE4DEDCADAD 
FEM 


Você poderá usá-lo quando algo for 
atingido ou explodir na tela. Incorpore- 
o, por exemplo, ao programa da pági- 
na 64, acrescentando o comando PLAY 
à linha 270, antes do comando GOTO 

Um interessante som de reverberação 
pode ser conseguido assim 





10 PLAY"TB001L2BFBFBFBFBFBFBFBF 
BF” 


Na oitava mais baixa, duas notas se 
repetem sem cessar. Tente manipular a 
velocidade e a duração das notas para 
obter variações sobre esse som. 

Você poderá conseguir uma repetição 
de seus efeitos sonoros utilizando uma 
rotina como a que se segue: 


10 F$="T10002L10AGBESDFADF 4” 
20 FS=FS+FS 
30 PLAY FS 


A linha 10 contém o cordão de ins- 
truções para o som. A linha 20 conca- 


tena o cordão, de modo que, quando a 
linha 30 o executa, o som se repete. 


LESS 


A repetição de um som tem outras 
aplicações. Se você deseja obter o ruií- 
do de uma sirene, empregue um progra- 
ma como esse: 

10 CLEAR 250 

20 F$="T15004LBCDDAEF4EGF4FEDAD 
CACDEDC4C” 

30 FS=FS+FS+ES+FS 

40 PLAY FS 

Para se obter o efeito de sirene, 
constrói-se um longo cordão, con- 
catenando-se quatro partes do F$ ori- 
ginal, antes de executá-lo. O computa 
dor TRS-Color oferece, ao ser ligado, 
uma quantidade limitada de espaço pa- 
ra variáveis alfanuméricas, de modo que 
o cordão que contém o novo efeito so- 
noro será muito maior do que a memó- 
ria disponível 

Portanto, a linha 10 é usada para re- 
servar mais espaços para variáveis alfa- 
numéricas, por intermédio do comando 
CLEAR 250, que estipula 250 bytes pa- 
ra esse fim. Tenha cuidado em reservar 
os 250 bytes extras de memória quando 
você utilizar o efeito sonoro em um pro- 
grama de jogos; caso contrário, você ob- 
terá uma mensagem de erro: OS — out 
of string space 

Não fique desapontado se os seus ex- 
perimentos não produzirem sons com- 
paráveis aos melhores efeitos em jogos 
comerciais. Alguns efeitos muito bons 
são possíveis em BASIC, mas os mais 
sofisticados são escritos em código de 
máquina — um tópico que será aborda- 
do futuramente em INPUT. 
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MEMÓRIAS SÃO 
FEITAS ASSIM 


Assim, se quisermos identificar 64K de 
memória, devemos numerá-los de 1 a 
65 536 em decimal (ou, de 0000 a FFFF, 
em hexa). 

O número hexadecimal de quatro dí- 
gitos atribuído a uma locação de memó- 
ria é conhecido como o seu endereço. 
Os micros aqui citados podem atin- 
gir uma memória interna de 64K, pois 
contam com um espaço de endereça- 
mento de dezesseis bits. Entretanto, não 
é esta a quantidade habitual de memó- 
ria anunciada pelos fabricantes. O mo- 
delo mais comum do Spectrum (por 
exemplo, o TK-90X, no Brasil) tem 48K; 
o TRS-Color, 32K; e o Apple Il e o 
TRS-80, 48K cada um. De fato, porém, 
todos eles têm 64K de espaço de memó- 
ria, ao todo. Esse número refere-se ape- 
nas à quantidade de memória que o 
usuário ou o programador podem utili- 
zar: os outros 32 ou 16K, conforme o 





A memória dos micros é constituída 
por milhares de minúsculos circuitos in- 
tegrados de silício que podem ser ligados 
e desligados individualmente. Esses cir- 
cuitos são organizados, dentro do chip, 
em grupos de oito. Cada grupo represen- 
ta um byte, isto é um número binário de 
oito bits, ou o correspondente a dois di- 
gitos em hexadecimal. Internamente, tal 
número é usado para definir um endere- 
ço para cada locação de memória. 


Dodo AUS OTA 


Em computação, um K é aproxima- 
damente análogo ao k (quilo) do siste- 
ma métrico. Na realidade, 1IK em com- 
putação equivale ao número hexadeci- 
*P mal 40, que é igual a 1 024 em decimal 

caso, são reservados para utili 


1 Y 
: 9 
> la própria máquina. Nos micros citados, 
o os fabricantes numeram as locações de 
memória de 0000 a FFFF. O Spectrum 
ou o ZX-81 de 16K (os menores) — que 
têm na realidade 32K de memória ao to- 
do — numeram suas locações de memó- 
ria de 0000 a 7FFF. 
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Além da organização básica em bits 
e bytes, o espaço de memória do com- 
putador é dividido em subunidades: as 
páginas, definidas como conjuntos en- 
dereçáveis de 100 locações de memória 
em hexa, cada uma (256 em decimal), 
A página O (zero) vai de 0000 a 00F 
a página 1 (um), de 0100 a O1FF, e as- 
sim por diante. A organização em pági- 
nas facilita a programação do sistema, 
pois páginas especificas podem ser re- 
conhecidas pelo hardware da UCP. 
Existem dois tipos de memória inter- 
na: ROM e RAM. ROM (Read-Onlu 
Memory) significa memória somente de 
leitura. Ou seja, pode-se ler o conteúdo 
das locações de memória ROM mas não 
se pode escrever nelas. Protegida con 
tra alterações externas, a informação 
contida é fixada permanentemente 
quando os chips ROM são produzidos 
A memória ROM guarda as instru: 
ções operacionais e o interpretador que 
traduz seus programas BASIC para có 
digo de máquina. Os códigos contidos 
na ROM também são responsáveis pela 
imposição de uma estrutura ao resto da 
memória. Aberta ao usuário, a RAM 
(Random Access Memory) significa me- 
mória de acesso aleatório. Algumas lo- 
cações na RAM são controladas pela 
ROM: se você tentar escrever nessas lo- 




































cações reservadas de memória, os pro- 

amas gravados na ROM se encarrega- 
ão de fazê-las voltar ao seu conteúdo 
original. Apesar disso, RAM é uma es- 
pécie de folha em branco, na qual você 
pode escrever o que quiser 


Lo RA 


Os mapas de memória mostrados 
adiante são uma representação gráfica 
da memória RAM e ROM de cada tipo 
de micro. As áreas representada 
tudo, não estão em sua posiç 
exata, pois o espaço da memória é divi- 
dido em diferentes chips. Alguns dos li- 
mites entre as seções da memória — co- 
mo a fronteira entre a ROM e a RAM 
— coincidem com a mudança de um 
chip para outro. Outros, porém, são fle- 
xíveis e suas posições são indicadas por 
um ponteiro ou indicador na área de va- 
riáveis do sistema 

Um ponteiro é uma locação da me- 
mória (ou melhor, um par de locações 
da memória) que armazena o endereço 
de uma outra locação — neste caso, o 
início de uma seção particular da memó- 
ria. O endereço de qualquer byte de me- 
mória é constituído por um número bi- 
nário de dois bytes de comprimento (de- 
zesseis bits), de modo que precisa ser ar- 
mazenado em duas locações adjacentes 
de memória. 
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A memória ROM de 16K do Spec- 
trum vai de 0000 a FFFF e contém o in- 
terpretador e o editor de programas em 
BASIC, bem como várias rotinas de en- 
trada e de saída e o conjunto de carac- 
teres que guardam os dados para as le- 
tras do alfabeto, números e outros sim- 
bolos grá s. Os 48K restantes — que 
vão de 4000 a FFFF — ou os 16K res- 
tantes — que vão de 4000 a FFFF — 
são memória RAM. 

As funções das áreas em que a memó- 
ria RAM está dividida são as seguintes: 

A área de exibição controla o que é 
mostrado no vídeo. Cada locação da 
memória corresponde a uma linha de oi- 
to pixels. 

A área de atributos controla as cores 
de fundo (PAPER) e de frente (INK) 
das 768 locações de caracteres na tela, 
e o tipo de exibição a ser feita (intensi- 
dade normal, brilhante ou piscante). 

A memória intermediária da impres- 
sora retém a próxima linha do texto que 
será enviada para a impressora. 

A área de variáveis do sistema con- 
tém as locações que guardam os ende- 
reços do início das áreas especificadas 
acima (apontadores). 

A área de mapeamento de microdri- 
ves existe apenas nas unidades de micro- 
fita (microdrives) para o Spectrum, co- 
nectadas ao computador. Em caso con- 
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[|] PONTEIROS E INDICADORES 


trário, o apontador CHANS, cujo en- 
dereço é armazenado nas locações 
23 631 e 23 632 (5C4F e SCS0, em he- 
xadecimal), é deslocado para 5BC6. 

A área de informação de canal trans- 
porta os dados de entrada e de saída, Ela 
conduz a entrada do teclado para a parte 
mais baixa da tela de TV e a saída do 
programa para o restante da tela, para 
o espaço de trabalho mais acima na me- 
mória e para uma impressora. 

A área do programa BASIC retém as 
linhas de qualquer programa BASIC di- 
gitado ou carregado; seu tamanho de- 
pende da extensão do programa. Inicia- 
se no endereço fornecido pela variável 
de sistema PROG, que é armazenada 
nas locações 23 635 e 23 636 (5C53 e 
5C84) na área das variáveis do sistema, 
Isto apontará para a locação 23 755 
(SCCB em hexa), se nenhum microdri- 
ve estiver conectado. 

A área das variáveis armazena os 
valores das variáveis que estão sendo 
utilizadas no programa BASIC em cur- 
so, Começa na locação apontada por 
VARS, armazenado nas locações 23 627 
e 23 628 (5C4B e SC4C em hexa) da área 
das variáveis do sistema. Quando um 
programa é rodado, o início da área das 
variáveis permanece onde está, mas o fi- 
nal vai crescendo para cima, à medida 
que novas variáveis são definidas pelo 
programa em BASIC. 

A área de edição é o local onde é fei- 
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ta a edição das linhas BASIC. Quando 
o <ENTER> é apertado, as linhas são 
copiadas para a área do programa BA- 
SIC. A área de edição começa na E- 
LINE, cujo endereço é retido nas loca- 
ções 23 641 e 23 642 (5C59 e SCSA em 
hexa) na área das variáveis do sistema. 

O espaço de trabalho serve para ta- 
refas gerais, como a armazenagem dos 
dados de entrada e a concatenação de 
strings. O WORKSP é armazenado em 
23 649 e 23 650 (5C61 e SC62 em hexa) 
na área das variáveis do sistema. 

A pilha de cálculo é utilizada para re- 
ter números em ponto flutuante, núme- 
ros inteiros de cinco bytes e o conjunto 
de parâmetros de cinco bytes. Começa 
em STKBOT, cujo endereço ocupa as 
locações 23 651 e 23 652 (5C63 e SC64 
em hexa), e termina em STKEND, que 
é encontrado em 23 653 e 23 654 (5C65 
e 5C66 em hexa). 

A área de memória de reserva permi- 
te que as áreas da memória situadas aci- 
ma e abaixo dela cresçam até que 
STKEND encontre o indicador de pilha. 

Acima dos bytes sobressalentes está 
a pilha da máquina, empregada pela 
UCP quando um programa BASIC é ro- 
dado. 

A pilha de sub-rotinas (GOSUB) ar- 
mazena os números de linha para os 
quais um programa deve retornar quan- 
do completar cada sub-rotina chamada, 

O ponteiro RAMTOP indica o final 
da memória RAM disponível para o ar- 
mazenamento de programas. Seu ende- 
reço é retido em 23 730 e 23 731 
(SCB4 e SCBS em hexa) na 
área das variáveis. 

Acima de 
RAMTOP 
de me- 
ser 


há 168 locações 

mória que podem 
usadas para armaze- 
nar 21 representações 
ou padrões gráficos de- 
finidos pelo usuá- 

rio, Entre- 






tanto, o topo da RAM é armazenado em 
uma variável do sistema e pode ser deslo- 
cado para uma posição mais abaixo na 
memória, usando-se o espaço de reserva 
para as pilhas de sub-rotina e de máqui- 
na. Isto pode ser feito através de progra- 
mação em código de máquina. Normal- 
mente, um programa em código de má- 
quina fica acima do RAMTOP abaixado. 

O apontador P-RAMT assinala o to- 
po físico da memória RAM; isto é, aci- 
ma desse ponto não existem mais locações 
da memória nos chips do Spectrum. O P- 
RAMT é uma variável do sistema, com 
endereço armazenado nas locações 23 732 
e 23 733 (SCBS e SCB6 em hexa). 

Para verificar o valor de P-RAMT li- 
gue a máquina e entre essa linha: 


PRINT PEEK 23732+256*PEEK 23733 


Isto retornará o valor 65535 no 
Spectrum de 48K, ou o valor 32767 no 
modelo de 16K. Se nenhum destes va- 
lores for retornado pela linha, então al- 
guma coisa está errada com o seu com- 
putador. Pode-se examinar o conteúdo 
dos outros apontadores na área de va- 
riáveis do sistema, utilizando a mesma 
linha PRINT, apenas substituindo os 
valores correspondentes às duas loca- 
ções de memória da variável. 

A palavra-chave PEEK em BASIC 
“olha” os conteúdos dos bytes da memó- 
ria e retorna 0 equivalente decimal do nú- 
mero que encontrar. O endereço tem o 
comprimento de dois bytes (requer duas 
locações da memória para ser armazena- 

do). O Spectrum divide 
o en- 


dereço 

hexa de quatro 

dígitos — por exemplo, 

o endereço normal FF57 de RAMTOP 
— em duas partes de F e 57. 

O byte mais baixo, 57, vai dentro do 
endereço menor, e o byte mais alto, 
FF, vai no endereço maior. 
— Isto explica por que a 
das loca- 











tg 
fz 


memória no 

programa acima 

s é multiplicada por 
7 256; do contrário, o 
Spectrum poderia retornar 

ao equivalente decimal de FF, 
ao invés de FFOO. 


Os micros compatíveis com o mode- 
lo Sinclair ZX-81 têm 8K de ROM, com 
endereços que vão de 0000 a IFFF em 
hexa, ou de O a 8 190 em decimal. Os 
outros 8K de memória, de 2000 a 3FFF, 
não são utilizados. 

O mapa de memória mostrado aqui ser- 
ve para dm os com um aaa aa 
pansão de 16K RAM, cujos endereços vão 
de 4000 a 7FFF em ou 16 384 

32 767 em decimal No caso de 
o computador ter um cartucho de 
RAM de 8K ou um de 4K, bas- 
ta “achatar” as áreas de memória 

no espaço correspondente de 8K 
ou 4K, e fazer com que o topo fi 
sico da memória RAM passe a 

ser SFFF (24 575 em decimal) 

ara o cartucho de 8K, 


ou 4FFF (20 479 em decimal), para o car- 
tucho de 4K. 

Em todos esses casos, as variáveis do sis- 
tema ocupam a área de 4000 a 4087 em he- 
xa, ou 16 384a 16 509 em decimal. As ou- 
tras áreas não são fixas, e os endereços cor- 
respondentes aos seus limites — D-FILE, 
WARS, E-LINE, STKBOT, STKEND, 
ERR-SP e RAMTOP — são armazenados 
como apontadores nessa área das variáveis 
do sistema. 

A área de programa BASIC, que vai de 
16 509 a D-FILE, contém o programa em 
BASIC do usuário. Da locação D-FILE até 
a locação WARS, fica o arquivo de 
exibição. 

A área de variáveis vai se expandindo 
à medida que um programa em BASIC é 
executado e novas variáveis são definidas 


| em seu interior. Essa área tem o seu final 


assinalado pela locação da memória que 
contém 80, em hexa. 

Entre as locações E-LINE e STKBOT 
estão a área de edição e o espaço de traba- 
lho. A linha que está sendo digitada pelo 


! teclado ocupa a área de edição. Seu con- 


teúdo é transferido para a área do progra- 
ma assim que a tecla < ENTER > é pres- 
sionada. 

Entre a locação STKEND eo indicador 
da pilha de máquina existe uma área de re- 
serva de memória, para onde as áreas aci- 
ma e abaixo dela podem se expandir. A pi- 
lha de máquina é usada pela máquina 
quando um programa BASIC é rodado; a 
pilha de sub-rotinas (GOSUB) armazena 
os números de linha para os quais um pro- 
grama deve retornar depois da execução de 
uma sub-rotina, 

O apontador RAMTOP designa o to- 
po físico da memória — isto é 32 767, 
24 575, 20 479 ou 17 407, dependendo do 
cartucho de expansão RAM conectado à 
máquina. Tecle a linha seguinte: 


PRINT PEEK 16388+256*PEEK 16398 


A linha retorna o valor decimal corres- 
pondente à RAM máxima disponível no 
sistema. Você pode examinar o conteúdo 
dos outros apontadores na área de variá- 
veis do sistema, utilizando a mesma linha 
PRINT e substituindo os valores corres- 
pentes dadas locações de memória da 


A palav ra-chave PEEK em BASIC 
“olha” os conteúdos de cada da me- 
“mória'e retorna o equivalente 
número que encontrar. 

















a segunda das duas locações da memória 
no programa acima é multiplicada por 256. 


ca MESES e an 


O TRS-Color tem uma memória ROM 
de 32K, que vai da locação &H8000 à 
&HFFFF Essa área é dividida em duas ou- 
tras: uma que controla a entrada e a saída 
do computador em relação ao cartucho de 
ROM removível, e outra, não removível, 
que contém o sistema operacional e o in- 
terpretador BASIC. 

Os programas em BASIC e suas variá- 
veis são armazenados na memória RAM, 
entre as locações &H3600 a &H7FFF. Exis- 
te também uma pilha que ocupa a parte 
mais elevada de RAM, logo abaixo da 
ROM, de &H7FFF para baixo. Mas a pi- 
lha pode descer um pouco mais, de modo 
acriar espaço para um programa em códi- 
go de máquina, Isto é feito alterando-se o 
valor da variável do sistema, que aponta pa- 
ra a base da pilha. 
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Uma parte da RAM é reservada para oi- 
to páginas de gráficos de alta resolução, que 
não correspondem exatamente às páginas 
de memória mencionadas antes. Estas con- 
têm 256 locações, ou 0,25K. As páginas de 
gráficos, ao contrário, têm 1.5K, e cada 
uma guarda informação gráfica suficiente 
para preencher toda a tela na modalidade 
de resolução mais baixa — PMODE 0 —, 
enquanto a modalidade de resolução mais 
alta — PMODE 4 — necessita quatro des- 
sas páginas para preencher totalmente a te- 
la. O computador reserva automaticamente 
quatro páginas, mas PCLEAR pode ser 
usado para reservar mais. 

Quando não estão em uso, essas pági- 
nas são deixadas vazias. Mas, se uma me- 
mória extra for requisitada, elas poderão 
ser limpadas até a página 1 do BASIC. Is- 
to permite o acesso a uma memória extra 
de 10.5K. 

A telade texto ocupa 1/2K entre &H400 
e &H600. Isto corresponde a uma locação 
de memória para cada espaço de caracte- 
res na tela de dezesseis linhas de 32 carac- 
teres. Os caracteres, formados por 96 pon- 
tos na tela (oito por doze pixels), são gera- 
dos por um chip gerador de vídeo separado. 

As variáveis do sistema estão armaze- 
nadas na área que vai de &H000 a &H400. 
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São uma coleção de indicadores ou apon- 
tadores, que fornecem os endereços do iní- 
cio de diversas áreas na memória e de ou- 
tras variáveis do sistema. 

O primeiro grupo de 256 bytes — de 
&H00 a &HFF — é conhecido, no TRS- 
Color, como página direta. Qualquer das 
páginas de memória pode ser designada co- 
mo página direta, ou seja, a página cujas 
locações podem ser endereçadas mediante 
a utilização de um endereço curto de um 
byte, em vez do endereço normal e maior 
de dois bytes. Isto é feito definindo-se o re- 
gistro da página direta no micropro- 
cessador. 


O TRS-80 tem um espaço máximo de 
memória RAM de 48K, quando usado 
como BASIC Nível II (máquinas com gra- 
vador cassete), ou com o TRSDOS e equi- 
valentes (máquinas com disquete). Quan- 
do esses micros são usados com o sistema 
operacional CP/M, essa memória pode ser 
expandida internamente para 64K de 
RAM. Trataremos aqui apenas do mapa de 
memória de máquinas compatíveis com o 
modelo III da Radio Shack, como é o ca- 
so do Prológica CP-500. 

O espaço total de memória interna do 
TRS-80 é de 65 535, ou HFFFF, em hexa. 
O espaço que vai do endereço 0 a 14 435 (ou 
H0000 a H3800) é ocupado pela memória 
ROM do sistema: 12K de EPROM conten- 
do o sistema operacional e o interpretador 
BASIC Nível II, e 2K de EPROM adicio- 
nais para uso do sistema (total de 14K de 
ROM). 

A memória RAM começa sempre na lo- 
cação 14 336 e se estende até o topo físico 
da memória, que pode ser 32 767 (máqui- 
nas com 16K), 49 151 (máquinas de 32K) ou 
65 535 (máquinas de 48K). Os endereços 
em hexa são: H7FFF, HBFFF e HFFFF. 

A RAM é dividida, por sua vez, em duas 
partes principais: uma reservada para uso 
do sistema, que vai de 14 336 a 17 384 
(H3800 a H43E8) e outra, que começa em 
17 385 (H43E9) e vai até o topo lógico da 
memória (RAMTOP). Essa locação está 
armazenada na área de variáveis do siste- 
ma, e é definida pela primeira vez quando 
o computador é ligado, e faz a pergunta ao 
operador (MEM SIZE?). 

A área do sistema é subdividida, por sua 
vez, em diversas áreas de comprimento fi- 
xo e uma de participação flexível, As áreas 
de comprimento fixo são as seguintes (ve- 
ja o gráfico): 

A área matricial do teclado contém as 
locações de memória mapeadas no tecla- 
do. Qualquer tecla pressionada “liga” bytes 
correspondentes nessa área (que vai de 
14 336 a 15 359). 








A memória de vídeo também corres- 
ponde a um mapeamento direto das 1 024 
posições de caracteres na tela, era memó- 
ria RAM. Estende-se de 15 360 (canto su- 
perior esquerdo da tela) a 16 383 (canto 
inferior direito). Assim, uma posição N na 
tela (correspondente ao parâmetro do 
<PRINT>) éarmazenada na posição ab- 
soluta de RAM igual a 15,360+N, 

A área que vai das locações 16 384 a 
17 384 (mil bytes, portanto) é a área do sis- 
tema, que contém apontadores, buffers, in- 
dicadores e outras locações especiais de uso 
particular do interpretador BASIC e que 
podem ser examinados e alterados pelo 
usuário por meio de comandos PEEK e 
POKE. O conteúdo inicial dos apontado- 
res e indicadores é estabelecido quando a 
máquina é ligada, ou quando é dado um 
RESET de iniciação. 

A área de programas e dados começa 
na locação 17 385 (H3E9). Tem três dife- 
rentes compartimentos: a área do progra- 
ma, a das variáveis e a de cordões alfanu- 
méricos. Os limites entre essas três subá- 
reas são alterados dinamicamente, em fun- 
ção da execução do programa em BASIC 
e de alguns de seus comandos. Por exem- 
plo, o comando CLEAR fixa o tamanho 
máximo da área de cordões, logo abaixo 
do topo lógico da RAM. Ao ser introduzi- 
do, o interpretador aloca automaticamen- 
te cingiienta bytes a essa área. 

O procedimento usual para colocar um 
programa em linguagem de máquina do 
usuário é fixar um limite lógico máximo 
de RAM, seja através da pergunta inicial, 
seja através da manipulação do ponteiro 
que contém o endereço. Isto cria uma área 
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protegida de memória onde é colocado o 
programa em linguagem de máquina por 
meio do monitor residente do TRS-80/II 
ou de programas monitores e Assembler 
carregados externamente. 


Os micros MSX apresentam algumas di- 
ferenças entre si. Por isso, tomaremos co- 
mo exemplo o micro nacional Sharp 
HB-8000 (Hot-bit). Este dispõe de um es- 
paço máximo de memória de 128K, divi- 
dido em quatro siots, ou encaixes dispo- 
níveis, quando usado com o BASIC para 
gravador cassete. Essa memória tem RAM 
disponível de 64K. 

O espaço de memória do Sharp é divi- 
dido em dois compartimentos de 65 535 
bytes, ou &HFFFF, em hexa. No primeiro, 
o espaço que vai de 0a 32 767 (ou &H0000 
a &H7FFF) é ocupado pela memória 
ROM; ele contém o interpretador BASIC 
e o sistema operacional. O espaço restan- 
te de 32768 a 65575 (&H8000 a 
&HFFFF), é utilizado para endereçamen- 
to dos cartuchos removíveis de ROM. 


A memória RAM básica está no segun- 
do compartimento. A área que vai de 
&H0000 a &H7FFF (área livre) não é con- 
trolada pelo interpretador BASIC, 

A segunda área da RAM é controlada 
pelo interpretador BASIC e é dividida em 
duas partes principais: a primeira, mais alta 
ede comprimento fixo, é reservada para uso 
do sistema e vai de &F380 até o topo físico 
da RAM. É a área do sistema e contém 
apontadores, buffers, indicadores e outras 
locações de uso particular do interpretador 
BASIC e que podem ser examinados e al- 
terados pelo usuário (comandos PEEK e 
POKE). 

A segunda área, mais baixa, contém tu- 
do o que é de uso do programa BASIC ar- 
mazenado e é subdividida em áreas de com- 
primento variável. 

A área de blocos de controle dos arqui- 
vos tem como limite máximo o topo ló 
co da área do usuário. Esse valor é defini- 
do como sendo &HF380, mas pode ser mo- 
dificado para baixo (comando CLEAR). 
Se um valor diferente deste for estipulado 
pelo CLEAR, a área livre entre essa loca- 
ção máxima e a locação &HF380 fica dis- 








- 


TFF 
8000 


FFEF 





MAPA DE MEMÓRIA DO MSX 





pn ia 








ponível para abrigar programas em códi- 
go de máquina. A área dos blocos de con- 
trole contém buffers e indicadores para 
transferências de entrada e saída. Seu ta- 
manho é definido internamente ou modi- 
ficado pelo comando MAXFILES do 
BASIC. 

A área de cordões alfanuméricos vem 
logo abaixo e contém os cordões definidos 
durante a execução do programa. Tem ta- 
manho estabelecido pelo comando 
CLEAR. Este pode conter um segundo ar- 
gumento, que é a definição do topo lógico 
da RAM. Por exemplo, CLEAR 200, 
&HDFFF fixa esse valor em &HDFFF. 

A seguir vem a área da pilha, que tem 
comprimento fixo e contém os endereços 
de retorno das sub-rotinas (GOSUB) e dos 
laços'FOR... NEXT. 

A área que se inicia em 32 768 
(&H8000) é a área de programa, que abri- 
ga o texto do programa. Acima dela exis- 
tem duas áreas dinâmicas, que crescem à 
medida que o programa é executado: a área 
de variáveis e a área das matrizes. A área 
de reserva de memória para programa (área 
residual) correspondeà diferença entre a so- 
ma das áreas fixas (pilha, cordões e blocos 
de E/S) e à soma das áreas variáveis (pro- 
grama, variáveis e texto). 

A memória de vídeo do MSX também 
corresponde a um mapeamento direto de 
posições de caracteres ou de gráficos em di- 
versas páginas. São 16K de RAM que têm 
seu endereçamento à parte. 

A tela de vídeo é tratada pelo micropro- 
cessador central como um dispositivo de 
entrada e saída, e o BASIC dispõe de vá- 
rios comandos para fazer funcionar esse es- 
quema, inclusive leitura e gravação abso- 
luta (VPEEK e VPOKE). 


O Apple Il e o TK-2000 utilizam o mi- 
croprocessador 6502, de oito bits. Seu es- 
paço total de endereçamento de memória 
é de 64K, dividido em 256 páginas de 256 
bytes. Essas páginas são alocadas para di- 
ferentes funções pela UCP e pelas rotinas 
operacionais, e constituem o mapa de me- 
mória do Apple. Na configuração padrão 
desses micros, somente 48K são disponi- 
veis para o usuário (RAM), mesmo assim 
parcialmente, pois uma parte é reservada 
para uso do sistema. Os 16K restantes cor- 
respondem à memória ROM. A forma 
básica de organização da memória é seme- 
lhante para os micros da linha Apple II e 
para o TK-2000. 

A organização da memória do Apple II 
depende do tipo de linguagem empregada 
(INTEGER BASIC, FPBASIC ou AP- 
PLESOFT), de se está sendo utilizado dis- 
quete ou não, e da versão do sistema ope- 
racional de disquete (DOS). Além disso, é 








possível expandir-se a memória RAM me- 
diante bancos adicionais, para 64K ou 
128K. Examinaremos aqui o mapa de me- 
mória para a configuração básica, ou se- 
ja, um Apple II com 48K de memória 
RAM e sistema cassete: 

A área da memória ROM, que se esten- 
de das páginas $C1 a $FF (em hexa), con- 
tém o código de máquina necessário para 
a operação e programação da máquina — 
o interpretador BASIC, o monitor, e, no ca- 
so do TK-2000, também um disassembler 
e um míni-assembler. 

A área de entrada/saída é uma página 
de IK, que inclui uma série de registros, 
áreas de memória intermediária, aponta- 
dores e indicadores relativos aos dispositi- 
vos de entrada e saída da máquina (vídeo, 
som, gravador cassete, teclado, seleção de 
RAM, etc). Além disso, existem áreas de 
memória'reservadas para as páginas de ví- 
deo, que servem para mapear os textos e 
gráficos que nele aparecem. 

Os endereços das áreas de vídeo são di- 
ferentes para o TK-2000 e para os micros 
da linha Apple: 


Apple TK-2000 


TEXTO Pág. 1 0400-07FF 2000-3FFF 

TEXTO Pág. 2 0800-0BFF A000-BFFF 
HGR Pág. 1 2000-3FFF 2000-3FFF 
HGR Pág. 2 4000-5FFF A000-BFFF 
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O Apple tem quatro áreas de vídeo: duas 
páginas situadas na parte baixa da memó- 
ria (antes do início da área de programas) 
eduas na parte alta da RAM. Já o TK-2000 
tem somente duas áreas, ambas na parte 
alta da memória. 

A área de texto do Apple e do TK-2000 
também é usada para gráficos de baixa re- 
solução (GR), ao passo que as áreas de grá- 
ficos de alta resolução são separadas ape- 
nas no Apple. 

Finalmente, a terceira área é a área de 
memória RAM, que vai da página O à pá- 
gina 191 ($00 a SBF, em hexa). 

A memória RAM também é subdividi- 
da em áreas de tamanho fixo ou variável, 
conforme a aplicação: 

A área de variáveis do sistema é arma- 
zenada na página 0 e contém apontadores 
e indicadores atualizados pela UCP. A pi- 
lha da máquina ocupa a página 1, e tem 
256 bytes. Ela serve para diversos fins, po- 
dendo inclusive ser utilizada pelo progra- 
mador em linguagem de máquina; normal- 
mente, ela guarda os endereços de retorno 
de sub-rotinas e laços em BASIC. A área 
de edição, alocada na página 3, contém o 
buffer (memória intermediária) do tecla- 
do, ou seja, a última linha digitada. 

A área de trabalho, que se estende das 
páginas 3 a 7, também é reservada para o 
sistema operacional, para o monitor e pa- 
ra diversas rotinas de E/S. Alguns endere- 
ços dessa área podem ser utilizados pelo 
programador em linguagem de máquina 
para colocar seus próprios programas, bem 
como para modificar alguns ponteiros e in- 
dicadores que permitem alterar a maneira 
pela qual a UCP processa os dados na me- 
mória e nos dispositivos de E/S. 

Finalmente, o espaço que vai da página 
8 em diante é a área do usuário. Os pro- 
gramas em BASIC começam normalmen- 
te na página 8, que também pode ser utili- 
zada para programas em linguagem de má- 
quina. Nos micros da linha Apple, contu- 
do, esse espaço de RAM não fica inteira- 
mente disponível para os programas do 
usuário. Bem no meio da área do usuário 
estão as duas páginas de vídeo referidas aci- 
ma. Usando comandos POKE, nos micros 
da linha Apple, e os comandos MP e MA, 
no TK-2000, é possível comutar-se a utili- 
zação da primeira área de vídeo, passando- 
a para a segunda, situada mais acima. 

Os programas em BASIC começam a 
partir de &H0800. Por isso, sobram cerca 
de seis Kbytes até o começo da primeira 
área de vídeo. Se você quiser utilizá-la, o 
truque acima não funcionará. Mas há uma 
alternativa. A área de variáveis do BASIC 
tem dois limites definidos por dois apon- 
tadores na área de variáveis do sistema: LO- 
MEM, que define o limite inferior dessa 
área, e Hi , seu limite superior. Exis- 
tem comandos equivalentes em BASIC pa- 
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ra alterar esses endereços. Assim, 
deslocando-se simultaneamente o endere- 
ço, de início de um programa BASIC para 
uma posição acima da primeira área de ví- 
deo (isto é feito com dois comandos PO- 
KE) os parâmetros HIMEM e LOMEM, 
é possível preservar-se a primeira página de 
vídeo. 

O Apple Il e o TK-2000 têm a capaci- 
dade de selecionar a RAM ou a ROM pa- 
ra execução de programas residentes em 
memória. Essa opção é armazenada em 
dois indicadores situados na área de entra- 
da/saida, que podem ser modificados por 
dois POKE. No TK-2000, o apontador RO 
seleciona a ROM e está na locação $COSA. 
O Apontador RA seleciona a RAM e está 
em $COSB. Ao ser ligada a máquina, é se- 
lecionada a ROM, o que ativa o interpre- 
tador BASIC residente. O programador po- 
de alterar esses endereços e dar ordem pa- 
ra que o micro execute código de máquina 
(primeiro endereço da RAM). O botão 
<RESET> cas teclas <CTRL> <RE- 
SET> fazem uma resseleção da ROM. 


Digite os números e deixe o micro 
convertê-los em histogramas coloridos 
e bem-feitos. Por meio deles, será 
fácil comparar valores diversos ou 
verificar suas tendências temporais. 


Você já deve ter visto alguns anún- 
cios de programas para aplicações co- 
merciais, nos quais se destaca a elabo- 
ração de gráficos sobre estatísticas de 
vendas, evolução de cotação das ações 





na Bolsa, etc. 


sse tipo de informação, 
que em geral envolve uma quantidade 
enorme de números, torna-se de fácil 
compreensão quando representado por 
diagramas ou gráficos. E se preparar um 
gráfico manualmente é trabalhoso, pa- 
ra um computador comercial trata-se de 
tarefa simples e rápida. 
A capacidade de representar informa- 
D é, entretanto, atributo exclu- 
sivo dos computadores comerciais. Ela 
estende-se, também, aos computadores 
domésticos, constituindo-se em uma de 
suas áreas de aplicação prática. Todos 


os computadores apresentados aqui pos- 
suem capacidade numérica e gráfica que 
os habil efetuar esse tipo de traba- 
lho, com graus variáveis de precisão 
de detalhamento gráfico. 

Dificilmente o usuário médio de com- 
putadores domésticos precisará lidar 
com a ta quantidade de informações 
geradas, por exemplo, por uma peque 
na empresa. Mas numerosas questões 
que lhe interessam diretamente podem 
ser analisadas de maneira proveitosa em 
um microcomputador. Por exemplo, a 
relação entre seus rendimentos e gastos 
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ao longo de um ano; o peso es 
em periodos distintos, dos dive 
que compõem seu orçament: 
ções mensais de sua capaci 
poupança. 

Além dessas áreas, cujas ap 
se assemelham às comerciais, 
várias outras, sobretudo rela 
com algum tipo de passatempo 
dem ter seus dados analisados 
sentados graficamente: a fregi 
clube local ou a espetáculos tea 
determinado período, a evoluçã 
mero de itens em coleções de li 
cos ou selos e estatísticas de re 
esportivos. 

O programa apresentado se 
preparar, rapidamente, um gri 
barras — ou histograma —, m 
as variações temporais de algur 
valor. Como os eixos do gráfi: 
zontal e vertical) ajustam-se a 
camente, pode-se trabalhar co: 
semanais, mensais, anuais ou 
quer outra unidade de tempo. 

O intervalo máximo de valo 
zado pelo programa depende 
computador. Para o TRS-Col 
valores situam-se entre + 99 e 
ra o Spectrum, entre + 1000 e 
mais ou menos. Já para o Aj 
MSX, tais valores podem ter 
amplitude — unidades, dezena! 
nas, milhares e até milho 


cação assim requerer. 



























EA E 


Ao executar o programa, e: 
sentará na tela uma lista das or 
poníveis (o menu). Se for seleci 
opção para a entrada de dado: 
grama pedirá os títulos dos do 
apresentando-os no momento 
traçar o gráfico. 

Ao entrar com os títulos dg 
tenha sempre o cuidado de 
corretamente e na ordem pedid 
xo horizontal (X) representa c 
semanas, meses, anos ou qual 
tra unidade escolhida. O eixo) 
(Y) representa os valores dado! 
ras — cruzados, temperatura, 
de discos, etc. A altura de cada 
barras será proporcional a est 

Em seguida, o programa p 
mero de barras que deve apres 
número máximo possível depei 
sicamente, da capacidade gráfic 










TRS-Color, este número passa 
Apple e o MSX têm capacida 





apresentar até 200 barras, mas seu limi- 
te prático é de cerca de 65. Acima deste 
valor, as bárras ficam muito finas ou ir- 
regulares, constituindo um quadro vi- 
sualmente pouco claro. 

As perguntas seguintes feitas pelo 
programa referem-se aos valores dos da- 
dos. São apresentados na tela os núme- 
ros segiienciais das barras e uma pergun- 
ta sobre o valor a ser atribuído a cada 
uma: Esse valor, positivo ou negativo, 
é, novamente, limitado pela capacida- 
de numérica do seu computador. No 
TRS-Color, os valores vãodde — 999 a 
+999 e, no Spectrum, de — 1000 a 
+ 1000. O Apple e o MXS, por sua vez, 
trabalham com valores de qualquer 
magnitude, já que os gráficos são mon- 














“olor, e você deseja represen- 
tar valores que estão fora da capacida- 





de do programa, a solução é fornecer os 
dados divididos ou multiplicados por al- 
gum fator de conversão (por exemplo, 
em unidades de centenas, milhares, mi- 
lhões, etc.). 

Quando o último valor for introduzi- 
do, surgirá novamente a lista inicial de 
opções. Você poderá, então, escolher en- 
tre modificar algum valor digitado ou 
partir para a apresentação do gráfico. Se 
optar pela modificação, os valores que di- 
gitou serão apresentados na tela. Siga as 
instruções para corrigir o valor desejado. 

Quando estiver satisfeito com os va- 
lores, selecione a opção que permite a 
apresentação do gráfico. Os usuários do 
Apple e do MSX possuem apenas uma 
maneira de apresentar seus gráficos. 





fico em escala e um gráfico em repre- 
sentação real. 








=: 
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A opção de um gráfico escalonado 
apresenta o diagrama de barras com as 
dimensões, ao longo do eixo y, arredon- 
dadas para um valor máximo de 10, 100, 
1000, etc., dependendo do valor máxi- 
mo dos dados. Conforme este valor, po- 
rém, o gráfico pode não aparecer intei- 
ramente na tela. 

A opção de um gráfico em represen- 
tação real mostra o diagrama de barras 
ocupando a tela inteira, apresentando os 
valores reais dos dados (não os valores 
em escala) ao longo do eixo y. 

Para or clareza, as barras apre- 
sentadas pelo Apple, pelo MSX e pelo 
Spectrum são separadas umas das ou- 
tras por um pequeno espaço ou uma 
barra colorida. O TRS-Color apresenta 





co 





fofo RETA 


O programa de elaboração de histo- 
gramas tem três rotinas principais: 


* entrada dos dados que serão exibidos 





ão) dos dados já en- 


trados; 
* elaboração do gráfico. 


Os dados são armazenados no co 
junto A pela primeira rotina. A capaci 
dade desse conjunto é especificada di- 
namicamente pelo comando DIM, após 
o usuário indicar o número de dados que 
deseja utilizar. Quando o programa en- 














vos, e de vermelho e laranja, para os va- 


lores negativos. 





que se identifiquem os valores minimo 
e máximo nele presentes. Esses valores 










são armazenados nas variáveis LO e HI, 
respectivamente. O valor mínimo prede- 
finido é sempre zero; se os dados apre- 
sentarem um valor minimo maior, este 
será ignorado pelo programa. O valor 
máximo é arredondado: 10, 100, 1000, 
10 000, etc. 

Havendo dados negativos no conjun- 
to A (valor mínimo menor que zero), o 
programa definirá que o gráfico é de ti- 
po 1; senão, de tipo 2. Nos gráficos de 
tipo 1, a linha de base (eixo dos x) fica- 
rá acima do fundo da tela, e as barras 
correspondentes aos valores negativos 
serão dirigidas para baixo. 

O escalamento dos valores de um ei- 
xo é feito segundo uma regra simples, 
que leva em conta os valores mínimo e 
máximo, o número de pixels (pontos 
gráficos) que cabem no eixo e o arredon- 
damento ou não dos rótulos ao longo do 
fórmula de escalamento é: 








eixo. 
, X xmin 
= — = « pix 
xmax — xmin 
onde 
x" valor escalado 
x valor original 


xmin = valor mínimo na escala 

xmax = valor máximo na escala 

pix número máximo de pixels no 
eixo 





Em seguida, o gráfico é elaborado. 
Cada computador utiliza um método 
distinto para traçar as barras, Se vo 
conhecer um pouco de programa: 
BASIC, poderá, nesse ponto, alterar o 
prograr g fazer coisas diferentes. 

Por exemplo, a versão para o Sinclair 
Spectrum utiliza o comando PLOT pa- 
ra posicionar o cursor gráfico no ponto 
onde a barra vertical será traçada, e o 
comando DRAW, para traçá-la de uma 
vez. Se você substituir o comando 
DRAW por um outro PLOT, obterá 
apenas um ponto colorido, correspon- 
dente ao topo da barra. 

Outra modificação se refere à defini- 
ção das cores. No Sinclair Spectrum, 
por exemplo, o comando INK determi- 
na a cor a ser usada na barra, Note que 
a variável que se segue a este comando 
é modificada automaticamente pelo pro- 
grama, de modo a alterar a cor da bar- 
seguinte. Por meio de um comi 
INPUT, você pode mudar o programa, 
determinando que a cor seja solicitada 
ao usuário. 

Interessante também é a possibilida- 



































te ou disquete. Nesse caso, o menu ini- 18 
cial deverá ter duas opções adicionai 














MSX: gráfico da variação de temperatura ao longo do ano. 


* armazenar dados 
* gravar dados 


As rotinas correspondentes a estas 
chamadas deverão ser programadas e 
adicionadas ao programa. Assim, você 
poderá manter séries de dados armaze- 
nados (por exemplo, os rendimentos da 
caderneta de poupança ou os gastos 
mensais com alimentação) e atualizá-los 
com novos valores sempre que quiser 
los ou verificar sua tendência 
por meio do gráfico. Com esta modifi- 
cação, você não precisará, portanto, di- 
gitar os dados anteriores toda vez que 
executar um programa para elaboração 
de gráfico. 


10 PMODE 4,1 

20 cLS 

30 PRINT €45,"MENU”: PRINT 8102, 
"1- INTRODUZIR DADOS”: PRINT €16 
6,"2- GRAFICO DE BARRAS” : PRINT 
€230,"3- VER/CORRIGIR DADOS” : P! 
INT €294,"4- SAIR DO PROGRAMA” 
40 AS=INKEYS:IF AS<"1” OR AS>"4 
” THEN 40 

50 IF AS="1" 
60 ON VAL(AS) 
000,4000 

70 Goto 20 
BO PRINT €484,"VOCE TEM CERTEZA 
2. 








AND DA=1 THEN 80 
GOSUB 1000,2000,3 


90 AS=INKEYS:IF AS<>"Y” AND AS< 
>"N” THEN 90 

100 IF A$="Y” THEN CLEAR 200:AS 
="1":GoTOo 60 

110 Goto 20 

“1000 DA=1:CLS:INPUT"NOME DO EIX 
O RETAS 

7] 1010 XS=LEFT$S(X$,32):IF X82"" T 

HEN XS="EIXO x” 
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2 
E 
9 
E 
z 
É 
E 


1020 MD=INT(16-LEN(XS)/2) 
1030 INPUT"NOME DO EIXO Y";Ys 
1040 YS=LEFTS(YS,12):IF YS 
HEN YS="EIXO y” 

1050 HT=INT(6-LEN(YS)/2) 
1060 INPUT"NUMERO DE BARRAS” ;NB 
1070 NB=INT(NB):IF NB<1 THEN 10 
60 

1080 BL=INT(26/NB):IF BL<1 THEN 
BL=1 
1090 
1100 
1110 
1120 
NPUT 
1130 
1140 





DIM A(NB) 

PRINT 

FOR K=1 TO NB 
PRINT"VALOR DA BARRA 
A(K) 

NEXT 

RETURN 

2000 IF DA=0 THEN PRINT €455,"D 
ADOS NAO INTRODUZIDOS” :FOR K=1 
TO 2000:NEXT:RETURN 





2010 TP=0:BT=0 

2020 FOR K=1 TO NB 

2030 IF A(K)>TP THEN TP=A(K) 
2040 IF A(K)<BT THEN BT=A(K) 
2050 NEXT 

2060 IF TP=0 AND BT=0 THEN PRIN 


T "TODOS OS VALORES SAO ZERO ": 
FOR K=1 TO 2000:NEXT:RETURN 
2070 CLS:PRINT 864,"VOCE QUER U 
M GRAFICO EM ESCALA (S/N)?7” 
2080 AS=INKEYS:IF AS<>"£” AND A 
S<>"N” THEN 2080 

2090 IF AS="N” THEN 2120 

2100 IF TP>O THEN E=INT(LOG(TP) 
/LOG(10)):TP=INT(1+TP/(10"E))*1 
[a 

2110 IF BT<O THEN E=INT(LOG(-BT 
)J/LOG(10)):BT=-INT(1-BT/(107E)) 
*10"E 

2120 IN=178/(TP-BT) 

2130 ST=INT(IN*TP) 

2140 TS="":IF TP=0 THEN 2160 
2150 IF TP>ABS(BT) THEN E=2*INT 
(LOG(TP)/LOG(1000)) ELSE E=2*IN 
T(LOG(ABS(BT))/LOG (10007) 

2160 T$="+"+MIDS (STRS (INT(.5+TP 
/10"E)),2):B$="":IF BT=0 THEN 2 





ZX Spectrum: gráfico de lucros e perdas por mês 


180 
2170 B$=STRS (INT(.5+BT/107E)) 


2180 SL=1:LP=NB:IF NB>26 THEN L 
P=26 

2190 POKE 179,243:PCLS:POKE 654 
75,0:POKE 65477,0:POKE 65479,0 
2200 POKE 179,2 

2210 LINE(40,0)-(47,191),PRESET 
«BF 

2220 IF T$="" THEN 2260 

2230 FOR K=1 TO LEN(TS) :P=ASC(M 


IDS(TS,K,1)) AND 63:FOR M=0 TO 
11 

2240 POKE 1540-LEN(TS)+32*M+K,P 
2250 NEXT 
2260 IF B$ THEN 2300 

2270 FOR K=1 TO LEN(B$):P=ASC(M 
IDS(B$,K,1))AND 63:FOR M=0 TO 1 
1 








2280 
2290 


2300 


POKE 6916-LEN (BS) +M*32+K,P 
NEXT M,K 

FOR K=1 TO LEN(XS) 

2310 P=ASC(MIDS(X$S,K,1)) AND 63 
2320 FOR M=182 TO 190:POKE 1503 
+MD+32*M+K, P:NEXT 


2330 NEXT 

2340 FOR K=1 TO LEN(YS) 

2350 FOR M=0 TO 11 

2360 P=ASC(MIDS(YS,K,1)) AND 63 
2370 POKE 1568+384*(K+HT)+32*M, 
Pp 

2380 NEXT M,K 

2390 FOR K=5 TO 31 

2400 POKE 1536+32*ST+K,128 

2410 NEXT 

2420 FOR K=ST TO O STEP -22 
2430 POKE 1541+K*32,202 

2440 NEXT 

2450 FOR K=ST TO 178 STEP 22 
2460 POKE 1541+K*32,202 

2470 NEXT 

2480 FOR K=SL TO LP:CO=(CO+1) A 
ND 1 

2490 POKE 178,35+C0*64:POKE 179 


+ IPCOXI9Z 
2500 IF INT(A(K)*IN)>O THEN LIN 
E(48+8* (K-SL) *BL,ST-1)-(47+8*(K 





OD] 








TRS-Color: gráfico da distribuição das notas em uma classe. 


-SL+1) *BL, ST-INT(A(K) *IN)), PSET 
+BF 
2510 IF FIX(A(K)*IN)<O THEN LIN 
E (48+8* (K-SL) XBL, ST) - (47+8* (K-S 
L+1)XBL, ST-FIX(A(K)*IN)), PRESET 
+BF 


2520 NEXT K 

2530 IF LP=NB THEN 2570 

2540 SL=LP+1:LP=LP+26:IF LP>NB 
THEN LP=NB 

2550 IF INKEYS="" THEN 2550 
2560 POKE 179,243:LINE(48,0)-(2 


55,178), PRESET,BF:GOTO 2390 
2570 IF INKEYS="" THEN 2570 
2580 RETURN 

3000 IF DA=0 THEN PRINT €455,"D 
ADOS NAO INTRODUZIDOS” :FOR K=1 
TO 2000:NEXT:RETURN 

3010 SL=1:LP=NB:IF NB>14 THEN L 
P=14 
3020 
3030 
3040 


3050 


CLS:PRINT"BARRA”,"VALOR” 
FOR K=SL TO LP 

PRINT K,A(K) 

NEXT 

3060 IF NB=LP THEN 3130 

3070 PRINT 8480,"e PARA EDITAR, 
QUALQUER OUTRA PARA CONTINUA 
RR"; 
3080 
80 
3090 
3100 
3110 


AS=INKEYS:IF A$="" THEN 30 


IF A$="E” THEN 3170 
SL=LP+1:LP=LP+14 

IF LP>NB THEN LP=NB 

3120 Goto 3020 

3130 PRINT 8480,"e PARA EDITAR, 
QUALQUER OUTRA PARA RETORNAR 


3140 AS=INKEYS:IF A$="" THEN 31 
40 

3150 IF AS="E” THEN 3170 

3160 RETURN 

3170 CLS:PRINT: INPUT"NUMERO DA 
ENTRADA À SER EDITADA ?";E 

3180 E=INT(E):IF EXl OR E>NB TH 
EN 3170 

3190 PRINT:PRINT"NOVO VALOR DA 
ENTRADA” ; E; : INPUT A(E) 








3200 goTo 3020 

4000 CLS:PRINT €37,"VOCE TEM CE 
RTEZA (S/N)?” 

4010 AS=INKEYS:IF AS<>"S” AND A 
S<>"N” THEN 4010 

4020 IF A$="N" THEN RETURN 


10 LET 9=0: POKE 23609,20: 
POKE 23658,8 

100 BORDER 7: PAPER 7: INK O: 
cLS 

110 PRINT BRIGHT 1; PAPER 3; 
INK 7;AT 4,10;" OP CO ES" 
120 PRINT BRIGHT 1;AT 7, 1 


- INTRODUZIR NOVOS DADOS 
130 PRINT BRIGHT L;AT 9, 
- VER / EDITAR DADOS 

140 PRINT BRIGHT 1;AT 11,4;" 
3- GRAFICO EM ESCALA E 
145 PRINT BRIGHT 1;AT 13,4;" 
4- GRAFICO EM TELA CHEIA " 
150 PRINT BRIGHT 1; FLASH 1; 
INK 2;AT 16,9;” SELECIONE OPCA 
o” 

160 
160 
170 LET AS=INKEYS: IF AS<"1" 
OR A$>"4” THEN GOTO 160 

180 GOSUB VAL A$*1000: GOTO 
100 

500 REM **ROTINA PARA ENTRADA 
DE DADOS NUMERICOS** 

510 INPUT (w$); LINE aS: IF 
LEN a$=0 THEN GOTO 510 

520 FOR 3=1 TO LEN as 

54Qdrr (a$(3)>="0" AND as(3)<= 
"9"y OR ag(5)=".” OR as(3)="=" 
THEN NEXT j: LET v=VAL aS: 
RETURN 

550 GOTO 510 

1000 REM **ROTINA PARA ENTRADA 
DE DADOS** 
TOLO BORDER 1- 
cLS 

1020 INPUT "NOME DO EIXO X? "; 





IF INKEYS="" THEN GOTO 


PAPER 1: INK 7- 





Apple: gráfico dos saldos mensais da poupança. 


“LINE x$ 

1030 PRINT INVERSE L;AT 0,0;” 
Pa 

1040 INPUT "NOME DO EIXO Y? "; 
LINE y$ 

1050 PRINT INVERSE l;AT 0,16;” 
Pior 

1060 LET w$="QUANTO "+x5+" (1 A 
25)? ": GOSUB 500 

1070 IF v<l OR v>25 OR V<>INT v 
THEN GOTO 1060 

1090 LET z=v: DIM a(z) 


1100 FOR k=1 TO z 

1110 LET w$="DIGITE DADOS PARA 
"+STR$ kt” ": GOSUB 500 

1120 LET a(k)=v 

1130 PRINT k,a(k) 





1140 NEXT k: LET g=1: PAUSE 50: 
RETURN 

2000 REM **ROTINA PARA EDICAO D 
E DADOS** 

2010 BORDER 2: PAPER 2: INK 7 
2020 LET cn=1 

2025 cLS PRINT PAPER 6; INK 
Z;AT O, S,YSITAB 31;º * 

2030 PRINT cn,a(cn) 


2035 PRINT 41; PAPER 6; INK Z;A 
T 0,0;"EDIT para alterar valor 
corrente Qualquer tecla para co 
ntinuar 


2040 PAUSE O 

2050 IF INKEY$="" THEN GOTO 20 

50 

2060 LET CS=INKEYS 

2070 IF cS=CHRS 7 THEN GOSUB 2 

500 

2080 IF cn=z THEN PRINT PAPER 
6; INK 2;"FIM DOS DADOS”: PAUS 

E 100: RETURN 

2090 LET cn=cntl: IF cn=21 THEN 
Goro 2025 


2100 GoTo 2030 
2500 LET w$="INTRODUZIR NOVO VA 
LOR PARA "+STR$ cnt” ": GOSUB 5 


oo 

2510 LET a(en)=v: PRINT PAPER 
6; INK 2;cn,a(cn);TAB 31;” ": R 
ETURN 






















REM **GRAFICO EM ESCALA** 


3010 BORDER 0: PAPER O: ENK 7: 
CLS : LET hi=0: LET l1o=05 

3020 FOR k=1 TO z 

3030 IF a(k)>hi THEN LEfhi=a( 
k) À 
3040 IF a(k)<lo THEN LET lo=a( 
k) 

3050 NEXT k 

3060 LET type=2: LET orçadl 
3070 IF lo<0 THEN LET tipe-l: 
LET org=84 


3080 LET h-hi: 
N LET h=ABS lo 
3090 LET ra=hi-lo 
3100 IF h<=1 THEN 


IF ABS loBhi THE 


LET hiBl: GO 


TO 3150 

3110 IF h<=10 THEN LET há=io: 

Goro 3150 

3120 IF h<=100 THEN LET|Ri=100 
GOTO 3150 

3130 IF h<=1000 THEN LERhi=10 

00: GOTO 3150 

3140 IF h<=10000 THEN LER hi=1 

0000 

3150 LET wd=INT (25/2) 

3160 IF type=1 THEN LET/Et=80/ 

hi 

3170 IF type=2 THEN LETIEL=162 

/hi 

3180 PLOT 56,0rg: DRAW 198,0 

3190 PLOT 55,4: DRAW 0,180 

3200 FOR n=4 TO 168 STEPÕB: PLO 

T 52,n: DRAW 3,0: NEXT n 


3220 PRINT 41; PAPER 1;AT 0,14; 
PRE 

3225 LET 2$=" "+ys+" 
3230 FOR n=1 TO LEN 2$ 

3240 PRINT AT n+(19-LEN Y8)/2,0 
; PAPER 1;2S(n) 








3250 NEXT n 
3255 LET de=1 h 

3260 IF type-l THEN GOTQ3320 
3270 FOR n=hi TO O STEP Bihi/10 
) 

3275 IF n<.0l THEN LET pao 
3280 LET n$=STR$ n , 


3290 
3295 
3300 
3310 


PRINT AT dc, (6-LEN RS) ;n 
LET de=dc+2 

NEXT n 

GoTo 3400 , 

FOR n=hi TO -hi STER-(hi/ 





IF n<.01 AND n>-.01 MHEN 
LET n=0 

3340 LET n$=STRS n 

3350 PRINT AT dc, (6-LEN AS) ;m 
3360 LET de=dc+2 
3370 NEXT n 
3400 LET ink=1 
3410 FOR n=1 TO z 
3420 LET cm=org 
3430 LET ink=ink+l: 
EN LET ink=2 

3440 INK ink | 

3450 FOR m=1 TO (a(n)*ft) STEP 
SGN a(n) nm 
3460 PLOT 56+(n-1) *wd*B, 
W wd*8-2,0 


IF ink=8 TH 


3490 NEXT n 
3500 IF INKEY$<>"" THEN 


a 
Ebro 3 


500 

3510 IF INKEYS="" THEN GOTO 35 
10 

3520 RETURN 

4000 REM **GRAFICO EM TELA CHEI 
a** 

4010 BORDER O: PAPER O: INK 7 
CLS-: LET hi=0: LET lo=0 

4020 FOR n=1 TO z 

4030 IF a(n)>hi THEN LET hi=a( 
n) 

4040 IF a(n)<lo THEN LET loza( 
n) 

4050 NEXT n 

4060 LET ra-hi-lo: LET ft=175/r 
a: LET org=(ra-hi)*ft 

4070 LET wd=INT (25/2) 

4080 PLOT 56,0rg: DRAW 198,0 


DRAW 0,175 
PAPER L;AT 0,14; 


4090 PLOT 5 
4100 PRINT 
Domus; 
4110 LET 25=" "+ys+" 

4120 FOR n=1 TO LEN 25 

4130 PRINT AT n+(19-LEN y5)/2,0 
7 PAPER 1;25(n) 

WHO NEXT n 

4150 PRINT AT 0,0;hi1;AT 21,0;lo 
4200 Goto 3400 


Pay 


10 CLS:RESTORE a 
20 DATA ENTRAR DADOS, GRAFICO DE 
BARRAS, VER/EDITAR DADOS, FIM DE 
PROGRAMA 

30 LOCATE?,2:PRINT"M E NU P 
RINCIPAL” 
40 FORI=1TO4:READMS 

50 LOCATE1O,2*1+7:PRINTI;"- 
s 
60 NEXT 

80 PRINT:PRINT:PRINTTAB (20) "OPÇ 
KOar; 

90 R$-INKEYS: IFRS=""THEN9O 

100 IFRS<"1"ORR$>"4"THEN9O 

110 ONVAL (R$) GOTO1000,2000,3000 
14000 

150 LO=VA(1):HI=VA(1) 

160 FORI=ITONB$ 

170 IFVA(I)>HITHENHI=VA(I) 

180 IFVA(I)<LOTHENLO=VA(I) 

190 NEXT:RETURN 

1000 CLS: IFNB$<>OTHENLOCATEIO, 1 
4:PRINT"CONFIRMA? ";ELSE1030 
1010 R$=INKEY$: IFR$=""THENIOLO 
1020 IFR$<>"S”THENIO 

1030 CLS:LOCATEIO: PRINT”ENTRADA 
DE DADOS” 

1040 CLEAR:LOCATEO, 4; INPUT"NOME 
DO EIXO-X ";XS 

1080 XS-LEFTS(X$,9) :IFX$=""THEN 
XS="EIXO-X” 

1060 INPUT"NOME DO EIXQ-Y ";YS 
1070 YS-=LEFTS (YS,9)51EXS=""THEN 
YS="EIXO-Y" 

1080 PRINT: INPUT"NUMERO DE BARR 
AS: ";NB$ 

1090 IFNB%>65THENI0SO 
1100 DIMVA(NB2) :PRIN' 













"mM 






































RINT 


INPUTVA(I) 
1130 NEXT:GOTOIO 


2000 IFNB$=OTHENIO 

2010 GOSUB150 

2020 IFSGN(HI)<>SGN(LO) THENHT=A 
BS (HI) +ABS (LO) :GOTO2050 

2030 HT-ABS( (SGN(HI)=1) *ABS(HI) 
+(SGN(LO) =-1) *ABS(LO)) 

2040 IFHT=OTHENIO 

2050 A=2*INT((180-3*NB$)/NB$/2' 
:8=3:ES=150/HT 

2060 IFA>ISTHENA=15 

2070 IFLO>=OTHENY=155:GOTO2100 
2080 IFHI<=OTHENY=5:GOTO2Z100 
2090 Y=INT(80+(ABS (HI) -ABS(LO)) 
*ES/2) 

2100 SCREENZ:COLOR 15,4, 
2110 LINE (55,5)-(55,158 
(52,Y)-(250,Y) 

2120 FORI=1TONB? 

2130 LINE (P,Y-SGN(VA(I)))-(P+A 
«INT(Y-(VA(I)*ES))),6,BF 

2140 P=P+S+A:NEXT 

2150 OPEN "GRP: ” FOR OUTPUTAS4 
1 

2160 PRESET(0,3) 

2170 FORI=ITOLEN(YS) 

2180 PRINT$1,TAB(1)MIDS(YS,1,1) 
:NEXT 
2190 
2200 
2210 
2220 
-0” 
2230 PRESET(15,155+(150*(HI>0)) 
) :PRINT&1, LO* (- (SGN(LO) =-1)) +HI 
*(-(SGN (HI) =1)) 

2240 GOTO 2270 

2250 PRESET(15,155) :PRINT&1,LO: 
PRESET (15,5): PRINT$1,HI 


-61 
INE 





PRESET (170,160) 
PRINT41,XS 

IFSGN(LO)<>SGN (HI) THEN2250 
PRESET(0,Y):PRINT41, TAB(4) 






















5 APLICAÇÕES 5 








2260 
"0" 

2270 
2280 
2290 


PRESET(0,Y):PRINT&1, TAB(4) 


CLOSE 

IFINKEY$S=""THEN2280 
SCREENO:GOTOIO 

3000 IFNB?=OTHENIO 

3010 CLS:LOCATEIO:PRINT"MÓDULO 
DE EDIÇÃO” 

3020 PRINT:PRINT"BARRA”,"VALOR” 
3030 FORJ=ITONBt 

3040 PRINTJ,VA(J) 

3050 IFINT(J/17)=J/17THENGOSUB3 
090 
3060 
3070 


NEXT 

GOSUB3090 

3080 GoTOlO 

3090 LOCATEO,20:PRINT"Tecle <E> 

para editar ou qualquer outra 
tecla para continuar”; 

3100 R$=INKEYS: IFR$=""THEN3100 

3110 IFR$<>"E”THENLOCATEO, 3: FOR 

H=1TO19:PRINTSPC (40) :NEXT:LOCAT 

EO, 3: RETURN 

3120 LOCATEO, 20: PRINTSPC(79) :LO 

CATEO, 20: INPUT"Qual barra ";B 

3130 LOCATEO,21: INPUT"Novo valo 

r ";VA(B) 

3140 I=B:GOSUB1SO 

3150 G0oT03090 

4000 CLS:LOCATE7, 14: INPUT"FIM D 

E PROGRAMA (S/N)";RS 

4010 IFRS$<>"S"THENIO 





10 HOME 
20 DATA 


RESTORE 
ENTRAR DADOS, GRAFICO 





DE BARRAS,VER / EDITAR DADOS, F 
IM DE PROGRAMA 





30 VTAB 3: HTAB 8: PRINT "M E 

NU PRINCIPAL” 

40 FORI=-1TO4 

50 READ M$ 

60 HTAB 10: VTAB 2 * I + 8: PR 

INT I;"- ";MS 

70 NEXT 

80 PRINT : PRINT : HTAB 20: PR 

INT "OPCAO =>"; 

90 GET R$: IF R$ < "1" OR RS > 
"4" THEN 90 

100 ON VAL (R$) GOTO 1000,200 

0,3000,4000 

110 LO = VA(1):HI = VA(1) 

120 FORI = 1 TO NBê 

130 IF VA(I) > HI THEN HI = VA 

(1) 

140 IF VA(I) < LO THEN LO = VA 

(1) 

150 NEXT : RETURN 

1000 HOME : IF NB? < > O THEN 
VTAB 15: PRINT TAB( 10)"CONF 

IRMA? (S/N)";: GET R$: IF R$ < 
> "S” THEN 10 

1010 HOME : PRINT TAB( 10)"EN 

TRADA DE DADOS” 

1020 CLEAR : VTAB 4: INPUT "NO 

ME DO EIXO 'X': ";XS 

1030 X5 - LEFTS (X$,5): IF X$ 

- "" THEN XS = "EIXO-X” 

1040 INPUT "NOME DO EIXO 'Y': 

";Ys 

1050 YS - LEFTS (Y$,5): IF Y$S 

- "" THEN Y$ = "EIXO-Y” 

1060 PRINT : INPUT "NUMERO DE 

BARRAS: ";NB$% 

































































































1070 IF NB? > 65 THEN 1060 
1080 DIM VA(NBt) 

1090 PRINT : PRINT 

1100 FOR I = 1 TO NB$ 

1110 PRINT "VALOR DA BARRA ";I 
7: INPUT VA(I) 

1120 NEXT : GOTO 10 

2000 IF NB? = O THEN 10 

2010 GOSUB 110 

2020 IF SGN (HI) < > SGN (L 
O) THEN HT = ABS (HI) + ABS ( 
LO): GOTO 2050 

2030 HT - ABS (( SGN (HI) = 1) 


* ABS (HI) + ( SGN (LO) = — 
1) * ABS (LO)) 

2040 IF HT = O THEN 10 
2050 À = 2 * INT ((270 - 2 *N 
Bt) / NB? / 2):S = 2:ES = 150 / 
HT 


2060 IF A > 15 THEN A = 15 
2070 IF LO > = O THEN Y = 155 
: GOTO 2100 

2080 IF HI < = O THEN Y=S: 
Goto 2100 

2090 Y - INT (76 + ( ABS (HI) 


- ABS (LO)) * ES / 2) 





2100 HGR : HCOLOR= 7:P = 4 
2110 HPLOT 2,0 TO 2,158: HPLOT 
0,Y TO 279,Y 

2120 HCOLOR= 5 

2130 FORI = 1 TONB? 

2140 FORJ = 1 TOA 

2150 HPLOT J + P,Y - SGN (VA( 
1)) TO J + P, INT (Y - (VAC(I) * 
ES)) +1 

2160 NEXT :P = P + S + A: NEXT 
2170 VTAB 21: HTAB 1: PRINT XS 
; TAB( 34);YS 

2180 VTAB 22: HTAB 10: PRINT ” 
VAL MAX=";HI;: HTAB 25: PRINT * 
VAL MIN=";LO 

2190 PRINT TAB( 5);"PRESSIONE 


QUALQUER TECLA PARA SAIR”; 


2200 GET R$: TEXT : GOTO 10 
3000 IF NB$ = O THEN GOTO 10 
3010 HOME PRINT TAB( 10)"MO 
DULO DE EDICAO” 

3020 PRINT : PRINT "BARRA”,"VA 
LOR” 

3030 FORJ = 1 TO NBt 

3040 PRINT J,VA(J) 

3050 IF PEEK (37) = 20 THEN 
GOosUB 3090 

3060 NEXT 

3070 GOSUB 3090 

3080 GoTO 10 

3090 VUTAB 21: HTAB 1: PRINT "T 


ECLE <E> PARA EDITAR OU QUALQUE 


R OUTRA TECLA PARA CONTINUAR 
";: GET R$: IF R$ < > "E” THEN 
VTAB 4: HTAB 1: CALL - 958: 

ETURN ç 


PRINT "FIM DE PROGRAMA? 
R$: IF R$ < > "S” TREN 10 












OO 


















NO MSX 


CRIE SPRITES 


Entre os vários recursos gráficos 
do MSX, o sprite destaca-se 

por servir de base ao funcionamento 
da maioria dos jogos de ação. 
Veja como é fácil usá-lo. 

















Um sprite é um tipo especial de carac- 
tere gráfico definido pelo usuário, des 
nhado em alta resolução e extremamen- 
te fácil de movimentar. Alguns exemplos 
de seu uso já foram vistos em artigos an- 
teriores. Além da mobilidade, o sprite 
tem outras caracteristicas especiais, tais 
como a possibilidade de definir e movi- 
mentar mais de um sprite e de indicar se 
houve colisão na tela — ou seja, se dois 
sprites coincidiram no mesmo ponto. 
Não surpreende, portanto, que os spri- 
tes estejam presentes na maioria dos pro- 
gramas de jogos. Mas são, também, uti- 
lizados em qualquer tipo de programa 
que necessite de figuras móveis em alta 
resolução — por exemplo, programas fi- 
nanceiros que empreguem um “ícone” 
(símbolo apontando para as opções). 


US 


O desenho de um sprite é definido 
informando-se ao computador quais 
pontos devem ser ““acesos” e quais de- 
vem ser “apagados”, para que se obte- 
nha o padrão desejado. Existem dois ta- 
manhos de sprite: pequeno (8x8 pontos) 
e grande (16x16). No decorrer deste ar- 
tigo, trataremos apenas dos sprites gran- 
des, salvo menção em contrário. 

Um sprite grande é formado por de- 
zesseis linhas de dezesseis pontos cada. 
Em vez de se definir, ponto por ponto, 
quais serão acesos ou apagados, 
reúnem-se cada oito pontos em um gru- 
po. Assim, a informação sobre o padrão 
de uma linha do sprite é armazenada em 
dois grupos de oito pontos cada. 
Atribuindo-se o algarismo **1”º para os 
pontos acesos e “'0" para os apagados, 
cada grupo de oito pontos se transfor- 
mará em um número binário (byte de 8 
bits) que, convertido para a forma de- 
cimal, dará origem a um número entre 
ODe 255. Cada sprite, portanto, é forma- 
do por 32 grupos de oito pontos, 32 nú- 
meros binários de oito dígitos (8 bits ou 
1 byte) ou, simplesmente, 32 números. 
Estes números são agrupados em uma li- 
nha DATA, ordenados como descrito 
adiante. Calculam-se da mesma maneira 
os valores para sprites pequenos, já que 
eles são formados por oito linhas de oi- 
to pontos cada, dando origem a 8 bytes. 























A ordem dos bytes no sprite é a se- 
guinte: 


Linha 1: BYTE 1 BYTE 17 


Linha 2: BYTE 2 BYTE 18 
Linha 3: BYTE 3 BYTE 19 


-« e assim por diante até que: 


Linha 15: BYTE 15 BYTE 31 
Linha 16: BYTE 16 BYTE 32 


«.. sendo que os bytes foram numerados 
na ordem em que aparecerão na linha 
DATA. 

Uma orientação para o cálculo des- 
tes valores, uma vez definido o padrão 
gráfico para o sprite, é dada na figura 
da página 190. Por meio do exemplo, 
você terá uma idéia de como obter o va- 
lor decimal correspondente a um gru- 
po de oito pontos. Se todos os pontos 
estiverem-acesos, o valor decimal será 

























































































m O QUE É UM SPRITE? IR UM PROGRAMA PARA CRIAR 
n APLICAÇÕES SPRITES 
m COMO DEFINIR O USO DOS SPRITES 

E MOVIMENTAR SPRITES E “TIRO AO PASSARO": 
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PRIMEIROS PASSOS 


CONTROLE DE COLISÕES 






































128+64+32+16+8+4+2+1, ou se- 
ja, 255 (veja, no alto da figura, o valor 
pelo qual se deve multiplicar cada pon- 
to). Se todos estiverem apagados, a so- 
ma dos valores será zero. Entre estes 





dois extremos haverá um único valor pa- 
ra cada permutação possível de pontos 
acesos e apagados. Cada valor obtido 
pode ser usado na definição do sprite, 
desde que colocado em uma linha DA- 
TA, na ordem já especificada. 


LL 


Exercite-se um pouco. Comece dese- 
nhando o padrão da figura desejada em 
papel quadriculado. Deli- 
mite uma área de dezes- 
seis por dezesseis qua- 
drinhos e indique as posi- 
ções dos bytes. Na figura da 
página 190, por exemplo, 
definimos um sprite que 
representa uma nave espacial. 
Ao lado da figura, temos o v 
lor de cada byte em decimal. O 
primeiro byte da primeira linha tem 
todos os seus pontos apagados, exce- 
to o último, cujo valor podemos encon- 
trar no alto da figura. Como só há um 
ponto aceso, seu valor é o valor total do 
byte: 1. Na segunda linha temos o se- 
gundo byte (veja a ordem dos bytes no 
sprite, já fornecida). O segundo ponto 
está aceso, bem como o último. Se con- 
sultarmos os valores desses pontos no al- 
ta da tabela, veremos que o valor do 
byte 2 é 64+1=65. Os próximos três 
bytes têm o mesmo valor. A propósito, 
uma recomendação prática: após calcu- 
lar o valor de um byte, verifique se, no 
resto do sprite, existem outros bytes com 
o mesmo padrão e, portanto, com o 
mesmo valor. Agora vamos à linha 6. 
O byte 6 tem o segundo e o sétimo pon- 
tos acesos, o que lhe dá um valor de 
























64+2=66. O valor do byte 7, que apre- 
senta os pontos 2 e 6 acesos, é 
64+4=68. O byte 8, por sua vez, tem 


os pontos 1, 2,3, 5 e 8 acesos, resul- 

tando num valor de 128+64+32+8+ 

1=233, Calcule os bytes restantes do 

mesmo modo. Terminado o trabalho, 

coloque os números obtidos em uma 

nha com instrução DATA. Para definir 

e movimentar o sprite, digite o progra- 

ma completo: 

10 SCREEN 2,2:COLOR 15,4,4 

20 FOR I=1 TO 32 

30 READ A:AS=AS+CHRS (A) 

40 NEXT 1 

50 SPRITES(0)-=AS 

60 FOR 1=210 TO -20 STEP -.5 

70 PUT SPRITE 1,(I,1),10,0 

80 NEXT I 

100 DATA 1,65,65,65,65,66,68, 

233,169,191,175,163,227,3,15,17 
4,4,4,4,132,68,46,42,250,234 

,138,142,128,224,16 








Para a definição de um sprite em 
SIC, devem-se colocar os valores já cal- 
culados dentro de uma cadeia alfanumé- 
rica. Em nosso exemplo, isso é feito pe- 
lo laço FOR... NEXT das linhas 20, 30 
e 40. Note que dentro de uma cadeia não 
se colocam números e, sim, caracteres 
cujos códigos ASCII correspondam aos 
números desejados. Observe a linha 30. 
Ela Iê os dados da linha DATA e os co- 
loca na variável A$, usando a função 
CHRS (A), que define o caractere cujo 
código está na variável A. 

A definição propriamente dita do 
sprite é feita na linha 50, pelo comando 
SPRITES (0) A$. O número O é o nú- 
mero do sprite (no MSX podemos ter 
sprites numerados de O a 9). Observe que 
na linha 10 escolhemos a tela de alta re- 
solução, pois a de texto de 40 colunas 
não permite o uso de sprites. Nessa li- 
nha encontramos o comando SCREEN 
2,2. Como você já deve saber, o primei- 
ro número corresponde ao formato da 
tela (2 para a tela de alta resolução). O 
segundo número deve ser novo para vo- 
cê. Ele estabelece o tamanho do sprite 
utilizado: 0-pequeno (8x8), I-pequeno 
ampliado (16x16, baixa resolução), 
2-grande (16x16) e 3-grande ampliado 
baixa resolução). 

Para desenhar e movimentar o spri- 
te na tela usamos o comando PUT 
SPRITE. Não é preciso seguir o sprite 
apagando posições já ocupadas: ao de- 
senharmos um sprite na nova posição, 
a antiga é automaticamente apagada. O 
formato desse comando é PUT SPRI- 
TE P,(X,Y),€, N, onde P é a priori- 
dade do sprite, X é a coordenada hori- 
zontal do sprite, variando de -32 (fora 
da tela, portanto) a 255; Y é a coorde- 
nada vertical, que varia de -32 a 191, po- 
dendo ainda assumir os valores 208, que 
faz com que todos os sprites de menor 
prioridade desapareçam da tela, e 209, 
que apaga o sprite na tela; C é a cor do 
sprite, e N, o número do sprite. 

Quando dois ou mais sprites ocup! 
rem a mesma posição na tela, aparece- 
rá apenas o que estiver “'na frente”, ou 
seja, aquele que tiver o número de prio- 
ridade menor. Isso permite dar aos seus 
jogos efeitos tridimensionais. Os carros 
passam atrás dos postes, e ursos se es- | 
condem atrás de árvores, por exemplo. 
























































VALORES DOS PONTOS 


LINHAS 






XeconeXes 


.X. XX 










x. Xec. 

XXX Xe Ko u X XXX 
XXX. XXX X. 
Xe XXXXXXXKXXX a X 
XX XXXKXKK XX. 





ESDOOOOK + 
con Xece Xe Xe 


SUBUNFOSONTUdUN- 


NUMEROS DA Na figura ao lado — um 

LINHA DATA sprite representando uma 
nave espacial —, os 
números das linhas e os 


1 O valores dos pontos estão 
65 4 indicados em suas 
ss 4 respectivas posições, para 
os 4 facilitar o acompanhamento 
es 4 dos cúlculos. 
66 132 Veja como os 
68 68 valores são somados, para 
233 46 dar origem aos números da 
169 42 linha DATA, mostrados à 
191 250 direita, Há dois números 
175 234 para cada linha, 
163 138 representando dois bytes 
227 142 com oito pontos cada. O 
3 126 cálculo desses valores pode 
15 224 ser feito manualmente ou 
17 16 como uso de um programa, 





UR e TR RU 


A tarefa mais aborrecida, ao se tra- 
balhar com sprites, consiste em calcu- 
lar os 32 números que serão colocados 
na linha DATA. Em vez de fazê-lo ma- 
nualmente, use um programa que tra- 
balhe por você. 

Este deverá, em primeiro lugar, per- 
mitir a utilização dos recursos de edição 
e movimentação do cursor do MSX pa- 
ra desenhar a figura do sprite na tela. 
Em seguida, precisará calcular os valo- 
res correspondentes que serão incluídos 
na linha da instrução DATA, 
possibilitando-lhe usar o sprite em seus 
programas. 

O programa seguinte foi preparado 
para efetuar todas essas coisas, ofere- 
cendo ainda a opção de produzir uma 
cópia impressa, caso você tenha uma im- 
pressora. A tarefa de digitá-lo e gravá- 
lo em uma fita cassete é compensado- 
ra, pois facilita muito a posterior cria- 
ção de sprites. 





5 SCREEN 0:KEY OFF 

10 DIM AS(16),2(2,16) ,A(16) 

20 CLS:PRINT TAB(10);"EDITOR DE 
SPRITES” 








30 PRINT:PRINT TAB(8 INPUT "Cc 
ÓPIA IMPRESSA (S/N) IP I8= 
"S” THEN PR$="S" 

40 IF 1$<>"S” AND I$<>"N” THEN 
Goro 20 

50 PRINT:PRINT TAB(15);"Aguarde 
60 FOR Z=1 TO 8 

62 READ A(Z) :A(Z+8)=A(Z) 

64 NEXT 

66 DATA 128,64,32,16,8,4,2,1 

70 FOR Z=1 TO 16 


READ AS(Z) 
FOR ZZ=1 TO 8 
IF MIDS(AS(Z),ZZ,1)="*" THEN 


Z(1,2)=Z(1,Z)+A(ZZ) 

90 NEXT ZZ:FOR ZZ=9 TO 16 
95 IF MIDS(AS(Z),22,1)="*" 
Z(2,2)=Z(2,2)+A(Z2) 

100 NEXT ZZ,Z 

110 CLS:IF PR$="S” THEN OPEN "L 
PT:” FOR OUTPUT AS 41 ELSE OPEN 
"CRT:" FOR OUTPUT AS 41 


THEN 


120 PRINT 41,"Linha DATA "; 

130 FOR Z=1 TO 16 

132 PRINT 41,2(1,2);","; 

134 NEXT Z 

136 FOR Z=1 TO 16 

138 F Z<16 TH 





PRINT 41,Z2(2,Z) 
EN PRINT 41,","; 





140 NEXT Z 
145 PRINT 41,” ":PRINT 41," * 
150 IF PR$= THEN GOTO 170 





155 PRINT 41,"Aperte RETURN par 
a continuar” 


160 KS=INKEYS 

165 IF K$<>CHR$(13) THEN GOTO 1 
60 

170 SCREEN 1,3:COLOR 14,5,5 
172 VPOKE BASE (6)+15,68 

174 VPOKE BASE(6)+5,69 

176 PRINT 41, TAB(5);"DESENHO DO 
SPRITE” 

178 PRINT 41," ":PRINT 41," * 
180 PRINT 41,TAB(5);"1234567890 
123456" 


190 FOR Z=1 TO 16 

195 PRINT 41, TAB(S5); 

200 FOR Z2=-1 TO 16 

205 IF MIDS(AS(Z),22,1)="*" THE 
N PRINT 41,CHR$(120); ELSE PRIN 
DONE A 

210 NEXT ZZ:PRINT 41," ";Zz 

220 NEXT Z:IF PR$="S” THEN CLOS 
E: END 

230 FOR Z=1 TO 16 

240 AS=AS+CHRS(Z(1,Z)) 

250 B$=BS+CHR$(Z(2,2)) 

260 NEXT: SPRITES (0) =AS+BS 

270 FOR Z=190 TO 5 STEP -5 

275 PUT SPRITEO, (10,2) ,1 

280 NEXT 


290 IF PR$<>"S” THEN GOTO 290 


300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 


REM 1234567890123456 

DATA” a 
DATA” » 
DATA” ” 
DATA” vá 
DATA” sá 
DATA” ' 
DATA” =» 
DATA” n 
DATA" o 
DATA” g 
DATA” a 
DATA” ms 
DATA” ” 
DATA” M 
DATA” " 
DATA" Ps 


Rode o programa, tal como ele está, 
para verificar se houve algum erro de di- 
gitação. Ao fazê-lo, responda N à per- 
gunta da linha 30. 

Para usar o programa, digite L 
300-. Isso fará com que as dezesseis 
nhas DATA vazias do final da listagem 
surjam na tela. Desenhe dentro delas o 
padrão do seu sprite. Cada uma das de- 
zesseis posições das linhas, entre as as- 
pas, representa um ponto. Use apenas 
os controles de movimentação do cur- 
sor e a barra de espaço, colocando um 
asterisco nas posições que deseja acen- 
der. Evite usar INS e DEL, que alteram 
o número de posições entre as aspas. 
Não deixe de apertar RETURN em c 
da uma das dezesseis linhas DATA 
so contrário, o MSX não se lembrará 
delas. Oriente-se pelos números da linha 
300, que correspondem às posições ho- 
rizontais. Um desenho típico se encon- 
tra na figura da página ao lado, que re- 
presenta um pássaro voando. 

Quando completar seu desenho, apa- 
gue a tela e liste as últimas linhas para 
conferir. Rode o programa. O compu- 
tador lhe dará, então, a opção de cópia 
impressa. Responda N e veja o resulta- 
do na tela. 

Primeiro, surgem os 32 números das 
linhas DATA. Um desenho ampliado de 

















PLANEJAMENTO DE SPRITES 

Existe um modo muito prático de 
usar o programa de criação de sprites. 
Desenhe seu sprite em papel quadricu: 
lado com tamanho correspondente ao 
das linhas DATA do final da listagem. 
Pregue-o com fita adesiva na tela de 
sua TV. Em seguida, simplesmente use 
os controles do cursor para desenhar 
asteriscos nas posições dos quadrinhos 
que você pintou. 








seu sprite é mostrado a seguir, 
apertando-se a tecla RETURN. As te- 
clas CTRL e STOP, pressionadas ao 
mesmo tempo, interrompem o progra- 
ma. Caso tenha uma impressora e dese- 
je uma cópia impressa, rode o progra- 
ma novamente e responda S à pergunta 
da linha 30. O resultado será enviado à 
impressora, e não à tela. Algumas im- 
pressoras requerem um ajuste no núme- 
ro máximo de caracteres por linha (use 
quarenta). 

Para o exemplo da figura do pássa- 


ro, o resultado é o seguinte: 

Linha DATA 128, 192, 176,7 
2. 116, 84, , 42 ,41,3 
7» 26 , 4, 56 ,; 199 ; 98. , 28 


17,30, 42, 84, 84, 168 
+ 168 , 208 , 160, 248, 4,3 
4, 222, 33, 144, 72 


DESENHO DO SPRITE 


1234567890123456 


DONA wir 





O mesmo programa pode ser utiliza- 
do para sprites pequenos. Para tanto, 
desenhe seu padrão utilizando apenas 
os oito primeiros bytes, ou seja, no qua- 
drante superior esquerdo do conjunto de 
linhas DATA. Considere apenas os pri- 
meiros oito números calculados. 





O programa seguinte desenha e mo- 
vimenta o sprite do pássaro, que acaba- 
mos de calcular. 

10 SCREEN 1,2:COLOR 15,4,4 

20 FOR I=1 TO 32 

21 READ A:AS=AS+CHRS (A) 

22 NEXT I:TIME=-O 

23 SPRITES(0)-AS 

25 X=90:Y=X:GOTO 50 

30 K$=INKEYS:A=0:XX=0 

31 IF K$="" THEN GOTO 30 

32 IF K$=CHR$(30) THEN A-1:GOTO 


50 
35 IF K$=CHR$(31) THEN A=2:GOTO 
50 
40 IF KS=CHRS(29) THEN XX=-2:GO 





TO 50 
45 IF KS=CHRS(28) THEN XX=2:GOT 
oso 

50 FOR Z-1 TO 10 

52 X=K+XX:IF X>255 THEN X-0 

55 IF X<-32 THEN X-255 

60 IF A=1 AND Y>-32 THEN Y=Y-2 
65 IF A-2 AND Y<190 THEN Y=Y+2 
70 PUT SPRITE 0,(X,Y).15 

75 NEXT Z:GOTO 30 

100 DATA 128,192,176,72,116,84, 
50,42,41,37,26,4,56,199,98,28,7 
,30,42,84,84,168,168,208,160,24 
8,4,34,222,33,144,72 


O sprite é desenhado na tela de tex- 
tos de 32 colunas e pode ser movimen- 
tado pelas teclas de controle do cursor. 
Para usar qualquer outro sprite, basta 
mudar a linha 100. 

O laço contido nas linhas 20, 21 e 22 
Iê os valores da linha 100 e os coloca na 
variável A$. A linha 25 define o sprite 
atribuindo-lhe o número 0. As linhas de 
30 a 75 movimentam o sprite conforme 
a tecla pressionada. 


JUS E) 


Outro recurso interessante dos spri- 
tes é a indicação da ocorrência de coli- 
são entre dois deles, em sua movimen- 
tação pela tela. Para entender como is- 
so é feito, apague a linha 32 do último 
programa e acrescente: 


20 SPRITE ON:FOR I=1 TO 40 

22 NEXT I:TIME=0:5=0 

23 SPRITES (0)=LEFTS(AS,32) 

24 SPRITES(1)=RIGHTS (AS,8) 

25 X=90:Y=X:XX=100:YY=XX 

30 FOR Z TO 5:LOCATE 0,0 

31 PRINT "TEMPO: ";TIME; 

35 A=INT(RND(1)*3)+1:X=X+10 

36 IF X>255 THEN X=-30 

40 IF A=1 AND Y>-30 THEN Y=Y-10 
45 IF A=-2 AND Y<250 THEN Y=Y+10 

















50 PUT SPRITE 1,(X,Y).15,0 

52 ZS=INKEYS:IF Z$="" THEN GOTO 
52 

53 IF ZS$=CHR$(29) AND XX>-30 TH 
EN XX=XX-5 

55 IF ZS=CHR$(28) AND XX<250 TH 
EN XX=XX+5 

60 IF Z$=CHR$(30) AND YY>-30 TH 
EN YY=YY-5 

65 IF ZS=CHR$(31) AND YY<190 TH 
EN YY=YY+5 


70 PUT SPRITE O, (XX,YY),10,1 
72 ON SPRITE GOSUB 1000 
75 LOCATE 20,0:PRINT "SCORE: "; 


76 NEXT Z:IF TIME<X5000 THEN 30 
80 PRINT:PRINT "O Tempo acabou 
1": END 

110 DATA 8,8,62,8,8,0,0,0 
1000 SPRITE OFF:S=5+1 

1010 FOR I=Y TO 191 

1020 PUT SPRITE 1,(X,1),15,0 
1030 NEXT I:SPRITE ON 

1040 X=-30:RETURN 



















COMO EDITAR UMA LINHA DATA 

Para evitar o trabalho de digitar a li 
nha DATA criada pelo programa. faça 
o seguinte: assim que o computador 
fornecer os números, pare o programa 
usando CTRL + STOP. Movimente o 
cursor até o topo da tela, onde se en- 
contra a linha DATA. Usando DEL, apa: 
gue a palavra "Linha" e, usando INS, 
escreva o número da linha DATA no 
programa que está preparando. A se- 
guir, aperte RETURN. O efeito será 
idêntico ao da digitação de todos aque- 
les números. 

Este método pode ser usado para 
colocar a mesma linha em programas 
já existentes em fita. Carregue o pro- 
grama sem apagar a linha DATA da ta- 
bela. O programa carregado apaga a 
memória, mas não apaga a tela. Movi- 
mente o cursor até a linha DATA, mo: 





difique seu número, se necessário, e 
aperte RETURN 








Este é um pequeno jogo de “tiro ao 
pássaro"”, extremamente simples, mas 
útil à nossa finalidade. Não explicare- 
mos seu funcionamento enquanto jogo, 
restringindo-nos apenas ao controle de 
colisões. 

Para que possamos trabalhar com co- 


-lisões de sprites, devemos “*habilitar”” o 


programa a reconhecer tal ocorrência, 
por meio da instrução SPRITE ON, na 
linha 20. Uma vez feita a habilitação, 
devemos usar a instrução ON SPRITE 
GOSUB, que desvia o programa para 
uma sub-rotina sempre que quisermos 
verificar se houve uma colisão de spri- 
tes. Nesta sub-rotina pode estar progra- 
mado um efeito visual ou sonoro de ex- 
plosão, por exemplo. Em nosso progra- 
ma, tal comando ocorre na linha 72. Ca- 
so haja colisão entre o pássaro e a “*mi- 
ra”, o controle é transferido para a sub- 
rotina 1000, que incrementa o escore e 
faz com que o pássaro caia. Durante a 
execução da sub-rotina, o programa é 
desabilitado pela instrução SPRITE 
OFF na linha 1000. Esse é um procedi- 
mento usual e quase sempre necessário, 
e não há uma explicação simples para 
ele. Retire este comando, bem como o 
de habilitação da linha 1030, e veja co- 
mo ocorrem erros no escore. 

Existe ainda a instrução SPRITE 
STOP, que não desabilita o programa 
mas adia qualquer desvio, guardando a 
ocorrência de colisões na memória. Só 
haverá o desvio após a ocorrência de um 
SPRITE ON no programa. 












CONJUNTOS: CAIXAS 
DE INFORMAÇÃO 


Os conjuntos são uma forma de re- 
presentação de dados em programa BA- 
SIC, constituindo método mais adequa- 
do para se programar a manipulação de 
informações inter-relacionadas — por 
exemplo, listas dos membros de um clu- 
be, com seus respectivos endereços e ins- 
crições, registros financeiros ou, então, 
listas de personagens, armas e tesouros 
para um jogo de aventuras. 

O comando LET, que você já conhe- 
ce, poderia ser utilizado para atribuir va- 
lores como esses a uma série de variá- 
veis. No entanto, para listas muito lon- 
gas, ele é bastante ineficiente, pois to- 
ma muito tempo de digitação. 

O conjunto simplifica o trabalho, ar- 
mazenando a informação de uma for- 
ma mais compacta. Em vez de uma va- 
riável diferente para cada item da infor- 
mação, utiliza-se uma variável com o 
mesmo nome para todos os itens — o 
A, por exemplo. E, para se diferenciar 











um item dos demais, acrescenta-se sim- 
plesmente um número (ou, às vezes, uma 
expressão aritmética) entre parênteses, 
logo após o nome da variável. O primei- 
ro elemento é chamado de A(1), o se- 
gundo de A(2), o terceiro de A(3) e as- 
sim por diante. 

O conjunto não apenas torna o sis- 
tema de armazenagem mais compacto, 
como também facilita grandemente a 
programação da entrada, modificação 
e listagem dos dados nele contidos 


COMO DIMENSIONAR UM CONJUN' 


Antes de utilizar um conjunto em 
BASIC, é necessário declarar ao com- 
putador o tamanho (número de elemen- 
tos) que ele o terá. Assim, o computa- 
dor poderá reservar espaço suficiente na 
memória. Isto é feito mediante a decla- 
“dimensão"), como se 














vê a seguir: 





10 DIM A(3) 


Os conjuntos constituem um recurso 
muito eficaz para armazenar e 
processar listas de qualquer natureza: 
nomes, datas, as mais diversas 
estatísticas. Aprenda a utilizá-los. 


Use um A maiúsculo para os micros 
da linha ZX-81. 


10 DIM a(4) 


A declaração DIM acima informa ao 
computador que o conjunto A terá qua- 
tro elementos, ou variáveis. Nos com- 
putadores Apple, TRS-Color e MSX 
eles são numerados de A(0) a A(3). Nos 
micros da linha Sinclair, que não acei 
tam o elemento A(O), eles são numera- 
dos de A(1) a A(4). 

O número de elementos que se vai di- 
mensionar pode ser tão grande quanto 
se queira (milhares, por exemplo), des- 
de que caiba na memória RAM do com- 
putador, é claro. Na verdade, não é 
obrigatório dimensionar o número exa 
to de elementos que se utilizarão: para 
ter a garantia de que o espaço será sufi 
ciente, reserve um pouco mais. Mas te; 
nha em mente que o espaço de memó- 
ria reservado com um DIM não poderá 
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ser ocupado por outras variáveis. Por is- 
so, não dimensione exageradamente, ou 
receberá uma mensagem de “estouro de 
memória” (out of memory). 


PLEN eo RAROS 


O passo seguinte consiste em atribuir 
os valores para a elemento. Se, por 
exemplo, as v. is representassem as 
locações da tela nas quais se imprimiria 
um texto ou um gráfico, a próxima li- 
nha seria mais ou menos isto: 


20 LET A(0)=0:LET A(1)=2:LET A( 
2)=10:LET A(3)=20 














20 LET a(1)=0: LET a(2)=2: 
LET a(3)=10: LET a(4)=20 





DEFINIÇÃO E UTILIZAÇÃO 
DE UM CONJUNTO 
COMO DIMENSIONAR 

UM CONJUNTO 


20 LET A(1)=0 
30 LET A(2)=2 
40 LET A(3)=10 
50 LET A(4)=20 


Até agora, não houve economia de 
tempo ou de espaço na memória. Ao con- 
trário, teria sido bem mais rápido utilizar 
um simples comando LET. Mas veja em 
seguida o que acontece quando é neces- 
sário armazenar valores que são diferen- 
tes, cada vez que se roda o programa: 









10 DIM A(3) 


E ATRIBUIÇÃO DE VALORES 
LE CONJUNTOS DE NOMES 
E UTILIZAÇÃO DOS DADOS 
s EM UM CONJUNTO 
5 ANÁLISE DAS INFORMAÇÕES 


20 PRINT"QUAIS SAO OS VALORES?” 
30 INPUT A(O) ,A(1),A(2),A(3) 


10 DIM a(4) 

20 PRINT "Quais sao os valore 
s?" 

30 INPUT a(l) ,a(2),a(3) ,a(4) 


10 DIM A(4) 
20 PRINT "QUAIS SAO 
OS VALORES?” 











30 INPUT A(1) 
40 INPUT A(2) 
50 INPUT A(3) 
60 INPUT A(4) 


O computador pedirá o valor de ca- 
da variável, sempre que você rodar o 
programa. Bastará, então, digitar um 
número (seguido por <ENTER> ou 
<RETURN>) quando o computador 
solicitar. 

Assim, na medida em que o programa 
tiver um número maior de elementos, o 
tempo economizado passará a compen- 
sar o trabalho inicial. Suponha, por 
exemplo, que você queira entrar uma 
centena de números. Um programa bem 
simples será o suficiente: 


(SIL Ih na mo 


10 DIM A(99) 

20 FOR N=0 TO 99 
30 INPUT A(N) 

40 NEXT N 


No ZX-81 digite em letras maiúsculas. 


10 DIM a(100) 

20 FOR n=1 TO 100 
30 INPUT a(n) 

40 NEXT n 


MUS 


O tipo de conjunto descrito até aqui 
permite apenas o armazenamento de nú- 
meros. Mas também é possível utilizar 
conjuntos para armazenar cadeias alfa- 
numéricas. 

Se você quiser processar tanto nomes 
quanto números, por exemplo, precisa- 
rá definir dois conjuntos separadamen- 
te: um para os nomes e outro para os 


números. O dimensionamento do con- 
junto específico para nomes é assim: 


(Sidi 


10 DIM AS(5) 


Nos micros da linha Sinclair (ZX-81 
e Spectrum) é necessário ainda especifi- 
car o comprimento máximo que a cadeia 
alfanumérica poderá ter. Assim, se o 
maior nome da lista tiver dez caracteres, 
os conjuntos de nomes serão dimensio- 
nados da seguinte maneira: 


No ZX-81 digite em letras maiúsculas. 
10 DIM asS(6,10) 


Em cada caso o computador reservou 
espaço na memória para seis cadeias al- 
fanuméricas (nomes, rótulos, etc). Pa- 
ra definir o laço de entrada desses no- 
mes, digite: 


[Sid hy ma aa 


20 FOR N=0 TO 5 
30 INPUT AS(N) 
40 NEXT N 


20 FOR n=1 TO 6 
30 INPUT aS(n) 
40 NEXT n 


Rode o programa e entre os nomes 
à medida que forem pedidos na tela, 
seguindo-os por <ENTER> ou <RE- 
TURN>. Se você quiser verificar, logo 
após digitar cada nome, se o armazena- 
mento foi correto, adicione esta linha ao 
programa acima e rode-o novamente: 


[Slides 


35 PRINT AS(N) 


35 PRINT aS(n) 


Não é difícil digitar seis nomes, mes- 
mo que sejam longos. E, ainda que o 
número de nomes chegue a cem, o tra- 
balho será rápido. Imagine, por exem- 
plo, que você esteja realizando uma pes- 
quisa sobre o campeonato de Fórmula 
1 e deseja armazenar os nomes das cur- 
vas e o número de batidas que ocorre- 
ram em cada uma delas durante uma 


temporada de corridas. Não será impro- 
vável que precise entrar algumas deze- 
nas de curvas, ou até mais, dependen- 
do do caso. Mas o princípio é o mesmo 
que o utilizado no programa a seguir, 
com apenas seis nomes. Este programa 
faz com que o computador leia a série 
de nomes de curvas do autódromo de 
Jacarepaguá, armazenados em declara- 
ções DATA (os micros da linha ZX-81 
não dispõem desse recurso): 


(Sidi 


10 DIM AS(5) 

20 FOR N=0 TO 5 

30 READ AS(N) 

40 NEXT N 

50 DATA NORTE, NONATO, PACE 

60 DATA UM, VITORIA, LAGOA 1 


10 DIM a$(6,11) 

20 FOR n=1 TO 6 

30 READ a$(n) 

40 NEXT n 

50 DATA"NORTE”, "NONATO", "PACE” 
60 DATA"UM”,"VITORIA”,"LAGOA” 


+ 





Os nomes são lidos nas declarações 
DATA na linha 50 e armazenados em 





um conjunto, na linha 10. Assim, cada 
vez que o programa é rodado, os mes- 
mos nomes entram automaticamente. 
No caso de existirem cem nomes, em vez 
de seis, modifique a linha 10 para DIM l 
AS$(99) e a linha 20 para FOR N = 0 
to 99 (para os micros Apple, TRS-80, 
TRS-Color e MSX), ou DIM AS (100, 
11) e FORN = 1 TO 100 (para o Spec- 
trum). Em seguida, você poderá acres- | 
centar os 94 nomes restantes às decla- 
rações DATA, a partir da linha 50, 

O próximo passo será a definição do 
conjunto que conterá o número de aci- 
dentes em cada curva. 


[SNS 


60 DIM A(5) 





70 FOR N=0 TO 5 

B0 READ A(N) 

90 NEXT N 

100 DATA 0,2,5,1,3,6 


60 DIM a(6) 

70 FOR n=1 TO 6 

80 READ a(n) 

90 NEXT n 

100 DATA 0,2,5,1,3,6 


É possível ignorar o elemento zero de 
um conjunto, nos computadores Apple, 
MSX, TRS-80 e TRS-Color, se for mais 
conveniente. Assim, no último exemplo, 
podemos definir DIM AS (6) e numerar 
os itens de 1 a 6. Isso significa que 
AS(0) fica vazio, pois é mais usual con- 
tar a partir do 1 do que 0. 


UTILIZAÇÃO DOS CONJUNTI 





Agora o computador já “'sabe” 
quantos acidentes ocorreram em cada 
curva. Mas como essa informação po- 
de ser manipulada? 

Provavelmente, você gostaria que, 
antes de mais nada, o computador im- 
primisse uma lista com todas as curvas 
e o número dos acidentes registrados em 
cada uma — somente para checar se os 
dados foram digitados corretamente. 
Adicione as linhas seguintes ao progra- 
ma e rode-o de novo. 


[Sé hs nao 


210 FOR N=0 TO 5 
220 PRINT AS(N) ,A(N) 
230 NEXT N 


210 FOR n=l TO 6 
220 PRINT aS(n),a(n) 
230 NEXT n 










As linhas 210 e 230 percorrem a lis- 
ta, enquanto a linha 220 imprime os no- 


hu ma 


300 cLS 

310 LET TL=0 

320 FOR N=0 TO 5 
330 LET TL=TL+A(N) 
340 NEXT N 
350 PRINT 
ENTES ";TL 


[Sab] 


Substitua no programa anterior o co- 
mando CLS por HOME, na linha 300. 


300 
310 
320 
330 
340 
350 
dentes: 


CANTAM EAR RA 


Imagine o quanto o programa acima 
seria útil se existissem cem curvas, em 
vez de apenas seis. 

E, levando em conta que a informa- 
ção não apenas pode ser facilmente ar- 
mazenada em um conjunto, como tam- 
bém pode ser analisada com a mesma 
facilidade, você entenderá por que os 
conjuntos constituem um instrumento 
tão poderoso — para qualquer coisa, 
desde orçamento doméstico até finanças 
internacionais. 

Digite estas linhas extras para exami- 
nar um exemplo de análise: 


[Sly mao 


"NUMERO TOTAL DE ACID 


cLS 
LET total=0 

FOR n=1 TO 6 

LET total=total+a(n) 

NEXT n 

PRINT "Numero total de aci 
"i;total 


400 FOR N=0 TO 5 

410 IF A(N)>3 THEN PRINT AS(N), 
A(N) 

420 NEXT N 










mes e os números armazenados nos con- 
juntos correspondentes. Se algum erro 
de digitação foi cometido, você terá a 
oportunidade de localizá-lo. 

Você pode, também, querer analisar 
os resultados contidos nos conjuntos. 
Por exemplo, para o levantamento da 
corridas, seria interessante obter respos 
tas para questões tais como: “quantas 
colisões ocorreram ao todo?"; “quais 
são as curvas mais seguras?”. As linhas 
adicionais do programa, destinadas a 
identificar o total de acidentes, são as 
seguintes: 


















































400 FOR n=1 TO 6 
410 IF a(n)>3 THEN 
Jra(n) 

420 NEXT n 


PRINT a$(n 


Esta parte do programa mostra na te- 
la uma lista das curvas nas quais ocor- 
reram mais de três acidentes. Em nosso 
exemplo de seis nomes, elas são as cur- 
vas PACE e LAGOA. Se você substituir 
o número 3 pelo 5, na linha 410, e ro- 
dar o programa, apenas LAGOA será 
impresso. Para qualquer número maior 
do que 6 — nesse caso, o maior valor — 
nada será impresso. 

A informação armazenada nos con- 
juntos poderia ser, para dar um segun- 
do exemplo, uma lista de famílias de 
uma cidade, juntamente com estatísti- 
cas como o número de crianças, os ren- 
dimentos mensais e o número de carros. 

Uma vez que esses elementos tenham 
sido entrados, eles poderão ser classifi- 
cados em grupos e analisados de inúme- 
ras maneiras. Por exemplo, suponha 
que queiramos listar os dados de todas 
as famílias com sobrenome começando 
com P. Para ter uma idéia de como isso 
funciona, acrescente estas linhas ao 
programa: 


[SIT Ih mia 


600 FORN=0TOS 

620 IFLEFTS(AS(N),1)="P"THENPRI 
NTAS (N) 

630 NEXT 


600 FOR n=1 TO 6 
620 IF as(n,1)="P” 
as(n) 

630 NEXT n 


As linhas 600 e 630 definem um la- 
ço, para examinar cada elemento do 
conjunto de nomes. À medida que isso 
ocorre, a linha 620 checa o primeiro ca- 
ractere. Se ele for P, um nome inteiro 
aparecerá. 

Nesse caso, a curva chamada PACE 
será impressa, porque é a única que co- 
meça com P. No exemplo do conjunto 
de família, poderíamos escrever uma li- 
nha do programa que listasse todas as 
famílias SILVA", todas as que tivessem 
mais de um carro, e assim por diante. 
Outra possibilidade é o cruzamento de 
informações — por exemplo, quais as 
pessoas cujos nomes começam por “A", 
que moram em determinada rua, no nú- 
mero 21, e cujo cachorro é um fila bra- 
sileiro! 


THEN PRINT 





















Rápidos e eficientes, os programas 
em código de máquina têm, contudo, 
uma desvantagem: é extremamente di- 
fícil escrevê-los e depurá-los. Fregien- 
temente, de fato, eles parecem apenas 
uma sequência de números sem sentido, 
pois instruções, dados e endereços são 
todos especificados como números he- 
xadecimai: 

A solução não está em deixar de es- 
crever programas em códigos de máqui- 
na, A maioria deles é escrita inicialmente 
em linguagem Assembly e depois tradu- 
zida para código de máquina. Normal- 
mente, isto é feito por um outro progra- 
ma, chamado Assembler (ou seja, mon- 
tador). Porém, se você não dispuser de 
um Assembler — ou se quiser aprofun- 
dar seus conhecimentos — poderá fazer 
essa tradução manualmente e digitar os 
códigos hexadecimais resultantes na me- 
mória do computador, entrando o pro- 
grama monitor ou o interpretador BA- 
SIC (comandos PEEK e POKE). 


EUA 


Você terá, assim, que aprender a lin- 
guagem Assembly, que está longe de ser 
tão difícil quanto os códigos de máqui- 
na. Os mnemônicos, que representam os 
códigos de operações da máquina, pra- 
ticamente dispensam explicações, pois 
são abreviaturas muito claras dos co- 
mandos correspondentes (mnemônico 
significa que lembra algo). Os dados e 
endereços são todos numéricos, assim 
como os códigos de máquina. Mas, 
usando códigos alfabéticos para escre- 
ver os comandos, a sequência pura de 
números será rompida, e ficará muito 
mais fácil para o programador entender 
o programa resultante. 

Ao se programar em linguagem As- 
sembly, portanto, basta consultar em 
uma tabela os códigos mnemônicos re- 
ferentes ao microprocessador utilizado 
pelo seu computador. 

O Sinclair Spectrum, o ZX-81, o 
TRS-80 e o MSX empregam o micro- 
processador Zilog Z-80, enquanto o 
TRS-Color usa o Motorola 6809, e o 
Apple II e o TK-2000 utilizam o 6502. 
O resultado da consulta à tabela é o có- 
digo de operação numérico correspon- 














Coloque-o no lugar correto, e a 
tradução estará praticamente feita, 

Há algo mais a ser lembrado. Nos 
computadores das linhas Sinclair, Ap- 
ple II, TRS-80 e MSX, não se pode es- 
quecer de trocar a ordem dos bytes cons- 
tantes de um endereço de memória, do 
programa, ou de outros dados que pre- 
cisam ser representados por dois bytes 
(dezesseis bits). A razão disso é que es- 
sas máquinas armazenam números no 
formato de byte-baixo/byte-alto. O 
TRS-Color utiliza um formato inverso, 
ou seja, de byte-alto/byte-baixo, de mo- 
do que você poderá deixar os dados ou 
endereços de dezesseis bytes em sua or- 
dem normal. 


PERUNIS [HR 


Os mnemônicos — assim como os có- 
digos de máquina em hexa que eles re- 
presentam — servem para manipular o 
conteúdo de um registro, definir o va- 
lor de um sinalizador ou passar de um 
ponto a outro no programa. Estas são. 
basicamente, as únicas coisas que as ins 
truções em código de máquina são ca- 
pazes de realizar. Um exemplo de mne- 
mônico é LDA, que significa LoaD Ac- 
cumulator (carregar o acumulador). 














TRADUÇÃO MANUAL 
DO ASSEMBLY 


Se quisermos utilizar esse recurso, de- 
veremos começar por aprender a tradu- 
zir os mnemônicos da linguagem As- 
sembly para códigos hexadecimais. 


aaa 


Contudo, traduzir programas em lin- 
guagem Assembly para código de má- 
quina não é tão fácil quanto parece, 
Mesmo uma instrução simples como 
LDA pode ser traduzida para cinco a 
quinze códigos de operações diferentes, 
dependendo da máquina. 

Os diversos códigos de operações de- 
pendem do tipo de endereçamento que 
está sendo utilizado, ou seja, das formas 
de acesso à memória RAM que são uti- 
lizadas pelo microprocessador. 

Veremos a seguir como realizar a tra- 
dução correta de um programa em lin- 
guagem Assembly para os vários tipos 
de computador. Na próxima lição, 
aprenderemos a montar rotinas muito 
úteis em linguagem Assembly. 
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O tipo mais simples de endereçamen- 
to no ZX-81 é o chamado endereçamen- 
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Montar programas em código de máquina 
pode ser um risco para seu equilíbrio 
mental! Uma alternativa mais saudável 
é escrevê-los em Assembly e depois 
traduzilos para hexadecimal. 


to imediato, no qual um valor numéri- 
co é usado como argumento do código 
de operação: 


LD A,4 


significa: “carregar (LOAD) o acumu- 
lador (A) com o número 4 sa ins- 
trução é traduzida para o código 3E04 
em linguagem de máquina. 

Já no endereçamento direto é forne- 
cido um endereço onde o dado pode ser 
encontrado, ao invés do próprio dado, 
Por exemplo: 





LD A,(0E2D) 


significa: “carregar o conteúdo da lo- 
cação 0E2D no registro A”. Isto se tra- 
duz para 3A 2D 0E (observe que os dois 
bytes correspondentes ao endereço fo- 
ram trocados). 

O endereçamento direto também fun- 
ciona de modo inverso: 


LD (0E2D),A 


significa: carregar o conteúdo do re- 
gistro A na locação de memória 
0E2D”. Isto é traduzido para 32 2D 0E 
(novamente os dois bytes foram inter- 
cambiados). Um terceiro tipo é o ende- 








reçamento indireto, Este diz à máquina 
onde encontrar o endereço do dado ne- 
cessário. Por exemplo, a instrução: 


LD A, (HL) 


significa: “carregar o registro A com o 
dado pertencente ao endereço contido 
no par de registros HL”. 

Em outras palavras, o microproces- 
sador examina o registro HL e usa esse 
número como o endereço da locação de 
memória onde está o byte a ser carrega- 
do no acumulador. 

Esse comando funciona também na 
direção contrária: 


LD (HL),A 


significa: “carregar o conteúdo do re- 
gistro A na locação de memória cujo en- 
dereço se encontra no par de registros 
HL”. 

Existe um tipo especial de endereça- 
mento indireto que é chamado de ende- 
reçamento indexado. Aqui, um dos dois 
registros de indexação — IX e IY — e 
o próprio endereço a ser utilizado são 
fornecidos por um valor de deslocamen- 
to, o qual é acrescentado aos conteúdos 
dos registros IX ou IY, 

Uma instrução típica poderia ser: 
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LDA, (IX +2F) 


Observe que o deslocamento é de 
apenas um byte. 

Os dados também podem ser trans- 
feridos de um registro para outro, Isso 
é chamado de endereçamento de regis- 
tro a registro, cuja instrução correspon- 
dente é escrita assim: 


LD D,B 


que significa: “carregar o conteúdo do 
registro B no registro D”. 


O endereçamento relativo é emprega- 
do apenas com comando de desvio. Ele 
diz ao computador quantos bytes este 
deve saltar para a frente ou para trás. 
Por exemplo; 


JRNZ 0FC 


O mnemônico JRNZ (Jump Relati- 

ve on Non-Zero) significa: “*saltar FC 
bytes em relação à posição atual, se o 
resultado da última operação efetuada 
for diferente de zero”, ou seja, se o si- 
nalizador de zero no registro de sinali- 
zadores (flag register) não for iguala 1. 
O FC diz para onde saltar. 
— 4 em complemento de dois. 
Assim, se O sinalizador de zero não es- 
tiver ligado, o microprocessador salta 
quatro bytes para trás no programa, 
contados a partir do final da instrução 
JRNZ 0FC, e esta é traduzida para 20 
FC em código de máquina. Assim, o mi- 
croprocessador salta de fato para a ins- 
trução que apareceu dois bytes antes 
dela. 

Na realidade, raramente o endereça- 
mento relativo é utilizado em linguagem 
Assembly. Normalmente os saltos são 
indicados por rótulos (labels). Estas são 
palavras inventadas pelo programador, 
que cumprem a função de marcadores 
— tal como INICIO — destinados a as- 
sinalar o começo de determinadas por- 
ções de um programa. 

Esse marcador aparece na frente da 
instrução para onde será realizado o sal- 
to, ou ainda, logo após a instrução de 
salto, Por exemplo, a linha inicial po- 
deria ser: 











INICIO LD A,07 

















e em algum outro ponto do programa 
apareceria a instrução de salto: 


DJNZ INICIO 


O DINZ (Decrement and Jump on 
Non-Zero) significa: “reduzir de 1 o va- 
lor do registro B e saltar para a instru- 
ção logo a seguir, onde o rótulo INICIO 
estiver colocado, no caso de o sinaliza- 
dor de zero não estar ligado”. Ao tra- 
duzir manualmente para código de má- 
quina, você precisará elaborar os saltos 
relativos por sua própria conta. 


+ TESE 


A forma mais simples de endereça- 
mento no microprocessador 6502 é o en- 
dereçamento implícito. Na verdade, ele 
não é propriamente um endereçamento. 
Por exemplo: 


CLC 


significa: “limpar o sinalizador de trans- 
porte (Clear Carry Flag)". Não é neces- 
sário nenhum tipo de endereço como ar- 
gumento. A ação é executada no sinali- 
zador de transporte, cujo endereço está 
implícito na instrução. 

No endereçamento imediato o dado 
segue diretamente a instrução. Por 
exemplo: 


LDA +&04 


Essa operação carrega o acumulador 
com o número 4. O comando LDA é 
traduzido, na tabela de códigos de ope- 
rações do 6502, para A9 quando esta 
modalidade de endereçamento é utiliza- 
da. Assim, a instrução completa passa 
a ser A904. 

Já no endereçamento absoluto, o en- 
dereço completo de uma locação de me- 
mória segue o mnemônico. Por 
exemplo: 


LDA & 1122 


significa: “carregar o acumulador com 
o dado armazenado na locação de me- 








mória 1122”. Essa forma também é co- 
nhecida como endereçamento direto. 

A tradução para o LDA com ende- 
reçamento absoluto é o código hexade- 
cimal AD. No exemplo acima, a instru- 
ção completa é traduzida para AD 2211. 
Observe que essa operação tem três 
bytes e que os dois bytes do endereço são 
trocados de ordem, quando se traduz da 
linguagem Assembly para o Apple. 

Na página O — isto é, de 0000 a 00FF 
— não é preciso especificar o primeiro 
byte de endereço, mas deve-se utilizar 
um código de operação especial de pá- 
gina O (chamado de código de operação 
de endereço curto), o qual diz ao com- 
putador para olhar para um endereço de 
um byte. 

O código de operação para LDA na 
modalidade de endereçamento de pági- 
na 0 é AS. Assim, uma instrução como: 


LDA &7F 


será traduzida para ASTF. 

Com o endereço absoluto e o ende- 
reço de página 0, é possível utilizar o en- 
dereçamento indexado, no qual o con- 
teúdo de um dos registros de indexação 
—X e Y- é acrescentado ao endereço 
dado com a instrução, para fornecer um 
segundo endereço que será utilizado. 
Por exemplo: 


LDA &1122,X 


Suponha que o conteúdo de registro X 
seja 33. Acrescentando-se 33 a 1122, 
obtém-se 1155; o acumulador é, então, 
carregado com o dado que se encontra 
na locação de memória 1155. 

Ambos os registros X e Y podem ser 
empregados para indexar tanto o ende- 
reçamento absoluto quanto o de pági- 
na 0. 

Mas note que, se a soma do conteú- 
do do registro X com o endereço da pá- 
gina O for maior do que FF e, em virtu- 
de disso, cair na página 1, o byte mais 
significativo será ignorado. No endere- 
çamento de página zero, indexado ou 
qualquer outro, o endereço utilizado 
sempre estará na página 0. 

Ao usar endereçamento indexado 





deve-se consultar o código mnemônico 
em Assembly, correspondente à página 
0X, página 0Y, absoluto X ou absoluto 
Y 


Também é possível endereçar indire- 
tamente uma locação de memória, 
utilizando-se o endereçamento indireto. 
Nesta forma, o código de operação é se- 
guido por um endereço entre parênteses. 
Isso significa que o microprocessador 
encontrará nesta locação um segundo 
endereço, o qual será empregado para 
acessar o dado. Por exemplo: 


JMP (&1530) 


significa: salte para o endereço dado na 
locação de memória 1530. Mas como 
qualquer locação de memória pode re- 
ter apenas um byte, e como são neces- 
sários dois bytes para compor um ende- 
reço, o microprocessador olha para 1530 
e 1531. A primeira locação contém o 
byte menos significativo, e a segunda, 
o byte mais significativo, de acordo com 
a convenção utilizada para esse micro- 
processador. Assim, se a locação de me- 
mória 1530 contém 2F, e a locação de 
memória 1531 contém 13, o micropro- 
cessador saltará para a locação de me- 
mória 132F. 

Existem também duas maneiras de 
indexar endereços indiretos. Com o re- 
gistro X você poderá acrescentar um 
deslocamento ao primeiro endereço (o 
endereço fornecido na instrução). O 
procedimento é chamado de endereça- 
mento indireto pré-indexado. Alterna- 
tivamente, você poderá acrescentar um 
deslocamento do registro Y para o se- 
gundo endereço (o endereço nas loca- 
ções de memória fornecido na instrução 
original). Isso é chamado de endereça- 
mento indireto pós-indexado. 

Esta é a aparência de instruções des- 
te tipo, em linguagem Assembly: 


LDA (&1122,X) e LDA (&1122),Y 


O primeiro código usa o endereça- 
mento pré-indexado, e o segundo, o pós- 
indexado. Para se consultar os códigos 
hexadecimais correspondentes, deve-se 
procurar o LDA sob (indireto,X) e (in- 









direto), Y. Isso fornecerá Al e B1 respec- 
tivamente. Assim, as duas instruções 
acima seriam traduzidas para Al 2211 
eB12211. 

As instruções de desvio são saltos 
condicionais. Por exemplo: 


BEQ 


significa: desviar se for igual a (Branch 
if EQual) — isto é, se o sinalizador ze- 
ro estiver igual a 1. As instruções de des- 
vio podem utilizar endereçamento rela- 
tivo em alguns tipos de Assembler. 


BEQ +&04 


significa: salte quatro bytes para a frente 
a partir do início da próxima instrução, 
se o sinalizador zero estiver igual a 1. 

Por meio de rótulos, indica-se ao mi- 
croprocessador o ponto do programa 
para onde o desvio deve ser realizado. 
A primeira instrução a partir deste pon- 
to é simplesmente precedida pelo rótu- 
lo. Por exemplo: 


INICIO LDA &04 


ao passo que a instrução que produz o 
desvio terá: 


BEQ INICIO 


O Assembler se encarregará, então, de 
calcular o desvio relativo. No entanto, 
se você está traduzindo manualmente 
uma listagem em Assembly, a respon- 
sabilidade pelo cálculo será sua. Códi- 
go de máquina não emprega rótulos, 
apenas números. Os microprocessado- 
res 6510 e 6502 comportam ainda mais 
um tipo de endereçamento — o endere- 
çamento por acumulador —, usado 
principalmente com instruções de deslo- 
camento e rotação de bits. Por exemplo: 


ASL A 


significa: desloque o acumulador de um 
bit (Accumulator Shift Left). É possí- 
vel utilizar esta instrução, também, com 
outras locações de memória, e não ape- 
nas com o acumulador. Neste caso, bas- 








ta substituir o A, no exemplo acima, pe- 
lo endereço de memória cujo conteúdo 
você quer deslocar. Esta locação pode 
ser indexada com o registro X, apenas. 

A instrução tem O seguinte efeito: o 
bit menos significante da memória é ze- 
rado, o bit mais significante é colocado 
no registro indicador de transporte 
(carry flag), e os bits restantes são des- 
locados uma posição à esquerda. Da 
mesma forma, existe o ASR (Accumu- 
lator Shift Right), para efetuar desloca- 
mentos de bits à direita. 


O microprocessador Motorola 6809, 
utilizado nos computadores compatíveis 
com a linha TRS-Color, tem um tipo de 
endereçamento implícito, também cha- 
mado endereçamento de registros. 

Esta expressão refere-se às instruções 
da linguagem Assembler que não preci- 
sam ser acompanhadas de um endereço 
pois operam em um registro interno do 
microprocessador, que é estipulado pe- 
la própria instrução. Por exemplo: 


DECA 


significa: diminua de 1 o registro A (De- 
crement Accumulator). O código hexa- 
decimal correspondente, que pode ser 
encontrado na tebela de conversão do 
manual do microprocessador, é 4A. 

No endereçamento imediato, o dado 
a ser utilizado é o próprio argumento da 
instrução. Por exemplo: 


ADDB +57 


significa: adicione 7 ao registro B. O códi- 
go para ADD em modo imediato é CB, em 
hexadecimal, de modo que a instrução 
completa acima é traduzida para CB 07. 
Existe ainda outra forma de endere- 
çamento imediato, na qual se usa um se- 
gundo byte, chamado pós-byte. Neste 
caso, a instrução assume a forma: 


TFR A,B 


que significa: transferir o conteúdo do 





registro A para o registro B. 

Para traduzir essa instrução para có- 
digo de máquina, deve-se consultar o có- 
digo TFR na seção de endereçamento 
imediato da tabela. Isto nos dá o códi- 
go IF. A seguir, o pós-byte é avaliado 
um nibble (um grupo de quatro bits) de 
cada vez. 

Em geral, para usar esta instrução 
com o 6809, atribui-se um dígito hexa- 
decimal para cada registro. Dois desses 
dígitos são unidos para formar o pós- 
byte. Por exemplo, o registro A recebe 
o valor de 8, e o registro B, o valor de 
9. De modo que: 


TFR A,B 


é traduzido para IF 89. Se, ao contrá- 
rio, a instrução tivesse sido: 


TER B,A 


a instrução correspondente em código 
de máquina seria IF 98. 

No endereçamento absoluto, ou am- 
pliado, a instrução é acompanhada do 
endereço de dezesseis bits da locação de 
memória a ser utilizada. Por exemplo: 


STA 87530 


significa: armazene o conteúdo do acu- 
mulador da memória &H7530 (Store 
Accumulator). A tradução, no caso, se- 
ria B7 75 30 (note que os dois últimos 
bytes, correspondentes ao endereço, são 
mantidos na ordem direta, como é obri- 
gatório para a maior parte dos outros 
tipos de microcomputador). 

A instrução é um pouco complicada, 
pois envolve três bytes. Usando-se en- 
dereçamento direto, porém, podemos 
reduzi-la para uma instrução de dois 
bytes. O microprocessador 6809 tem um 
registro de página direta, que armaze- 
na o byte mais significativo de um en- 
dereço. Assim, todas as memórias na- 
quela página podem ser endereçadas 
usando-se apenas um byte, no caso o 
menos significante. 

Esse recurso funciona da seguinte 











maneira: o registro de página direta é 
carregado usando-se a instrução TFR, 
mencionada acima, ou a instrução EXG 
(EXchanGe), que troca os conteúdos de 
dois registros entre si. 


EXG A,DP 


Na instrução acima, pede-se para in- 
tercambiar os registros A e página dire- 
ta (Direct Page). A instrução não ape- 
nas define a página direta com o que foi 
carregado em A com um comando LDA 
prévio; ela também armazena o núme- 
ro de página direta previamente retido 
por DP, de volta para o registro A. Da- 
li esse número pode ser jogado para uma 
locação de memória qualquer, usando 
a instrução STA. 

O byte mais significante da página di- 
reta — 75, neste exemplo — está agora 
definido, e o byte menos significante po- 
de ser dado com a instrução. Neste ca- 
so, para fazer a tradução manual, é ne- 
cessário consultar a instrução STA na 
tabela de códigos, sob a seção de ende- 
reçamento indireto. O resultado é 97, 
em hexadecimal. Assim, a instrução 
completa do exemplo será 9730. 

Obviamente, não vale a pena repetir 
todo este procedimento cada vez que se 
quiser armazenar dados em uma loca- 
ção de memória, Definir o endereço- 
base da página direta toma muito mais 
tempo do que o economizado com a re- 
dução da instrução de três bytes para 
dois bytes. Mas muitas vezes é suficien- 
te definir a página direta no começo de 
um segmento de programa e, daí em 
diante, armazenar todos os dados na 
mesma página. 

Endereçamento indireto ocorre quan- 
do o microprocessador precisa examinar 
uma memória indicada por um endere- 
ço que, por sua vez, contém um segun- 
do endereço, no qual estão os dados que 
serão carregados no acumulador. A for- 
ma de notação utilizada é entre col- 
chetes: 





LDA [SFEEE] 


Por meio desta instrução, pede-se ao 
microcomputador para recuperar um 
endereço, nas locações de memória 
FEEE e FFFF (o endereço completo, 
com dois bytes). 

Prosseguindo, a instrução carrega no 
acumulador A o conteúdo na locação 
com este segundo endereço. 

O endereço indireto também pode ser 
realizado com os registros U,S, X e Y, 
bem como com o cortador de programa. 

Em todos esses casos de endereça- 
mento indireto, é necessário consultar o 
mnemônico da instrução na tabela, sob 


a seção de endereçamento indexado, pa- 
ra se obter o código correspondente. Em 
seguida, deve-se consultar o pós-byte. 

No exemplo dado acima, consulta-se 
LDA sob a seção de endereçamento in- 
dexado, e se obtém A6. Depois, con- 
sulta-se o endereço [mmmm], que indi- 
ca um endereço geral de dezesseis bytes, 
na tabela de pós-bytes. Isto dá 9 F (ou 
BF, ou DF ou FF, pois os pós-bytes 
são repetidos para cada registro: como 
[mmmm] é independente de qualquer re- 
gistro, aparece quatro vezes). 

Assim a instrução completa: 


LDA [$FFFE] 


é traduzida para A6 9F FF FE. 

Usando os registros U,S, X e Y, bem 
como o contador de programa, pode-se 
estipular tanto o endereçamento não-in- 
direto (sem colchetes), quanto o ende- 
reçamento direto (com colchetes), usan- 
do-se deslocamentos (offsets). Os des- 
locamentos podem ser constantes — de- 
cimais, hexadecimais de oito ou dezes- 
seis bits — ou o conteúdo de outros re- 
gistros, Este conteúdo é somado ou sub- 
traído do conteúdo-base de um dos 
co endereços indexáveis. 





LDA 0,X 


significa: carregue o registro acumula- 
dor com dados na locação de memória, 
cujo endereço está armazenado no re- 
gistro X. Nesse exemplo, o deslocamen- 
to é zero. Outros exemplos: 


LDA 1,X 


significa: carregar o acumulador com o 
endereço em X, somado de 1 


LDA —-16,Y 


significa: carregar o acumulador com o 
endereço em Y, diminuído de 16, 


LDA ($10,X) 


é a versão para endereçamento indexa- 
do. Ele carrega o acumulador com o 
conteúdo da locação de memória cujo 
endereço está indicado em X, e que é 
adicionado de 10 (em hexadecimal). 

Em todos estes casos, o código ope- 
racional para LDA pode ser encontra- 
do na seção de endereçamento indexa- 
do, e o pós-byte apropriado precisa ser 
adicionado, a partir do que for encon- 
trado na tabela de pós-bytes. Desloca- 
mentos de oito bits e endereços de de- 
zesseis bits seguem-se a isto. 

Desvios em linguagem Assembler são 
programados por meio das instruções 


JMP e JSR. Estes desvios podem ser de- 
finidos em termos de endereços finais de 
página direta, ampliados, ou, ainda, in- 
dexados, de modo que os códigos de 
máquina equivalentes se alteram de 
acordo, Desvios condicionais, entretan- 
to, utilizam endereçamento relativo. 

Com endereçamento relativo, 
informa-se à UCP quantos bytes o pro- 
grama deve pular para a frente ou para 
trás em relação à instrução de desvio. 

Existem dois tipos de desvios: um 
desvio ordinário de oito bits, que pula 
para até 127 bytes para a frente ou 128 
bytes para trás, e um desvio longo de de- 
zesseis bits, que pode abranger 32 767 
bytes para trás. 


BEQ SFA 


pulará seis bytes para trás, a partir do 
início da instrução seguinte, se o indi- 
cador de zero (zero flag) estiver ligado. 
FA é — 6 em complemento de dois. Al- 
ternativamente, temos o desvio longo: 


LBEQ $0400 


que saltará 2560 bytes para a frente, se 
o indicador de zero estiver ligado. 

Os desvios sempre utilizam endereça- 
mento relativo — não há outro tipo de 
endereçamento disponível para eles. Po- 
rém, como muitas vezes é trabalhoso 
calcular o tamanho de um salto, 
procura-se utilizar rótulos. 

Os rótulos são palavras (simbólicas) 
criadas pelo programador, que indicam 
ao microprocessador qual é o ponto do 
programa para onde o desvio deve ser 
realizado e, a partir deste ponto, a pri- 
meira instrução é simplesmente precedi- 
da pelo rótulo. Por exemplo: 





INICIO DECA 


ao passo que a instrução que produz o 
desvio terá: 


BEQ INICIO 


O Assembler se encarregará, então, 
de calcular o desvio relativo, que pod: 
rá ser para a frente, se o rótulo estiver 
depois da instrução de desvio, ou para 
trás, se estiver antes dela. Entretanto, se 
você está traduzindo manualmente uma 
listagem em Assembly, a responsabili- 
dade pelo cálculo será sua, já que códi- 
go de máquina não emprega rótulos, 
apenas números. Para fazer o cálculo, 
conta-se o número de bytes a partir do 
final da instrução de desvio até o come- 
ço da instrução para a qual se deseja 
saltar. Lembre-se que, para um sal- 
to longo, isto tomará dois bytes. 
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CONJUNTOS DE 
DUAS DIMENSÕES 


E DEFINIÇÃO DE MATRIZES 
E ENTREDADOS EMUMA MATRIZ 
COMO PROGRAMAR MATRIZES 
EE RECUPERAÇÃO DE INFORMAÇÕES 
E USOS PARA AS MATRIZES 











Se você tem uma grande quantidade de 
dados inter-relacionados, a 

informação pode estar perdida entre 
eles. Coloque-os numa matriz 

e o computador extrairá 

exatamente a informação desejada. 


Agora que você já conhece como um 
conjunto pode ser empregado para con- 
servar informações em um programa (li- 
ção Conjuntos: Caixas de Informação, 
página 192), podemos passar ao estudo 
de matrizes. Matriz (ou matrix) é to- 
do conjunto bidimensional que serve de 
meio para armazenar grupos de dados 
inter-relacionados. 

Um conjunto bidimensional é, grafi- 
camente, como uma pilha de gavetinhas, 
onde cada gaveta serve para armazenar 





um único dado. Esta é uma maneira 
muito conveniente de lidar com infor- 
mações pois, para localizar uma delas, 
basta se referir a um elemento do con- 
junto, por meio dos seus números de li- 
nha e de coluna. 

A matriz armazena itens reais, tais 
como os parafusos da ilustração abai- 
xo, onde se pode encontrar imediata- 
mente a caixa que contém parafusos de 
latão de 38 mm, ou para qualquer ou- 
tra que se esteja procurando. Neste ca- 
so o dado da matriz é o número de pa- 
rafusos em cada caixa. 

A matriz pode também guardar in- 
formações abstratas, como o número de 
revendedores de automóveis, discrimi- 
nados segundo a sua nacionalidade e 
marca dos carros vendidos. 

Informações como esta são freguen- 
temente colecionadas como resultado de 
levantamentos, que são a base para o 


programa exposto neste artigo. Entre- 
tanto, a estrutura do programa é a mes- 
ma para qualquer matriz bidimensional, 
pouco importando o tipo de informação 
que ela contém. 

Como exemplo, suponha que você se- 
ja um professor interessado em classifi- 
car os animais de estimação trazidos por 
um conjunto de crianças, Em primeiro 
lugar, seria preciso anotar o nome das 
crianças e descrever quantos animais de 
cada grupo elas possuem. A lista seria 
mais ou menos assim: 


Silvia: dois periquitos, um coelho, 
João: um cachorro, quatro peixes. 
Carlos: dois hamsters, um gato. 


Recurso muito útil para armazenar dados, 
as matrizes servem também para 
classificar pequenos itens como parafusos. 











Jaci: um cachorro, um gato, um hamster. 
Beto: um rato, um coelho, dois peixes. 


Entretanto, em uma lista como essa 
torna-se um tanto difícil extrair infor- 
mações como “'quantas pessoas pos- 
suem gatos?”, ou “quem tem mais de 
quatro animais?” — e quanto maior for 
a lista, mais difícil será também obter 
respostas 

A melhor maneira de resolver o pro- 
blema seria distribuir as informações em 
forma de tabela ou quadro, com o no- 
me dos animais dispostos no alto e o das 
crianças à esquerda. Pois bem, é exata- 
mente assim que funciona uma matriz 
bidimensional. 

Em um exemplo pequeno como este 
é simples encontrar a resposta para qual. 
quer pergunta sobre os dados. Entretan- 
to, o computador trabalha com um in- 
findável número de informações. Se vo- 
cê exami todo o conjunto de dados 
para descobrir quem tem pelo menos um 
gato, ou se quiser saber o nome das pes- 
soas que possuem ratos, verificará que 
o trabalho será tanto maior quanto mais 
ampla for a quantidade de dados. Por 
sorte, o computador pode cumprir essa 
tarefa em questão de segundos 


DEFINA A MATRIZ 


Equacionado o problema, o passo se- 
guinte será colocar a informação den- 
tro do computador. Se você voltar às pá- 
ginas 192 a 195 verá como definir e usar 
uma matriz unidimensional (também 
chamada de conjunto), Matrizes bidi- 
mensionais são muito similares, envol- 
vendo apenas um pouco mais de traba- 
lho para serem definidas. 

Uma matriz unidimensional pode ser 
escrita na forma A(N), onde N é o nú- 
mero dos seus elementos. Uma matriz 
bidimensional, por sua vez, é definida 
como A(L,C), onde L é o número de li- 
nhas e C o número de colunas. Na ver- 
dade, pouco importa se você a definir 
de forma invertida, como A(C,L), com 
as colunas antes das linhas, desde que 
seja coerente com a primeira ou a segun- 
da definições 

Contudo, mesmo trabalhando com 
uma matriz bidimensional, você preci- 
sará definir duas matrizes unidimensio- 
nais que sirvam de cabeçalho para as co- 
lunas e para as linhas (no nosso caso, 
uma matriz conterá o nome das crian- 





Assim como as bolinhas da ilustração, 
distribuídas ordenadamente 

segundo seu tamanho e cor, as informações 
devem ser armazenadas na memória 

de acordo com o grupo a que pertencem. 
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ças e a outra o nome dos animais). A 
matriz bidimensional conterá os dados. 

Vamos chamar as duas primeiras ma- 
trizes de PETS (C) e CHS$ (R) e a matriz 
de dados de N (R,C). Uma outra ma- 
triz, PT (R), conterá o número total de 
animais em cada linha. No Spectrum, as 
matrizes são rotuladas de p$ (c), c$ (r), 
n(r,c)ep (r), pois é permitido apenas 
um caractere para a formação dos no- 
mes. O programa não funcionará no 
ZX-81, Eis um programa para dimen- 
sionar a matriz e ler os dados de um co- 
mando DATA. 


100 C=7:R=5 
110 DIM PET$(C),CHS(R) ,N(R,C),P 


T(R) 

120 FOR J=1TOC:READPETS (J) :NEXT 
130 FORJ=1TOR:READCHS (J) :NEXT 
140 FOR J=1TOR 

150 FORK=1TOC 

160 READ N(J,K):NEXT:NEXT 


3000 DATA PERIQUITO, GATO, CACHOR 
RO, PEIXE, RATO, HAMSTER, COELHO 
3010 DATA SILVIA, JOAO, CARLOS, JA 
CI, BETO 


3020 DATA 2,0,0,0,0,0,1 

3030 DATA 0,0,1,4,0,0,0 

3040 DATA 0,1,0,0,0,2,0 

3050 DATA 0,1,1,0,0,1,0 

3060 DATA 0,0,0,2,1,0,1 

100 LET c=7; LET r=5 

110 DIM p$(c,7): DIM cSt(r,5): 
DIM n(r,c): DIM p(r) 

120 FOR 3=1 TO c: READ p$(5): 
NEXT 3 

130 FOR j=1 TO r: READ c$(5): 
NEXT 3 

140 FOR 3=1 TO r 

150 FOR k=1 TO c 

160 READ n(5,k): NEXT k: NEXT 
5 

3000 DATA "PERIQUITO”,"GATO","C 


ACHORRO", "PEIXE", "RATO", "HAMSTE 
R”, "COELHO" 
3010 DATA "RODRIGO" 





"RICARDO" ," 


FERNANDA”, "BEATRIZ", " JUNIOR” 
3020 DATA 2,0,0,0,0,0,1 
3030 DATA 0,0,1,4,0,0,0 
3040 DATA 0,1,0,0,0,2,0 
3050 DATA 0,1,1,0,0,1,0 
3060 DATA 0,0,0,2,1,0,1 


As variáveis R e € foram usadas pa- 
ra facilitar a adaptação do programa: 
afinal, é improvável que sua matriz te- 
nha o mesmo número de linhas e de co- 
lunas que a que apresentamos aqui. As- 
sim, tudo o que você tem a fazer é tro- 
car os números na linha 100 e, logica- 
mente, as informações nas linhas dos co- 
mandos DATA. 

Note agora que os dados entram na 
matriz. Existe uma linha para o cabeça- 





lho das colunas, outra para o cabeçalho 
das linhas e uma para cada linha da ma- 
triz principal. Note também que você 
deve entrar um item de dado para cada 
espaço na matriz, mesmo que ele seja ze- 
ro, ou o computador responderá com 
uma mensagem de erro. 

Agora que os dados estão dentro do 
computador, você deve decidir o que fa- 
zer com eles. Um de seus recursos é ofe- 
recer tantas opções quanto possível: afi- 
nal, é o computador que vai trabalhar, 
e não você, 


Será melhor descrever as opções em 
forma de menu, E para a pesquisa dos 
animais você provavelmente precisará 
do seguinte: 


300 LET fo=0: CLS 

310 PRINT **"MENU” 

320 PRINT '"1- LISTAR ANIMAIS” 
330 PRINT "2- LISTAR CRIANCAS” 
340 PRINT "3- INTRODUZIR TIPO 
DE ANIMAL” 


350 PRINT "4- 
DA CRIANCA” 

360 PRINT "5- 
O DE ANIMAIS” 


INTRODUZIR NOME 


INTRODUZIR NUMER 


370 PRINT "6- MOSTRAR A MATRIZ 
380 PRINT ''"SELECIONE OPCAO” 
390 INPUT a 

395 IF a<l OR a>6 THEN GOTO 

390 

400 cLS 

410 GOSUB (a*100+400) 

420 Goto 300 





No TRS-80, multiplique por 2 os va- 
lores utilizados com o PRINTO 





300 FOUND=0:CLS 

310 PRINT 843,"MENU” 

320 PRINT 698,"1 LISTAR ANIMAIS 
330 PRINT €130,"2 LISTAR CRIANC 
as 

340 PRINT €162,"3 INTRODUZIR TI 


PO DE ANIMAL 

350 PRINT €194,"4 INTRODUZIR NO 
ME DA CRIANCA” 

360 PRINT €226,"5 INTRODUZIR NU 
MERO DE ANIMAIS” 

370 PRINT €258,"6 MOSTRAR A MAT 
RIZ” 


380 PRINT:PRINT"ESCOLHA A OPCAO 
390 INPUT A 

395 IF A<l OR A>6 THEN 390 

400 CLS 

410 ON A GOSUB 500,600,700,800, 
900,1000 


420 GoTO 300 








REAR 
psy 


300 Fo=0:cLS 


310 LOCATE 17,1:PRINT"MENU” 





320 LOCATE 7,4:PRINT"I. LISTAR 

ANIMAIS” 

330 LOCATE 7:PRINT"2. LISTAR CR 
IANÇAS” 

340 LOCATE 7:PRINT”3. INTRODUZI 
R TIPO DE ANIMAL” 

350 LOCATE 7:PRINT"4. INTRODUZI 
R NOME DE CRIANÇA” 

360 LOCATE 7:PRINT"S. INTRODUZI 
R NUMERO DE ANIMAIS” 

370 LOCATE 7:PRINT"6. MOSTRAR A 
MATRIZ” 

380 PRINT:PRINT:LOCATE 20:PRINT 
“OPÇÃO” ; 


390 INPUT A 

395 IF A<l OR A>6 THEN 390 

400 cLS 

410 ON A GOSUB 500,600,700,800, 
900,1000 

420 Goto 300 


[ILS] 








300 FO = O: HOME 

310 HTAB 18: VTAB 2: PRINT "ME 
NU” 

320 VTAB 5: HTAB 8: PRINT "1. 
LISTAR ANIMAIS” 

330 HTAB 8: PRINT "2. LISTAR C 
RIANCAS” 

340 HTAB 8: PRINT "3. INTRODUZ 
IR TIPO DE ANIMAL” 

350 HTAB 8: PRINT "4. INTRODUZ 
IR NOME DE CRIANCA” 

360 HTAB 8: PRINT " INTRODUZ 
IR NUMERO DE ANIMAIS" 

370 TAB 8: PRINT "6. MOSTRAR 
A MATRIZ” 

380 PRINT : PRINT : HTAB 20: P 
RINT "OPCAO "; 

390 INPUT A 

395 IFA< 1 ORA>õG6THENJI90 
400 HOME 

4l0 ON A GOSUB 500,600,700,800 


+900,1000 
420 GoTo 300 


RI RUE 


As sub-rotinas a seguir servirão para 
o início do trabalho, embora, mais tar- 
de, você possa adicionar outras opções. 
A primeira imprime apenas a lista de 
animais, fazendo uma procura na ma- 
triz PETS() ou p$(). A segunda faz a 
mesma coisa para imprimir a lista de 
crianças. 


499 REM ** OPCAO 1 ** 

500 PRINT ''"LISTA DE ANIMAIS4 
510 PRINT '* 

520 FOR 3=1 TO c 


PP” 











530 PRINT pS(5) 
540 NEXT 3 
550 PRINT 
ER TECLA PARA 
560 PAUSE O 
570 RETURN 
599 REM ** OPCAO 2 *x 

600 PRINT ''"LISTA DE CRIANCAS 


PRESSIONE QUALQU 
RETORNAR” 


10 
620 
630 


PRINT ** 

FOR 3=1 TO r 

PRINT c$(3) 

640 NEXT 3 

650 PRINT ''"PRESSIONE QUALQUE 
R TECLA PARA RETORNAR” 

660 PAUSE O 

670 RETURN 


aa mas! 


499 REM 4H OPCAO 1 4 
500 PRINTTAB(S);"LISTA DE ANIMA 
Is” 

510 PRINT:PRINT 

520 FOR J=1TOC 

530 PRINT PETS(J) 

540 NEXT 

550 PRINT:PRINT"PRESSIONE QUALQ 
UER TECLA PARA RETORNAR” 

560 IF INKEY$=""THENS60 

570 RETURN 

599 REM 444 OPCAO 2 444 

600 PRINTTAB(5);"LISTA DE CRIAN 
ças” 

610 PRINT:PRINT 

620 FOR J=1TOR 

$30 PRINT CHS(J) 

640 NEXT 

650 PRINT:PRINT”"PRESSIONE QUALQ 
UER TECLA PARA RETORNAR” 

660 IF INKEY$=""THEN660 





670 RETURN 

499 REM max OPÇÃO 1 *X% 

500 PRINT TAB( 10)"LISTA DE A 
NIMAIS” 





510 PRINT PRINT 
520 FORJ = 1 TOC 
530 PRINT PETS(J) 





540 NEXT 

550 PRINT PRINT "PRESSIONE Q 
UALQUER TECLA PARA RETORNAR” ; 
560 GET AS 

570 RETURN 

599 REM *X* OPCAO 2 xx 
600 PRINT TAB( 10);"LISTA DE 
CRIANCAS” 

610 PRINT PRINT 
620 FORJ - 1 TOR 
630 PRINT CHS(J) 
640 NEXT 

650 PRINT PRINT "P) 
UALQUER TECLA P, 

660 GET AS 

670 RET 




















nteressante. Se 
ar o nome de um animal, o 

Omputador imprimirá uma lista de 
crianças que têm no mínimo um deles, 











informando ainda quantos espécimes 7 
cada criança possui, s 
, 7 

5 ; 
E] 

7 


699 hEM ** OPCAO 3 ** 

































700 PRINT *'"INTRODUZA TIPO DE 

ANIMAL” 

705 DIM 1$(7): INPUT LINE 15 E 
710 PRINT '"PESSOAS QUE TEM UM 

"as s 
720 FOR 3=1 TO c HM 
730 IF p$())=1$ THEN LET fo=3 i 

740 NEXT 3 

750 IF fo=0 THEN PRINT * ANIM 

AL NAO ENCONTRADO. TENTE OU” 


RA VEZ.”: GOTO 700 
760 FOR 3=1 TO r 


























A matriz mostra alguns 
revendedor 

carros classificados por 
país e marca de automóvel. 
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s 770 IF n(3,f0)2) THEN PRINT c ANIMAL” 770 IEN(J,FO) OTHENPRINTCHS (J) ; 
$(3);” ";n(3WEoM 705 PRINT"LISTA DE TODOS QUE TE ” ";N(J,FO) 
775 NEXT 5 MM"; 775 NEXT 
780 PRINT ''” PRESSIONE QUALQU 710 INPUT PS 780 PRINT:PRINT" PRESSIONE QUALQ 
ER TECLA PARA | RETORNAR” 715 PRINT:PRINT UER TECLA PARA RETORNAR" ; 
785 PAUSE O 720 FORJ=1TOC 785 IFINKEYS=""THEN785 
790 RETURN 730 IFPETS(J) =P$THENFO=J 790 RETURN 
740 NEXT 
750 IFFO=0THENPRINT"ANIMAL NAO 
ENCONTRADO. TENTE DE NOVO!”:GOT 
699 REM 444 OPCAO 5 h4+ 0700 699 REM *X** OPCAO 3 xxx 
700 PRINTTAB(5);"DIGATE TIPO DE 760 FORJ=1TOR 700 PRINT TAB( 10);"DIGITE O 


TIPO DE ANIMAL” 

705 PRINT TAB( 5);"LISTA DE T 
ODOS QUE TEM "; 

710 INPUT PS 

715 PRINT : PRINT 

720 FORJ = 1 TOC 

730 IF PET$(J) = P$ THEN FO = 



























740 NEXT 
1750 IF FO = O THEN PRINT “ANI 
| MAL NAO FOI ENCONTRADO. TENTE 
NOVAMENTE GoTo 700 

760 FORJ=1 TOR 
1770 IF N(J,FO) > O THEN PRI 
MNT CHS(J);” (J,F0) 
À 775 NEXT 
780 PRINT : PRINT "PRESSION 
E QUALQUER TECLA PARA RETOR 
NAR” 

785 GET AS 

790 RETURN 








Esta rotina é mais complica 
da, de modo que vale a pena 
explicá-la com mais detalhes 

A linha 710 guarda nossa 
entrada na variável PS (i$ no 

Spectrum). Digamos, por 

exemplo, que nossa entra- 
da seja “GATO”; assim, 

P$ = “GATO” (oui$ 

“GATO"). As linhas 720 

a 740 verificam se há al 
gum “GATO” na lista 
de animais. Em caso 
positivo, a variável FO 
receberá o número da 
coluna em que “GATO” 
foi achado. No nosso caso, FO=2 
porque “GATO” está na coluna 2 
Se o computador atingir a linha 750 
e FO for igual a O (ou seja, se seu valor 
for igual a O na linha 300), isso signifi- 
ca que o animal pedido não está na lis 
ta. Em consegiiência o programa reco- 
meçará. 

As linhas 760 a 775 percorrem cada 
elemento na coluna 2. Se algum elemen- 
to for maior que O, isso significa que 
a pessoa nessa linha tem um gato e seu 
nome será impresso junto com a infor- 
mação de quantos animais dessa espé- 
cie ela tem. 

Verifique o programa e veja se você 
pode seguir o que o computador está fa- 
zendo a cada passo. A opção 4 permite 




















entrar o nome de uma pessoa para ver 
a lista de seus animais. 

O programa funcionará de modo 
quase igual ao da última rotina. Desta 
vez, entretanto, o computador procura- 
rá por uma linha particular da matriz, 
e não por uma coluna, como acontecia 
no exemplo anterior. 


799 REM ** OPCAO 4 ** 

800 PRINT ''"INTRODUZA O NOME 
DA CRIANCA” 

805 DIM £S(5): INPUT LINE £S 
810 PRINT "ANIMAIS PERTENCENTE 
SA ":;Ls 

815 PRINT ** 

820 FOR 3=1 TO r 

830 IF cS(3)=£S THEN 
840 NEXT 3 


LET fo=3 





















Que problemas 
com laços múltiplos? 

Definir uma matriz permite exercitar 
seus conhecimentos sobre os coman- 
dos FOR...NEXT e IF...THEN (tente 
contar quantos desses comandos exis- 
tem nos programas a; resentados aq 
você logo vai perceber que eles são 
muitos). Porém, a parte mais difícil da 
programação de matrizes diz respeito 
ao uso de laços FOR...NEXT múltiplos, 
ou “aninhados”” (isto é, um dentro do 
outro). Com efeito, é nessa parte que 
os iniciantes, e mesmo os programado- 
res experientes, mais se confundem. 

Examine as linhas dos programas do 
artigo. Elas são responsáveis pela lei- 
tura dos dados armazenados nas linhas 
DATA. 

Cada linha de DATA corresponde a 
uma linha da matriz de dados, de modo 
que o FOR...NEXT que controla a leitu- 
ra das linhas deve vir antes (laço mais 
externo). Se a linha de DATA contivesse 
os elementos de uma coluna da matriz, 
teriamos que usar como FOR...NEXT 
externo aquele que lê as colunas. 

por isso que o conjunto é dimen- 
sionado como N (L,C), em vez de N (C, 
L). A ordem dos índices de linha e co- 
luna no comando DIM não é muito im 
portante, desde que você os faça 
corresponder aos laços FOR...NEXT. 

Os cabeçalhos para as linhas e co- 
lunas devem ser definidos separada- 
mente, para facilitar a compreensão. 


podem ocorrer 






































EA 5 E 


850 IF fo=0 THEN PRINT '""NOM 
E NAO ENCONTRADO. TENTE OUTRA V 
EZ”: GOTO 800 

860 FOR 3=1 TO c 


870 IF n(fo,3)>0 THEN PRINT n 


(£o,9):;” ";pS(5) 

875 NEXT 3 

880 PRINT ''” PRESSIONE QUALQU 
ER TECLA PARA RETORNAR” 

885 PAUSE O 

890 RETURN 


TT 


799 REM 444 OPCAO 4 444 

800 PRINTTAB(2);"DIGITE O NOME 
DE UMA CRIANÇA” 

805 PRINT"LISTA DE TODOS OS ANI 
MAIS QUE PERTENCEM A "; 

810 INPUT FS 

815 PRINT:PRINT 

820 FORJ=ITOR 

830 IFCHS(J)=FSTHENFO=J 

840 NEXT 

850 IF FO=OTHENPRINT:PRINT"NOME 
NÃO ACHADO. TENTE NOVAMENTE!” : 
GoTO800 

860 FORJ=ITOC 

870 IFN(FO,J)>OTHENPRINTN(FO,J) 


5" ";PETS(J) 

875 NEXT 

880 PRINT:PRINT"PRESSIONE QUALQ 
UER TECLA PARA RETORNAR”; 

885 IFINKEYS=""THENB8S 

890 RETURN 

799 REM *** OPCAO 4 *** 

800 PRINT TAB( 5);"DIGITE O N 


OME DE UMA CRIANCA” 


805 PRINT "LISTA DE TODOS OS A 
NIMAIS QUE PERTENCEM A "; 

810 INPUT FS 

815 PRINT PRINT 

820 FORJ = 1 TOR 

830 IF CHS(J) = FS THEN FO = J 
840 NEXT 

850 IF FO = O THEN PRINT ; PR 
INT "NOME NAO ENCONTRADO. TENTE 


NOVAMENTE!": GOTO 800 


B60 FORJ = 1 TOC 

870 IF N(FO,J) > O THEN PRINT 
N(FO,J);” ";PETS(J) 

875 NEXT 

880 PRINT : PRINT "PRESSIONE Q 
UALQUER TECLA PARA RETORNAR” ; 
885 GET AS 

890 RETURN 


A opção 5 pede que você entre um 
número e imprime a lista de pessoas que 
têm no mínimo esse número de animais. 
Ela também informa quantos animais 
cada pessoa tem. 

Digite então a próxima sub-rotina da 
seguinte forma: 


899 REM ** OPCAO 5 *x 









900 PRINT '” DIGITE UM NUMERO 
PARA LISTAR TODOS OS QUE TE 
M AO MENOS ESTE NUMERO DE ANI 
MAIS” 

910 INPUT à 

915 PRINT '* 

920 FOR 3=1 TO r 

930 LET p(3)=p(3)+n(3,k) 

935 NEXT k 

940 LET p(5)=0 

945 LET p(5)=0 

950 NEXT 3 

955 IF fo=0 THEN PRINT '*"NIN 
GUEM TEM TANTOS ANIMAIS !” 

960 PRINT ''” PRESSIONE QUALQU 
ER TECLA PARA RETORNAR” 

970 PAUSE O 

980 RETURN 


Pau 


899 REM 444 OPCAO 5 44t 

900 PRINT"DIGITE UM NUMERO PARA 
LISTAR TODOS QUE TEM AO MENOS 
ESTE NÚMERO DE ANIMAIS"; 

910 INPUTA 

915 PRINT:PRINT 

920 FORJ=1TOR 

925 FORK=1TOC 

930 PT(J)=PT(J)+N(J,K) 

935 NEXTK 

940 IFPT(J)>=ATHENPRINTCHS (J);" 
";PT(J):FO=1 

945 PT(J)=0 

950 NEXTJ 

955 IFFO=OTHENPRINT: PRINT"NINGU 
EM TEM TANTOS ANIMAIS!” 

960 PRINT:PRINT”PRESSIONE QUALQ 
VER TECLA PARA RETORNAR” 

970 IF INKEYS=""THEN970 

980 RETURN 


[eb Lc5] 


899 REM *** OPCAO 5 *** 
900 PRINT "DIGITE UM NUMERO PA 
RA LISTAR TODOS QUE TEM AO MENO 
S ESTE NUMERO DE ANIMAIS”; 


910 INPUT A 

915 PRINT PRINT 

920 FORJ = 1 TOR 

925 FORK = 1 TOC 

930 PT(J) = PT(J) + N(J,K) 

935 NEXT K 

940 IF A< = PT(J) THEN PRIN 
T CH$(J);” ";PT(J):FO = 1 

945 PT(J) = O 

950 NEXT 

955 IF FO = O THEN PRINT : PR 
INT "NINGUEM TEM TANTOS ANIMAIS 
1” 

960 PRINT PRINT "PRESSIONE Q 
UALQUER TECLA PARA RETORNAR” ; 
970 GET AS 

980 RETURN 


Antes de comparar o número que vo- 
cê imprimiu com os totais para cada 
criança, o computador precisa calcular 
esses totais. As linhas 920 e 925 definem 
os laços que percorrem as linhas e colu- 
nas da matriz, enquanto a linha 930 cal- 











cula o total de animais em cada linha. 
Os totais são armazenados em um con- 
junto chamado PT(), ou p(), no Spec- 
trum. Se o total de cada linha for maior 
ou igual ao número que você entrou, o 
nome da criança será exibido na tela, 
juntamente com o número de animais 
que ela possui. 

Assim que o nome de alguém for im- 
presso, o indicador FOUND (ou seja, 
achado, em inglês) será igualado a 1. Se 
FOUND ainda for igual a O quando o 
computador atingir a linha 955, isso sig- 
nifica que nenhuma criança tem aquele 
número de animais que você solicitou, 
e o programa lhe dará essa informação 
por meio de mensagem. 

A última opção — de número 6 — 
mostra a matriz na tela 

Como é difícil encaixar todos os no- 
mes dos animais de estimação no topo 
da tabela, o programa imprime núme- 
ros de referência, em vez de palavras. Em 
compensação, ele imprime os nomes dos 
proprietários. 


999 REM ** OPCAO 6 ** 





1000 PRINT '"CRIANCAS”,"ANIMAIS 
1010 PRINT 'TAB 9; 
1015 FOR 3=1 TO c 


1020 PRINT 3;" "; 

1025 NEXT 3: PRINT 

1030 FOR 3=1 TO r 

1035 PRINT 'cS(J);TAB 9; 

1040 FOR k=1 TO c 

1050 PRINT n(3,k);” *; 

1060 NEXT k 

1065 NEXT 3 

1070 PRINT **'” PRESSIONE QUALQU 


ER TECLA PARA 
1080 PAUSE O 
1090 RETURN 


mun! 


999 REM$44 OPCAO 6 444 

1000 PRINT €32,"CRIANCAS”,"ANIM 
AIS” 

1010 PRINT €72,; 

1015 FOR J=1 TO € 

1020 PRINT J 

1025 NEXT:PRINT 

1030 FOR J=1 TO R 

1035 PRINT:PRINT CHS(J) TAB(B); 
1040 FOR K=1 TO € 

1050 PRINT N(J,k); 

1060 NEXT K,J 

1070 PRINT:PRINT:PRINT " PRESSI 
ONE QUALQUER TECLA PARA RETOR 
NAR” 

1080 IF INKEYS="" THEN 1080 
1090 RETURN 


[ÉS] 


999 REM 


RETORNAR” 


**x* OPCAO 6 *4% 








1000 PRINT “CRIANCAS”,"ANIMAIS 


1010 HTAB 15 

1015 FORJ=1 TOC 

1020 PRINT J;” *; 

1025 NEXT PRINT 

1030 FORJ = 1 TOR 

1035 PRINT PRINT CH$S(J); TAB 
(15); 

1040 FORK = 1 TOC 

1050 PRINT N(J,K);" "; 

1060 NEXT : NEXT 

1070 PRINT : PRINT PRINT "PR 


ESSIONE QUALQUER TECLA PARA RET 
ORNAR” ; 

1080 GET A$ 

1090 RETURN 


sy 


999 REM 444 OPCAO 6 44 

1000 PRINT"CRIANÇAS”,"ANIMAIS” 
1010 LOCATE 15 

1015 FORJ=1TOC 

1020 PRINTJ; 

1025 NEXT:PRINT 

1030 FORJ=1ITOR 

1035 PRINT:PRINTCHS (J); TAB(15); 
1040 FORK=1TOC 

1050 PRINTN(J,K); 

1060 NEXT:NEXT 

1070 PRINT:PRINT:PRINT"PRESSION 
E QUALQUER TECLA PARA RETORNAR” 


1080 IFINKEYS=""THEN1080 
1090 RETURN 





Uma matriz usada dessa forma é cha- 
mada de base de dados. É possivel criar 
bases de dados para os mais diversos 
fins: para um levantamento da vida ani- 
mal, por exemplo. Numa pesquisa des- 
se gênero, a base de dados mostraria o 
número de certos animais, assim como 
o tipo de habitat onde eles são encon- 
trados. As linhas da matriz indicariam 
os tipos de animais, e as colunas, os ha- 
bitats. Em seguida, os dados poderiam 
ser examinados para verificar a distri- 
buição dos animais em determinadas re- 
giões ou épocas do ano. 

A base de dados pode ser aplicada 
também em levantamentos de tráfego 
em estradas: para verificar, por exem- 
plo, que tipos de carros passam por ca- 
da seção de uma rodovia. Ela se presta 
ainda para aplicação no campo da nu- 
trição. Assim, a matriz conteria os da- 
dos de cada tipo de alimento, com rela- 
ção ao seu conteúdo de proteinas, gor- 
duras, carboidratos e calorias. Com 
uma matriz desse tipo, seria fácil impri- 
mir todos os alimentos que apresentas- 
sem uma certa quantidade de proteinas, 
ou tantas calorias, ou que oferecessem 
certas combinações de elementos. 

















COMO USAR A DECLARAÇÃO REM 

Não basta que o programa em BA 
SIC esteja correto ou passe por todos 
os testes: é preciso ainda que ele es- 
teja hem documentado e estruturado 
de forma lógica e clara. 

Para evitar confusões por parte do 
usuário e mesmo do programador na 
compreensão do que foi digitado, 
costuma-se utilizar um mecanismo co 
nhecido como documentação interna 
do programa, Este identifica, por meio 
de títulos e comentários colocados na 
listagem, as diversas partes do progra 
ma. Isso é feito pelo comando REM, 
que é umaabreviatura da palavra REM: 
ark (comentário, em inglês). O REM 
não é uma declaração executável (ou 
seja, ao encontrá-la em um programa, 
o computador simplesmente a ignora 
e passa adiante) 

Uma das funções do REM consiste 
em identificar o programa, prestando 
informações (chamadas cabeçalho) co 
mo: para que serve, para que máquina 
ele está destinado, quem o escreveu, 
quando etc. Eis um exemplo: 


JO REM) =====sosatnaronsanançies 
15 REM PROGRAMA CREPE 
25 REM Simular o J09o de crepe 
30 REM VERSÃO: LDATA:20/02/1986 
35 REM NOME P/ GRAVACAO: CREPOI 
40 REM 
45 REM COMPUTADOR: TK-90X 
50 REM MEMORIA NECESSARIA:16 K 
55 REM PROGRAMADO POR: RENATO 
SABBATINI 
60 REM -— 
A colocação de cabeçalhos como 
esse evita muitos dissabores. 
Outra função do REM é informar pa 
ra que servem certas partes do progra 
ma. Por exemplo: 


J50 ABR meo em a ond it: 

355 REM TESTA SE NUMERO DE NA 
VES=ZERO 

360 REM SE E', TERMINA O PRO- 
GRAMA 

65 "DEM ="esena ma sore mecenas 

370 IF NAVES=0 THEN GOTO 999 


O ideal seria colocar um comentá- 
rio para cada linha do programa. Isso 
pode ser feito facilmente nos micros 
que aceitem comandos múltiplos por 
linha: 


500 GOSUB 890 
CALCULO 

O emprego de comentários é simpli- 
ficado, em vários micros, pelo apóstro- 
fo ('), usado como abreviatura do 
comando REM: 


04» 








:REM SUBR. 


Isto é um comentário 








COMO PLANEJAR 
UMA AVENTURA 


Os jogos de aventura são uma boa al- 
ternativa para quem está cansado dos 
arcaicos videogames e fliperamas. Neles, 
o jogador é totalmente envolvido por 
um mundo fantástico, criado unicamen- 
te pela imaginação do programador. 


Rea o DITAS 


A idéia de criar jogos de aventura 
surgiu da popularidade, nos EUA e na 
Grã-Bretanha, dos jogos de ação não- 
computadorizados, tais como Masmor- 
ras e Dragões e, ao mesmo tempo, do 
desejo de se utilizar os computadores 
para fazer coisas mais interessantes do 
que processar dados. 

Por outro lado, os jogos não-compu- 
tadorizados não atendiam plenamente à 
demanda do público, que exigia emo- 
ções cada vez mais fortes. Essa deman- 
da só foi satisfeita pelos jogos de aven- 
turas programados para o computador, 

Em Masmorras e Dragões os jogado- 
res assumem o papel de certos persona- 
gens, que lutam encarniçadamente (na 
imaginação) num lugar conhecido como 
Masmorra. Esse lugar, por sua vez, é 
criado por outro jogador, que faz o pa- 
pel do Senhor da Masmorra, Nos jogos 
de aventura, o programador vive um 
personagem parecido com este, poden- 
do inventar, assim, seu próprio mundo. 

Ao contrário de outros jogos, em 
Masmorras e Dragões os jogadores não 
podem escolher as características de seus 
personagens; isso depende inteiramente 
do jogo. Em algumas versões mais sofis- 
ticadas, os jogadores podem selecionar o 
equipamento e os mantimentos que os 
personagens vão usar, desde que isso se- 
Ja feito no início do jogo, antes de co- 
meçar a aventura. O primeiro jogo de 
aventura destinado a computadores foi 
escrito para máquinas de grande porte, 
em linguagem FORTRAN, e não em BA- 
SIC, O programa ocupou aproximada- 
mente 300k de memória, ou sé bem 
mais do que a memória RAM total da 
maioria dos micros pessoais. Apesar do 
seu tamanho e complexidade, esse jogo 
conquistou milhares de usuários de com- 
putadores nos Estados Unidos e no Ca- 
nadá; eles passaram a dedicar suas noi- 
tes a tentar decifrar os mistérios do jogo. 


Na realidade, a popularização dos jo- 
gos de aventura começou quando um jo- 
vem programador chamado Scott 
Adams desenvolveu, em 1978, um jogo 
para microcomputador TRS-80 e 
provou que era possível escre- 
ver uma aventura raz 
vel em um espaço de 
memória bem menor. Desde então, os 
temas de jogos adotados por Adams — 
A Terra da Aventura, O Refúgio do 
Pirata, O Mistério do Parque de 
Diversões etc. — têm sido usa- 
dos e recusados inúmeras vezes 
pelos escritores de outros jogos. É 


US RUAS US 


Como as aventuras para grandes 
computadores, os jogos de Adam: 
apresentavam somente textos na tela. 
Na verdade, os programas que usam 
apenas textos são ainda os mais popu- 
lares, 

Existem ainda inúmeros jogos de 
aventura para computadores que utili- 
zam ilustrações desenhadas na tela pa- 


muito sofisticados, para poder compe- 
tir com a imaginação do jogador. Por 
exemplo, você poderia conceber um 
monstro bem mais horripilante do que 
seria capaz de reproduzir, mesmo nas te- 
las gráficas mais avançadas. Portanto, 
é bem possível que os gráficos “'estra- 
guem” sua diversão: o principal argu- 
mento contra a sua utilização é que eles 
desperdiçam grande parte da memória, 
que poderia ser usada para expandir o 
campo da aventura. Certas aventuras 
apresentam uma contagem de pontos, 
sempre que uma etapa da busca é com- 
pletada. Desse modo, o jogador pode 
avaliar seu desempenho, caso tenha si- 
do derrotado em algum estágio. Alguns 
programas chegam ao ponto de classi- 
ficar esse desempenho com conceitos, 
que podem ir de “palhaço” a “perito”. 

Outros jogos não fornecem qualquer 
dica de como o jogador está se saindo 
ou da proximidade do desfecho. 

Seja qual for o caso, porém, a diver- 
são maior está na solução de uma série 
aparentemente infinita de charadas, de- 


Sair da rotina e fazer da vida uma 
aventura errante: quantos 
de nós já não sonhamos com isso? Veja 


como fazer essa mudança, vivi 
aventuras incríveis... no computador. 


pois da qual a aventura chega ao fim. 
Alguns costumam durar muitas horas, 
ou dias, podendo ser interrompidos e re- 
tomados a qualquer momento. 


DES 


Normalmente, quando se inicia uma 
aventura através do comando RUN, são 





dadas informações sobre o mundo em 
que se acaba de entrar: este pode ser um 
lugar exótico na Terra, um planeta dis- 
tante, ou um local imaginário. O jogo 
pode acontecer em épocas diversas. 

ralmente, são fornecidas informações 
como: quem governa o lugar; quem é 
você e como fazer para atingir o objeti- 
vo e ganhar o jogo. Depois disso, apa- 
recerá uma primeira descrição do local, 


provavelmente dizendo algo como: 


VOCÊ SE ENCONTRA PRÓXIMO A UM 
ENORME CALDEIRÃO CHEIO DE UM 
LIQUIDO VERDE BORBULHANTE. HA 
UM CHEIRO DEMONIACO NO AR. UMA 
COLHER ESTA NO CHÃO. 

VOCÊ PODE IR PARA O LESTE 
OESTE 
NORTE 
E AGORA? 


JOGOS DE AVENTURA 

COMO JOGAR 

DICAS PARA VENCER OS 
PERIGOS DE UM JOGO 

COMO CRIAR UMA AVENTURA 

































Agora, você tem que decidir o que fa- 
zer. Será conveniente usar a colher pa- 
ra misturar o líquido ou mesmo experi- 
mentá-lo? Não seria melhor deixar isso 
de lado? Ou talvez fosse preferível pro- 
curar um recipiente para levar um pou- 
co do líquido verde com você? 

Se decidir usar a colher, digite algo 
assim: PEGUE COLHER; a resposta do 
computador será: OK ou VOCÊ AIN- 
DA NÃO PODE PEGAR A CO- 
LHER!, ou alguma outra mensagem. 

Em cada etapa do jogo você deve in- 
formar ao computador exatamente o 
que pretende fazer. A forma de fazer is- 
so dependerá apenas do tipo de jogo. A 
maioria deles espera você digitar seus 
comandos no computador através de 
um verbo seguido de substantivo; por 
exemplo: PEGUE COLHER. 

Jogos mais sofisticados aceitam sen- 


tenças completas, mas isso é uma exce- 
ção à regra. Esses tipos de jogos permi- 
tem-lhe dizer algo como: MATE O I" 
SETO PISANDO NELE ENQUANTO 
CANTA “O TICO-TICO NO FUBA”. 

A maioria dos jogos de aventura con- 
segue entender abreviaturas das palavras 
válidas. Por exemplo, é muito comum, 
numa aventura, digitar N em vez de 
NORTE. As direções podem ser pontos 
cardeais — N, S, Le O — ou colaterais 
— SE, SO, NE e NO —, ou instruções 
como PARA CIMA, PARA BAIXO. 

Um jogo típico de aventura é basea- 
do numa grade de locais possíveis, que 
assume geralmente a forma de um qua- 
drado. Dependendo da imaginação do 
programador, esses lugares podem re- 
presentar ambientes tão variados como 
os quartos de um castelo, os subterrã- 
neos de uma mina etc. 





DEUS 


Habitualmente, existe apenas uma 
solução para a aventura: por exemplo, 
encontrar um pote de ouro e levá-lo pa- 
ra o fim do arco-íris, ou matar um guer- 
reiro medieval e escapar ileso etc. Até 
chegar a esse objetivo, o jogador preci- 
sa resolver toda uma série de problemas. 
O mais provável é que ele tenha que fa- 
zer muitas tentativas diferentes até con- 
cluir a aventura. 

Existem algumas regras básicas e di- 
cas que o ajudarão a resolver mais ra- 
pidamente a maioria dos jogos. Quase 
todos os objetos que você encontrar nas 
aventuras serão de alguma utilidade. A 
existência de muitas pistas completa- 
mente falsas representa um desperdício 
de memória, embora seja necessário es- 

















tar sempre atento para alguns objetos 
que podem ser ““facas de dois gumes”. 
Por exemplo, o jogador poderia estar 
carregando uma sacola com moedas de 
ouro para passar pelo pedágio de uma 
ponte; caso ele se decidisse a nadar no 
rio, porém, o peso delas o faria afun- 
dar. Como regra geral, é aconselhável 
tentar carregar o maior número possivel 
de objetos, mas algumas vezes apenas 
uma parte deles lhe será realmente útil. 

Quase sempre, a maioria dos objetos 
é usada somente uma vez durante uma 
aventura. Mas há exceções: uma espa- 
da, por exemplo, poderia ser usada mui- 
tas vezes para derrubar gigantes, dra- 
gões ou bandidos. Dessa forma, se vo- 
cê for obrigado a limitar o número de 
objetos que leva consigo, deve ter em 
mente que é mais seguro descartar os 
que já foram usados uma vez. 

Outra regra geral: desenhe sempre 
um mapa, marcando nele os nomes dos 
aposentos, a posição dos sentinelas e dos 
objetos distribuídos pelos quartos, to- 
das as entradas e saídas com suas dire- 
ções e outros pontos de referência que 
lhe possam ser úteis. 

O mapa o fará economizar tempo e 
esforço quando você estiver retornando 
para algum ponto anterior — manobra 
que você repetirá várias vezes durante 
o jogo. Se tiver que abandonar algum 
objeto, por não poder carregar tudo, 
não se esqueça de marcar a posição de- 
le no mapa. A importância do mapa es- 
tá em que ele lhe permitirá ter certeza 
de que explorou todas as possibilidades 
da aventura — o que, em muitos casos, 
salvará sua “vida” 

Certos jogos permitem que você pe- 
ça um inventário do que está carregan- 
do. Assim, quando estiver diante de 
uma charada, procure saber exatamen- 
te o que tem em mãos, digitando IN- 
VENTÁRIO, LISTA, ou algo seme- 
Ihante, dependendo da aventura. 

Há jogos, ainda, que dão ao jogador 
a possibilidade de pedir ajuda. A forma 
de fazê-lo varia, mais uma vez, confor- 
me o conteúdo da aventura. Freqiuente- 
mente, porém, você obterá algo assim, 
em resposta ao seu pedido: 
NENHUMA AJUDA POSSÍVEL. 

Alguns jogos seguem cuidadosamen- 
te o enredo de um livro específico (por 
exemplo, A Ilha do Tesouro, escrito em 
1833 por Robert Louis Stevenson). Nes- 
tes casos, é altamente recomendável ler 
o livro em questão. 

Outros jogos inspiram-se apenas em 
alguns capítulos ou idéias de um roman- 
ce famoso. Assim, se você encontrar nu- 
ma aventura algum elemento que o fa- 
ça recordar um texto literário e tiver di- 
ficuldades para resolver um determina- 














do problema, tente encontrar a respos- 
ta consultando o livro. Um dicionário 
de sinônimos pode ser de grande utili- 
dade, permitindo que o jogador explo- 
re todas as variações possíveis de uma 
determinada frase. Por exemplo: o pro- 
gramador pode ter usado no jogo a pa- 
lavra POLIR, em vez de LUSTRAR. 

Uma última dica: se o jogo permitir 
o uso do comando GRAVAR em algu- 
mas etapas, e você estiver prestes a en- 
frentar um grande perigo, então arma- 
zene a aventura no estágio em que ela 
se encontra, antes de dar o passo deci- 





sivo, pois, se você for “morto”, poderá 
voltar atrás e continuar a partir do pon- 
to em que parou. 


[o AA US 


A criação de aventuras é uma boa 
maneira de dominar a linguagem BA- 
SIC. Quase todos os aspectos importan- 





















































tes dessa linguagem são utilizados nes- 
se tipo de jogo: variáveis, matrizes, for- 
matos de telas, cadeias alfanuméricas, 
comandos IF, e assim por diante. 

Muitos jogos de aventuras à venda 
ainda são escritos em BASIC, pois não 
há muita necessidade de velocidade de 
execução do programa. 

Antes de programar um jogo desse 
gênero, você precisa ter uma idéia bem 
clara do que pretende fazer e do enredo 
da aventura. A seguir, planeje cuidado- 
samente a trama com suas charadas, pe- 
rigos, objetos etc. 

Para começar, pegue uma folha de 
papel e faça um rascunho de algumas 
idéias. Não se preocupe se ainda não 
tem uma visão completa da ordem do 
jogo: o que você precisa inicialmente é 
de uma noção do roteiro, do local da 
aventura e de algumas charadas para o 
jogador resolver. 








Quanto espaço de memória neces: 
to para escrever um jogo de aventura? 

Nas próximas lições de INPUT de 
senvolveremos uma aventura simples, 
ocupando cerca de 5K de BASIC. Co- 
mo todo primeiro passo, esse jogo não 
trará episódios de grande emoção. Seu 
objetivo é apenas introduzi-lo ao mun- 
do fascinante da aventura, 

Os melhores jogos têm um grande 
número de aposentos e charadas e são 
muito difíceis, devido ao efeito cres- 
cente de problemas cada vez mais 
complicados. Com uma quantidade li- 
mitada de memória, você será forçado 
a determinar um número menor de pro 
blemas, que por sua vez serão mais di- 
fíceis do que o normal. Isso, contudo, 
não é muito satisfatório. 

Um jogo como esse exige um com- 
putador com, no mínimo, 16K de me- 
mória; mas sugerimos uma máquina 
com 48 ou 64K para jogos realmente 
desafiantes. 





O que devo fazer se cair numa ar- 
madilha durante a aventura? 

Não desista; tentenovamente quan- 
do tiver uma nova idéia ou estratégia. 

Se você realmente empacar, os jo- 
gos de aventuras comercializados ofe- 
recem um folheto com dicas e respos- 
tas. Muitas vezes, é preciso solicitar 
pelo correio um mapa da solução. 

Outro recurso para ajudá-lo são as 
revistas do gênero, que costumam 
apontar a solução completa de aven- 
turas complexas. 








Além de livros, você pode inspirar- 
se em filmes, programas de TV e peças 
teatrais, ou mesmo inventar novas his- 
tórias. Pode também buscar idéias em 
outras aventuras. Mas o melhor recur- 
so para sua inspiração é fazer trabalhar 
a imaginação. 

Ao mesmo tempo, procure alcançar 
um certo equilíbrio entre o desafio e as 
condições para vencê-lo. Não é conve- 
niente criar uma aventura que qualquer 
um poderia resolver no espaço de meia 
hora. Em contrapartida, seu jogo não 
deve apresentar problemas insolúveis. A 
regra básica é: “dê aos jogadores uma 
chance”... mas não exagere. 

Tente não deixar muitos aposentos 
ou locais vazios. Além de ocupar muito 
espaço de memória, estes não contri- 
buem para a resolução dos problemas 
e tornam o enredo cansativo. 

Por outro lado, procure evitar que as 
suas primeiras aventuras sejam excessi- 
vamente complexas, para que os proble- 
mas que aparecem ao longo da história 
possam ser resolvidos por quem ainda 
não tem prática; familiarize-se com o te- 
ma antes de aventurar-se em qualquer 
enredo extravagante; mantenha-se alerta 
quanto ao espaço restante de memória, 
pois programas como esses tendem a se 
tornar gigantescos. 

No jogo de aventura que será elabo- 
rado nas próximas partes do curso de 
Programação de jogos, encontraremos 
muitas declarações REM (comentários, 
para entender o fluxo do programa). 
Entretanto, para economizar memória 
em jogos com longas aventuras, é pre- 
ferível trabalhar sem tais declarações, 
mesmo que no começo elas facilitem a 
criação da trama. 

Você poderá também poupar espaço 
de memória na descrição dos aposentos. 
Descrições muito curtas, porém, tendem 
a estragar todo o prazer suscitado pela 
aventura. 


SAR 


Ao escrever um longo jogo de aven- 
tura, é fácil descobrir quando se está 
chegando ao limite de memória do com- 
putador. Obviamente, os problemas de 
desperdício de memória tornam-se mais 
graves no caso de máquinas com memó- 
rias menores (na verdade, seria perda de 
tempo tentar escrever um programa de 
aventura em um computador que tenha 
menos do que 16K de RAM). 


Digite a seguinte linha, em modo 
direto: 

















PRINT (PEEK 23730 + 256% PEEK 
23731) - (PEEK 23653 + 256% 
PEEK 23654) 

O que foi digitado leva em conside- 
ração tanto o espaço ocupado pelo pro- 
grama como o usado para armazenar as 
variáveis. A melhor contagem para des- 
cobrir a quantidade de memória restante 
só será possível, portanto, depois que o 
programa tiver sido rodado. 

Para saber quanto espaço está so- 
brando, subtraia esse valor da quanti- 
dade total de memória RAM existente 
no computador. 


Nos microcomputadores das linhas 
TRS-80 e TRS-Color, o que resta da me- 
mória pode ser descoberto digitando-se: 


PRINT MEM 


Essa instrução levará em conta o espaço 
ocupado pelo programa e pelas variáveis. 
Assim, é melhor rodar antes o programa, 
durante seu desenvolvimento (se isso for 
possível), a fim de conseguir uma indica- 
ção real do total de memória usado por ele. 

Para saber quanto espaço está sobran- 
do, subtraia esse valor da quantidade to- 
tal de memória RAM existente no com- 
putador. Há uma maneira bem fácil de 
se aumentar o espaço livre de memória 
no TRS-Color para seus programas em 
BASIC. Antes de começar a programar, 
digite esses dois comandos POKE: 


POKE 25,6 
POKE 26,1 
NEW 


Isso economizará uns 6K extras para 
seu programa, pois enganará o compu- 
tador, colocando o programa em BASIC 
dentro de um espaço normalmente reser- 
vado para gráficos de alta resolução. 

Neste caso os comandos POKE ex- 
cluem os comandos para gráficos na sua 
aventura. Se eles existirem, O seu pro- 
grama será alterado. 

Quando você armazenar o programa 
em fita ou disco e quiser carregá-lo mais 
tarde, não se esqueça de usar antes os 
comandos POKE e NEW, 


Lab Icó sy 


Nos microcomputadores das linhas 
Apple e MSX, o que resta da memória 
pode ser descoberto digitando-se: 


PRINT FRE(O) 


A função FRE (abreviatura de FREe, 
ou livre, em inglês) retorna o espaço li- 
vre na memória RAM, ou seja, aquele 
não ocupado pelo programa e pelas va- 
náveis. 












Agora que você já sabe traduzir do 
Assembly para o sistema hexa, 
passe a operar com código de máquina. 


Os programas em Assembly apresen- 
tados a seguir deslocam a tela um carac- 
tere para a esquerda ou para a direita, 
Monte-os na memória do micro usando 
seu programa monitor. Se você quiser 
gravar programas para uso futuro, c 
que-os em locais diferentes da memó 

Os programas funcionam indepen- 
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dentemente de suas posições na memó- 
ria, de forma que você mesmo pode re- 
solver onde é melhor colocá-los. Para 
deslocar a tela mais de uma posição no 
sentido horizontal, chame a rotina em 
código de máquina de dentro de um la- 
ço FOR...NEXT, Outra opção é deslo- 
car a tela somente quando certa et é 
pressionada, usando INKEY$ ou GE 


Este programa desloca a tela para a 
esquerda (já está traduzido). 








nm EXERCÍCIO EM ASSEMBLY 
MH UMPROGRAMA QUE DESLOCA À 
TELA PARA OS LADOS 

ME COMOFUNCIONA O PROGRAMA 
EM DIVERSOS COMPUTADORES 


ld de,16384 11 
ld h1,16385 21 01 40 
ld b,192 06 co 
loop push bc cs 
1d a, (de) 1A 
ld bc,31 01 1F 00 
Idir ED BO 
ld(de),a 12 
inc de 13 
inc h1 23 
pop bc cl 
djnz loop 10 F3 
ret c9 


Os comandos Id de, 16384 e ld hi, |, 
16385 carregam os endereços das duas 


ATENÇÃO... 
SENTIDO! 
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primeiras posições da tela do Spectrum 
nos registros DE e HL. Já ld b,192 
transporta o registro B com o número 
192 (há 192 linhas na tela desse micro, 
e B é usado para contá-las). 

Como o registro B será usado para 
contar outras coisas também, seu con- 
teúdo ficará temporariamente armaze- 
nado na pilha (stack). Todavia, nenhum 
comando transfere apenas o conteúdo 
de B para a pilha: assim, temos que fa- 
zer essa transferência com o conteúdo de 
BeC ao mesmo tempo usando push be. 

O acumulador é então carregado com 
o conteúdo da posição de memória cu- 
jo endereço está no registro DE, pelo co- 
mando Id a (DE). Este é um exemplo de 
endereçamento indireto. Lembre-se de 
que o conteúdo de DE é 16384. 

O comando Id be, 31 carrega os re- 
gistros BC com o número 31, Cada li- 
nha tem 32 caracteres, mas a transferên- 








cia do primeiro caractere para a última 
posição da linha é feita independente- 
mente. Assim, basta contar até 31. 

A instrução mais poderosa aqui uti- 
lizada é Idir, que significa “carregar, so- 
mar um e repetir” (=/oad, increment 
and repeat). Compreender o que ela faz 
é crucial para o entendimento do progra- 
ma: o conteúdo da posição de memória 
cujo endereço está em HL — inicialmen- 
te, 16385 — é transferido para a posição 
cujo endereço está em DE — inicialmen- 
te, 16384. A seguir, deve-se somar 1 aos 
conteúdos de HL e DE, subtrair 1 do con- 
teúdo de BC e verificar se o conteúdo de 
BC foi reduzido a 0. Enquanto isso não 
acontecer a instrução será repetida 

O que estava na segunda posição do 
vídeo passa então para a primeira; o que 
estava na terceira posição vai para a se- 
gunda, e assim até que termine a primei- 
ra linha do vídeo, o que acontece quan- 

















do o registro de BC é reduzido a 0. A 
última transferência é a da 32º posição, 
que passa para a 31º, Nessa altura, o 
conteúdo de BC é subtraído de 1 e se 
torna 0, e o programa passa para a ins- 
trução seguinte. 

O conteúdo do acumulador é trans- 
ferido por Id (de), a para a posição cu- 
jo endereço está em DE. O acumulador 
contém o código do caractere que ocu- 
pava a primeira posição da memória de 
vídeo: 16384, endereço que estava em 
DE antes de Idir começar a incrementar 
esse registro. 

Esse processo de somar 1 ao conteú- 
do de DE foi executado sucessivamente 
desde então, e agora DE contém o en- 
dereço da última posição da primeira li- 
nha. Este é justamente o local para on- 
de desejamos transferir o caractere que 
estava no início da linha. 

Os comandos inc hl e inc de somam 
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1 aos registros HL e DE, de forma que 
estes passam a conter os endereços das 
duas primeiras posições da linha seguin- 
te. Como o conteúdo da primeira posi- 
ção é transferido para o final da linha, 
independentemente de Idir, devemos in- 
crementar o valor desses registros da 
mesma forma. 

O antigo conteúdo de BC é recupe- 
rado da pilha pelo comando pop be. O 
comando djnz subtrai 1 ao valor de B 
e “pula” sucessivamente para outros lo- 
cais do programa, até que esse valor se 
iguale a O (= decrement and jump if not 
zero). No início do programa, carrega- 





mos o registro B com 192. Esse valor fi- 
ca armazenado temporariamente na pi- 
lha para liberar o uso de BC, O coman- 
do djnz subtrai 1 a esse valor, que pas- 
sa a ser 191 (valor diferente de 0). As- 
sim, a instrução volta para a primeira 
ocorrência do rótulo loop. 


Esse salto continua a ocorrer enquan- 
to o conteúdo de B vai sendo reduzido 
de 192 até chegar a 0, O fato de esse va- 
lor ser transferido. temporariamente pa- 
ra a pilha não altera o funcionamento das 
coisas. Desta forma, uma linha é deslo- 
cada de cada vez. Quando B finalmente 
contém o valor 0, após a última subtra- 
ção feita por djnz, não ocorre salto, e o 
programa passa a instrução seguinte. 
O comando ret significa retorne. Ne- 
nhuma rotina em código de máquina 
funcionará direito sem uma instrução 
desse tipo no final. O microprocessador 
tentará executar qualquer coisa que es- 
teja após os códigos de seu programa. 
O conteúdo dessa parte da memória ge- 
ralmente não faz sentido, e o mais co- 
mum é a perda de controle do compu- 
tador e do conteúdo da memória. 
Mesmo quando isso não ocorre, o 
microprocessador continua lendo e ten- 
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tando executar tudo o que encontra até 
o final da memória. Chegando lá, ele re- 
torna ao início da memória onde encon- 
tra as rotinas de inicialização do BASIC. 
Estas são executadas e a memória se 
apaga. 

Tente traduzir para código de máqui- 
na e introduzir em seu micro a seguinte 
rotina Assembly. 


ld de,22527 

ld n1,22526 

ld b,192 
loop push bc 

1d a, (de) 

ld bc,31 

lddr 

ld(de),a 

dec h1 

dec de 

pop bc 

djnz loop 

ret 
















Esse programa começa pelo final da 
memória de vídeo e vai transferindo os 
conteúdos das linhas ““de trás para a 
frente”. A diferença entre ele e o ante- 
rior é o uso da instrução Iddr, que trans- 
fere o caractere da posição cujo ende- 
reço está em HL para a posição de en- 
dereço em DE, subtraindo 1 aos conteú- 
dos de HL, DE e BC e repetindo o pro- 
cesso até que o valor em BC seja redu- 
zido a 0. O comando lddr transfere blo- 
cos de memória em sentido contrário a 
Idir. 

O salto é do mesmo tamanho que no 
programa anterior. Verifique se calcu- 
lou seu valor corretamente, olhando a 
listagem (conte os bytes a partir do fi- 
nal da instrução de salto, ou seja, in- 
cluindo o byte cujo valor está sendo cal- 
culado). 





O programa a seguir desloca a tela 
para a esquerda no ZX-81 com expan- 
são de memória. Ele já está traduzido 
do Assembly para código de máquina. 


LD DE, (16396) ED SB 0C 40 
13 


INC DE 
LD H,D 62 
LD L,E 6B 
INC H,L 23 
LD B,24 06 18 
LOOP PUSH BC cs 
LD A, (DE) 1A 
LD BC,31 01 IF 00 
LDIR ED BO 
LD(DE).A 12 
INC HL 23 
INC HL 23 
INC DE 13 
INC DE 13 
POP BC ci 
DJNZ LOOP 10 F1 
RET c9 
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A memória de vídeo do ZX-81 não 
tem posição fixa; as posições 16396 e 
16397 contêm o endereço da primeira 
posição do video. A instrução LDDE, 
(= 16396) carrega os registros D e E com 
os valores contidos em 16396 e 16397 — 
o conteúdo de 16396 vai para E, e o ou- 
tro vai para D, seguindo a convenção 
““baixo-alto"* do Z-80. Agora, o progra- 
ma sabe onde está a memória de vídeo. 

Esse micro conta com um caractere 
de retorno de carro (NEW LINE) no ini- 
cio de cada linha que não aparece na te- 
la. Sua função é economizar o espaço 
ocupado pelo vídeo. Se a tela estiver va- 
zia, a memória usada pelo vídeo corres- 
ponderá aos 24 caracteres NEW LINE, 
que marcam onde cada linha deve 


começar 


INY 


DEY 
DEY 





BNE 001 
STA(LFB)y LDY&! 
LDA F 
STAÉFE 
CPYHFRFF LDASF 
avg 








Quando é usada uma expansão, es- 
ses caracteres ficam no final de cada li- 
nha. Não devemos interferir nessa or- 
ganização. 

Tal organização é responsável pelas 
diferenças entre os programas do ZX-81 
e os do Spectrum (leia com atenção a 
descrição do programa do Spectrum), 

O primeiro caractere do vídeo é um 
NEW LINE. Como não devemos alterá- 
lo, a instrução INC DE soma 1 ao con- 
teúdo de DE, que se torna então o en- 
dereço da segunda posição do vídeo. 

As instruções LD H,D e LD L,E co- 
piam o conteúdo do par DE no par de 
registros HL. INC HL soma 1 a HL, 
que passa a conter o endereço da tercei- 
ra posição do vídeo. LD B,24 carrega o 
registro B com o número de linhas da 
tela do ZX-81. O restante do programa 
funciona de maneira idêntica à do Spec- 
trum. A única diferença é o número de 








comandos INC HL e INC DE que, no 
ZX-81, somam 1 a esses registros. Isso 
é feito uma vez para mover o programa 
para a linha seguinte e uma segunda vez 
para evitar interferências da linha. 

Agora, tente obter os códigos hexa- 
decimais correspondentes ao seguinte 
programa em Assembly, que desloca a 
tela para a direita. 


LD HL, (16396) 
LD DE,790 
ADD HL,DE 
LD D,H 

LD E,L 
INC DE 
LD B,24 
PUSH BC 
LD A, (DE) 
LD BC,31 
LDDR 
LD(DE) ,A 
DEC HL 
DEC HL 


Loop 








DEC DE 
DEC DE 
POP BC 
DJNZ LOOP 
RET 


Esse exemplo é parecido com o se- 
gundo programa apresentado para o 
Spectrum. As diferenças entre eles são 
as mesmas que encontramos antes 


RR 


A organização da memória de vídeo 
do MSX é bem diferente da que existe em 
outras máquinas. Esse computador uti- 
liza um microprocessador diferente da 
CPU para controlar a tela, dispondo de 
16K que não estão na RAM para utili- 
zar como memória de vídeo. Desta for- 
ma, essa porção da memória é tratada co- 
mo dispositivo periférico, e o acesso a ela 
não é tão fácil quanto o acesso à RAM. 














Isso significa que não podemos usar 
o comando Id para colocar ou ler um ca- 
ractere na memória de vídeo. O coman- 
do Assembly utilizado para enviar da- 
dos a um dispositivo periférico é o out. 

Quando a memória de vídeo de um 
computador está na RAM, podemos fa- 
cilmente situar um caractere em qual- 
quer posição vertical ou horizontal. Se 
a tela for tratada como um dispositivo 
periférico, contudo, a instrução out sim- 
plesmente colocará os caracteres na mes- 
ma ordem em que forem enviados, a 
partir da posição do cursor. 

Temos, então, dois problemas: para 
controlar a posição do cursor, neces: 
tamos de sub-rotinas da ROM; além dis- 
so, os 16K da memória de vídeo têm 
uma organização complicada, que varia 
conforme o tipo de tela selecionada, per- 
mitindo a exibição de caracteres, cores 
e sprites. 

Enquanto não aprendemos como 
funcionam as sub-rotinas da ROM e a 
organização da memória de vídeo, va- 
mos usar um artifício que dê ao MSX 
uma “memória de vídeo” na RAM, cu- 
jo acesso é bem mais fácil. Isso é feito 
pelas duas rotinas que se seguem. 

A primeira copia os 960 caracteres da 
tela de textos de 40 colunas, no topo da 
memória, onde esta é manipulada de 
maneira semelhante à dos outros mi- 
cros. A segunda copia os caracteres da 
*''memória de vídeo" da RAM para a 
verdadeira memória de vídeo do MSX, 
que é um dispositivo periférico. 

Embora todas as rotinas apresenta- 
das funcionem independentemente de 
sua localização na memória, daremos 
exemplos utilizando endereços. 

Proteja o topo da memória do MSX 
para colocar os programas e a “memó- 
ria de vídeo” (=use CLEAR 200, 
&HDFFF). 








20 F9 
cs 


àrnz, loop 
ret 


Para fazê-las funcionar, digite ainda 
o seguinte programa em BASIC: 


1000 
1005 
1007 
1010 
1020 
1030 
1040 
1050 
1060 
1080 


SCREEN O 

DEF USRI=-8192 

DEF USR3=-8155 

FOR I=0 TO 960 

VPOKE BASE (0)+I,RND(1)*256 
NEXT 1 

VPOKE BASE(0),32:X=USRI(0) 
CLS:FOR I=1 TO 1000:NEXT I 
VPOKE BASE(0),32:X=USR3(0) 
Goto 1080 


Os possíveis erros podem ser corrigi- 
dos por meio do monitor. Para possibi- 
litar isso, o programa em BASIC come- 
ça na linha 1000, acima do monitor. Se 
não apagarmos o programa monitor, 
poderemos rodar o novo programa com 
RUN 1000. 

As duas rotinas fornecidas devem ser 
chamadas de um programa em BASIC. 
São especialmente importantes os co- 
mandos VPOKE das linhas 1020 e 1040, 
que posicionam o cursor no início da te- 
la para que ela possa ser lida pela roti- 
na USRI e escrita pela rotina USR2. 

Agora, você pode montar a rotina de 
deslocamento horizontal propriamente 
dita. Ela é parecida com as rotinas dos 
outros micros que usam o Z-80. Não 
apague as duas rotinas anteriores. Uti- 
lize o endereço inicial — 8112. 


11 01 
21 02 
06 







loop 






01 27 


ED 















memória de vídeo. Todo dispositivo pe- 


riférico tem um número desse tipo. 

Escolhemos os endereços de — 7936 
a — 6976 (57600 a 58560; o computador 
não reconhece inteiros acima de 32768 
em código de máquina) para colocarmos 
a nossa '“'memória de video” na RAM. 
Assim, O primeiro endereço dessa me- 
mória é colocado no registro HL por 
Idhl, — 7936. 

O valor 4 é colocado no acumulador 
pelo comando ld a,4. O mesmo é feito 
com 240 no registro B, por Id b,240. A 
e B funcionam como contadores. 

A instrução inir é a mais importante 
do programa. Ela coloca o valor lido na 
porta cujo número está em C na posi- 
ção de memória cujo endereço está em 
HL, A seguir, a mesma instrução soma 
1 ao conteúdo de HL e subtrai 1 a B. 
Se o conteúdo de B não for 0, todo o 
processo será repetido (input, increment 
and repeat). Quando o conteúdo de B 
se torna 0, o programa passa à instru- 
ção seguinte. 

A instrução dec a subtrai 1 ao valor 
em A. Se, após essa operação, o conteú- 
do de A for diferente de O, jrnz desvia- 
rá o curso do programa para a primeira 
ocorrência do rótulo loop ( jump re- 
lative if not zero). Isso fará com que o 
processo de ler 240 caracteres na porta 
152 seja repetido. Caso o valor em A se- 
ja reduzido a zero, o salto não ocorre- 
rá, e o programa passará então à instru- 
ção seguinte, 

O comando ret faz com que a rotina 
retorne ao BASIC. 

Em resumo, esse programa transfere 
os primeiros 960 caracteres da tela, a 
partir da posição do cursor. 

Ele faz isto repetindo quatro vezes a 
leitura e transferência de 240 caracteres 
(4x 240=960). 

A segunda rotina é essencialmente 
igual à primeira; apenas, trocamos o co- 


ga inii r outir (=0) 
men, 


















5 as diferenças são os.end 
iciais da memória de vídeo (- 
4); q número de linhas da 
gro de caracteres por 





máquina. Para rodá-lo, serão necessárias 
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as rotinas iniciais, bem como um progra- 
ma em BASIC. 


ld de,-6976 

ld h1,-6977 

ld b,24 
loop push bc 

ld a, (de) 

ld bc,39 

lddr 

ld (de),a 

dec h1 

dec de 

pop bc 

dijnz loop 

ret 





O TRS-80 já vem com um monitor. 
Se seu sistema não tem unidade de disco, 
responda N à pergunta inicial do compu- 
tador: BASIC (S/N)? Entramos, assim, 
no monitor. Para aprender os comandos 
especificos, consulte seu manual. 

Caso seu sistema tenha unidade de 
disco, pressione simultaneamente 
BREAK c RESET, liberando a última te- 
cla primeiro. Desse modo, o sistema se 
comportará como se não houvesse uni- 
dade de disco. 

O programa montado com o moni- 
tor permanecerá na memória, não sen- 
do apagado nem pelo DOS nem pela te- 
cla RESET, nem pelo BASIC, se for da- 
da uma resposta adequada à pergunta 
“Memória Usada?” (resposta adequada 
é um endereço inferior ao do programa 
montado). 

A rotina que se segue desloca a tela 
um caractere para a esquerda. 


ld de,15360 11 00 3€ 
ld h1,15361 21 01 3c 
ld b,16 06 10 
loop push bc cs 


1A 










ld a, (de) 
ld 63 






a direita. 


so, a instrução soma | à 


ld de,16383 

ld h1,16382 

ld b,16 
loop push bc 

ld a, (de) 

1d bc,63 

lddr 

ld (de),a 

dec h1 

dec de 

pop bc 

dinz loop 

ret 


Dirija-se à seção do Spectrum para 
comentários. 





Este programa desloca a tela para a 
esquerda. Já foi traduzido do Assembly 
para linguagem de máquina. Ele não 
funciona em sistemas com disquete. 


LDX41024 BE 04 00 
LOOP LDB,X+ E6 80 
PSHS B 34 04 
LDB431 c6 1F 
JUMP LDA,X+ A6 80 
STA-2,X A7 1E 
DECB SA 
BNE JUMP 26 F9 
PULS B 35 04 
STB-1,X E? 1F 
CMPX41536 8Bc 06 00 
BLO LOOP 25 EA 
RTS 39 





A memória de video do computador 
começa no endereço 1024; assim, LDX 
4+ 1024 carrega este valor no registro X. 
LDB,X + carrega o acumulador B com 
o conteúdo da posição de memória cu- 
jo enua está em X. A seguir, soma 


ro. PSHB q 


depois que o 
para a esquerda. 
O comando 


novamente. 
STA — 2,X armazena o conteúdo de A 





no endereço situado duas posições an- 
tes do conteúdo de X. Isso fica uma po- 
sição à esquerda de onde esse caractere 
foi retirado, já que X foi incrementado 
depois. 

A instrução DECB subtrai 1 ao con- 
teúdo de B, diminuindo esse valor de 31 
até O. Essa operação afeta o sinalizador 
0 (ou flag zero), de forma que um resul- 
tado O em qualquer operação estabelece 
esse sinalizador. BNE verifica se o sina- 
lizador foi estabelecido. Caso isto não te- 
nha ocorrido, o curso do programa so- 
frerá um desvio. JUMP é o rótulo (la- 
bel), de forma que o programa salta até 
a instrução LDA,X + e desloca para a 
esquerda o caractere seguinte, até chegar 
ao final da linha. Quando isso aconte- 
ce, DECB reduz o conteúdo do registro 
Baco sinalizador é estabelecido. Ago- 
ra, o salto não ocorre mais, e O progra- 
ma passa à instrução seguinte a BNE. 

O comando PULS B recupera o va- 
lor no topo da pilha, colocando-o em B. 
STB-1,X faz com que o conteúdo de 
B seja armazenado uma posição atrás do 
endereço em X. Esta é a última posição 
da linha; o primeiro caractere é então re- 
cuperado da pilha. Assim, a linha é to- 
da deslocada para a esquerda, e seu fi- 
nal passa a ser ocupado pelo primeiro 
caractere. 

Ainstrução CMPX*1536 compara o 
endereço em X com 1536, que é o últi- 
mo endereço da memória de vídeo. BLO 
desviará o programa se o conteúdo de 
X for menor que 1536 (Branch if LOwer 
than). Loop é o rótulo, de forma que, se 
o programa não deslocar toda a tela, 
chegando ao seu endereço final, o pro- 
grama saltará para a instrução LDB,X + 
e começará a deslocar a linha seguinte. 

Se o registro X contiver 1536, o pro- 
grama terá deslocado toda a tela, e a ins- 
trução eguiito será executada. 












CMPX41024 
BGT LOOP 
RTS 


Este programa trabalha no sentido in- 
verso ao anterior, começando pelo fim 
da memória de vídeo (1536). Ele deslo- 
ca as linhas da tela para a direita, até 
chegar ao endereço 1024. Na realidade, 
1536 é uma posição posterior ao final da 
tela, mas o pós-byte, —X, subtrai | ao 
conteúdo do registro X após a execução 
da instrução LDX. Assim, se LDB, -X 
carregar B com o conteúdo da ú! a 
posição da tela, o programa deverá co- 
meçar com um endereço que está uma 
posição na frente, dentro do registro X. 

Com exceção desse detalhe, o progra- 
ma funciona de maneira idêntica ao an- 
terior (confira o tamanho dos saltos que 
calcular, consultando a listagem). 


O Apple II já vem com um monitor. 
Para entrar, digite CALL — 151. Os co- 
mandos específicos estão no manual do 
computador. Para usar as rotinas em 
seus programas BASIC, basta acionar o 
comando CALL N, onde N é o endere- 
ço inicial da rotina em código. A orga- 
nização da memória de vídeo do Apple 
1 abriga duas páginas de vídeo com di- 
ferentes modos de utilização, além de 
uma página de texto. A maior compli- 
cação, porém, é a diferença na ordem em 
que as linhas de texto ou de pontos são 
representadas na tela e na memória. A 
segunda linha de texto na tela, por exem- 
plo, não é o segundo conjunto de 40 
bytes da memória de vídeo. 

Assim, para não tornar muito com- 
plicado este primeiro programa em As- 
sembly para o Apple II, fizemos com 
que ele deslocasse para a esquerda so- 
mente a primeira linha de vídeo. 

Este programa não funcionará no 
TK-2000. Todavia, os usuários desse mi- 
cro não precisam aprender a montar pro- 
gramas a mão, uma vez que dispõem do 
mini-Assembler. Use o endereço inicial 
hexa 320 (800 em decimal). 





LDA 4500 A9 00 
STA SFB 85 FB 
LDA 4504 A9 04 
STA SFÇ 8s Fc 
LDA 4500 A9 00 
STA SFE 85 FE 
LDY 4500 AO 00 
LDA (SFB),Y Bl FB 
STA $SFD 85 FD 
LDY 4501 Ao 01 
LOOP LDA (SFB),Y Bl FB 
DEY ss 
STA (SFB),Y 91 FB 
INY cs 
INY cs 


cpy 4528 co 28 
BNE LOOP DO FS 
LDY 4527 AO 27 
LDA SFD AS FD 
STA (SEB),Y 91 FB 
RET so 

Use ainda este programa em BASIC: 

5 HOME 

10 FORI = 1 TO 40 

20 VTAB 1: PRINT CHR$ (64 + I 

30 NEXT 


FOR I = 1 TO 1000 
50 CALL 800 

NEXT 

70 coro 70 


RA] 


O comando LDA *S$00 carrega O no 
acumulador, e STA SFB coloca esse va- 
lor no endereço 0020. Analogamente, 
LDA *$04 e STA $FC colocam 04 em 
00FC. Não há um comando único que 
armazene valores diretamente na 
memória. 

O endereço da primeira posição da 
memória de vídeo do Apple é 0400 (em 
hexa). 00FB e 00FC são posições da pá- 
gina O da memória. As posições dessa 
página requerem somente um byte no 
seu endereçamento. LDA *$00 e STA 
SFE colocam O em 00FE, posição que 
será usada como contador. 

A instrução LDY *S$00 carrega o 
registro-índice Y com o deslocamento 
(ou seja, 0, pois o programa tem que co- 
meçar no início da tela), LDA (FB), Y 
carrega o acumulador com o conteúdo 
da posição de memória cujo endereço 
está em 00FB e 00FC, mais um desloca- 
mento provocado pelo número que está 
em Y. 00FB e 00FC apontam para a po- 
sição 0400, início da tela de textos. As- 
sim, essa instrução posiciona o primei- 
ro caractere no acumulador. STA $FD 
o coloca na posição 00FD. 

A seguir, LDY +S0lcarrega o registro 
Y com 1. LDA (SFB)Y carrega o acu- 
mulador com o conteúdo da posição de 
endereço dado por 00FB e 00FC, mais 
um deslocamento provocado por Y. Des- 
ta vez, contudo, Y contém | em vez de 
0. Assim, essa instrução põe no acumu- 
lador o caractere da posição 0401. 

A instrução DEY subtrai | ao regis- 
tro Y, e STA (SFB) Y coloca o caractere 
cujo código está em A na posição dada 
por 00FB e 00FC, mais o deslocamento 
em Y. Como Y foi diminuído de 1 nesse 
processo, ele tem como resultado a trans- 
ferência de cada caractere para uma po- 
sição à esquerda. 

O registro Y tem 1 duas vezes soma- 
do ao seu conteúdo por intermédio da 





repetição do comando INY, apontando 
assim para a próxima posição da tela 
CPY &$28compara o conteúdo de Y com 
28 em hexa, ou 40 em decimal, que é o 
total de caracteres por linha. BNE 
LOOP verifica o sinalizador 0. Se ele 
não for estabelecido, o microprocessa- 
dor voltará para o endereço rotulado por 
LOOP e continuará de lá. 

O comando BNE envia o programa 
de volta a LOOP até que Y acabe de con- 
tar de O a 40, movendo os caracteres da 
linha para a esquerda. Quando o con- 
teúdo de Y chega a 40, a condição de 
BNE não é satisfeita e o microprocessa- 
dor continua na instrução seguinte. 

A instrução LDY 4$27carrega Y com 
27 hexa, ou 39 decimal. LDA $FD car- 
rega o acumulador com o conteúdo da 
posição de memória 00FD. 

Já o comando STA ($FB),Y coloca o 
conteúdo do acumulador no endereço 
dado por 00FB e 00FC, mais o desloca- 
mento em Y, Ele posiciona o primeiro 
caractere da linha na posição 0427, que 
é a última da primeira linha de texto. 

A instrução RTS diz ao microproces- 
sador para voltar ao BASIC. Qualquer 
rotina em linguagem de máquina tem 
que terminar com RTS, caso contrário 
o microprocessador seguirá memória 
afora, tentando executar qualquer coisa 
que houver no caminho. O programa se- 
guinte desloca a primeira linha de vídeo 
para a direita. Tente calcular os códigos 
correspondentes. 


LDA 4500 
STA SFB 
LDA 4504 
STA SFC 
LDA 4500 
STA SFE 
LDY 4527 
LDA (SFB),Y 
STA SFD 
LDY 4526 
LDA (SFB),Y 
INY 
STA 
DEY 
DEY 
cry 
BNE 
LDY 
LDA 
STA 
RET 


Este programa opera da mesma for- 
ma que o anterior, exceto que somamos 
onde subtraímos e vice-versa, para que 
o deslocamento seja feito no sentido 
inverso. 

Os saltos são do mesmo tamanho, de 
forma que os valores calculados podem 
ser verificados na outra listagem (o sal- 
to inclui o final da instrução BNE, ou 
seja,o byte que contém seu tamanho). 


LOOP 
(SFB), Y 


+sEF 
LOOP 
+500 
SFD 
(SFB), Y 





A estruturação de um programa é uma 
técnica que facilita a compreensão de 
seu funcionamento e permite tornar 
mais eficiente e simples sua operação. 
Aprenda a utilizá-la em BASIC. 


O interpretador BASIC padrão, dis- 
ponível na maioria dos micros, é simples 
de usar, mas possui poucas estruturas de 
programação, o que dificulta a elabo- 
ração de programas estruturados. 

As estruturas são “blocos de constru- 
ção” da lógica de um programa, e são 
utilizadas para proporcionar-lhe uma 
forma coerente e de fácil compreensão. 
No BASIC padrão, as principais estru- 
turas de programação lógica são repre- 
sentadas pelas declarações IF... THEN, 
FOR...NEXT, GOTO e GOSUB. Já vi- 
mos como empregar individualmente a 
maioria delas; examinaremos agora co- 
mo colocá-las juntas de uma maneira le- 
gível e ordenada. 

Em programas curtos, a estruturação 
não é uma questão muito importante. 
O problema aparece quando se preten= 
de elaborar um programa longo ecom- 
plexo, do ponto de vista lógico (desvios). 
Nesse caso, se você escrever uma parte 
do programa e depois acrescentar mais, 
e mais coisas a ele, provavelmente acaé 
bará se perdendo. 

Para evitar que isso aconteça, habi= 
tue-se a projetar detalhadamente seu 


1. Sistema de indexação 
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acessíveis por meio da utilização de uma 






























O QUE É PROGRAMAÇÃO 
ESTRUTURADA? 

OS FLUXOGRAMAS 
COMO ESTRUTURAR 
PROGRAMAS EM BASIC 





programa, antes de começar a digitá-lo. 3, Série de módulos 
Comece por escrever o que pretende que 
o computador faça, de um modo bem 


geral, Por exemplo: 


7 


Sistema de indexação 


O programa tem por objetivo proces- 
sar em memória registros que poderão 
ser criados, atualizados, apagados, clas- 
sificados e listados. Os registros serão 













2. Módulo simples 
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palavra-chave. Todo o conjunto de re- 
gistros poderá ser armazenado e carre- 
gado em um arquivo. 


Este primeiro passo é conhecido co- 
mo especificação do sistema. O passo se- 
guinte consistirá em dividir as especifi- 
cações gerais, acima, em etapas lógicas 
oumódulos.Estes,por sua vez, também te- 
rão suas funções especificadas de manei- 
ra geral. As operações envolvidas em ca- 
da módulo provavelmente serão muito 
complicadas; assim, divida-as em seções 
sucessivamente menores, até obter mó- 
dulos tão pequenos que possam ser tra- 
tados de forma simples. A figura 1 mos- 
tra como isso pode ser feito para o nos- 
so sistema de indexação. 

Cada uma das seções (ou módulos) 
menores não deverá ter, em extensão, 
mais do que uma página de programa, 
ou seja, cerca de 60 linhas. O ideal, po- 
rém, será limitá-las à metade des- 
te tamanho. Eventualmente, 
elas terminarão constituindo 
sub-rotinas do seu pro- 
grama. 

Esse método de 
subdividir um pro- 
blema é conhecido 
como modelo de 
cima para baixo 
(top-down). Comes 
ça-se do alto (ou 
seja, da deserição 
geral do programa) e avan- 
ça-se até embaixo (isto é, o 
nível mais baixo de módu- 
los). Até aqui, entretanto, o 
programador ainda não de- 
cidiu em que ordem os mó- 
dulos serão executados. 
Esta será à próxima etapa. 


[oe RO] 


A ordem (ou lógica) de execução dos 
módulos de um programa pode ser es- 
pecificada por meio dos diagramas de 
blocos ou fluxogramas. O uso destes 
permite que se ordene o programa de 
uma maneira bem estruturada e clara. 
Para isto, basta seguir um conjunto sim- 
ples de regras. 

A figura 2 mostra como especificar 
um módulo. O programa acompanha as 
linhas na direção das flechas e os retân- 
gulos descrevem o que acontece em ca- 
da estágio. Se quiser executar uma série 
de módulos em sequência, acrescente 
mais retângulos na ordem correta, en- 
tre o início e o fim (veja a figura 3). 

Um fluxograma como este é ideal pa- 
ra um programa no qual nenhuma de- 
cisão é tomada. No entanto, o poder do 





Declaração 1 





computador reside exatamente em sua 
habilidade de fazer escolhas. A familiar 
declaração IF... THEN é a estrutura 
mais frequentemente utilizada para isso, 
na linguagem BASIC. Vamos agora exa- 
minar sua representação e a de outros 
tipos de estrutura em um fluxograma. 























VERDADEIRA 


LS 


Embora os diversos computadores 
utilizem de maneira diferente a declara- 
ção IF... THEN... ELSE, ela é sempre a 
base da tomada de decisões dentro de 
um programa. Representada no flu- 
xograma por um losango (veja figu- 
ra 4), esta declaração é escrita em 
BASIC da seguinte maneira: 


100 IF condição THEN 
declaração 1 ELSE 
declaração 2. 










Ou seja: se a condição for 
verdadeira, será executada a 
declaração 1; caso contrário, 
a declaração 2. 

Note que, no fluxograma, 
só há um ponto de saída para 
a estrutura IF...THEN...EL- 
SE. De fato, cada seção de có- 
digo deve ter apenas uma en- 
trada e uma saída. Esta regra, 












muito importante para a programação 
estruturada, auxilia bastante a testar e 
a eliminar as falhas. 

Nem todas as versões em BASIC, po- 
rém, possuem a partícula ELSE — ela 
não está disponível, por exemplo, nos 
computadores Spectrum, ZX-81, Apple 
ou TK-2000. Nesses casos, para evitar 
que a estrutura passe a ter mais de uma 
saída, o ELSE pode ser simulado 
utilizando-se o GOTO: 

100 ... 

110 IF condição THEN GOTO 140 
120 declaração 2 

130 coro 150 

140 declaração 1 

150 


É claro que os números das linhas 
mão precisam ser iguais aos do exemplo. 
Além disso, pode-se incluir mais de uma 
declaração nas partículas THEN e EL- 
SE.Veja, a seguir, uma seção de progra- 
a e classificar dois números den- 
tro de determinada ordem. Ela consti- 
fuia base para uma rotina de classifica- 
ção alfabética que será dada adiante. No 
Caso específico, a partícula ELSE pos- 
sui quatro declarações: 


Zoo IF primeiro<=segundo 
Goro 160 

LET temporario=primeiro 
LET primeiro=segundo 
LET segundo=temporario 
LET ordemS="errado” 


THEN 


110 
120 
130 
140 

































5. IF... THEN 











150 GOTO 170 
160 LET ordem$="certo” 
270: == 


Esta seção também pode ser escrita 
utilizando-se o ELSE, mas ele deverá es- 
tar totalmente contido em apenas uma 
linha. As declarações múltiplas serão 
permitidas desde que estejam separadas 


por dois pontos: 

100 IF primeiro>segundo THEN 
temporario=primeiro : 
primeiro=segundo: segundo= 


temporario:ordem$="errado” 
ELSE ordem$="certo” 

Não é fácil ler ou entender programas 
que utilizam declarações longas como 
esta — assim, sempre que possível, deve- 
se evitá-las. 

Finalmente, em alguns casos, não se- 
rá necessário usar partícula ELSE. O 
fluxograma se parecerá com o da figu- 
ra 5 e será redigido desta maneira: 


100 IF 

ção. 
que é, simplesmente, a própria declara- 
ção IF... THEN 


STA 


É possível embutir uma linha TF. 
THEN...ELSE dentro de outra declaração 
IE. THEN...ELSE. Ou seja, a conseguên- 
cia de um THEN ou de um ELSE tam- 
bém poderá ser um outro IF, e assim por 
diante. É o caso da seção de programa 
abaixo, que executa a contagem de quan- 
tas partidas dois jogadores ganharam e 
imprime os resultados após cada jogo: 


condição THEN declara- 


100 
110 
120 
130 
140 
150 
160 


IF TI<>T2 THEN GOTO 130 
PRINT"EMPATOU!” 

Goto 190 

IF TI<T2 THEN GOTO 170 
PRINT"O JOGADOR 1 GANHA” 
LET Pl=Pl+1 

coro 190 

170 PRINT"O JOGADOR 2 GANHA” 
180 LET P2=P2+1 

190 ... 


Todas as estruturas podem ser embu- 
tidas em qualquer combinação e, na teo- 
ria, em qualquer profundidade. No en- 
tanto, quanto mais você as embute, me- 
nos legível se torna o programa; assim, 
é razoável estabelecer um limite de pro- 
fundidade de três ou quatro estruturas. 
Se precisar embutir mais estruturas, sub- 
divida o programa em módulos ou sub- 
rotinas menores. 

Examinando o último programa, vo- 
cê observará que é difícil acompanhá-lo, 
ainda que esteja perfeitamente estrutu- 
rado. Uma maneira prática de tornar 
mais legíveis as declarações embutidas é 
recuar (indentar) as linhas do programa. 
Isso só é viável nos computadores das li- 
nhas TRS-80, TRS-Color, Spectrum e 
MSX; neles, você poderá reescrever o úl- 
timo programa da forma que se segue: 


100 IF TI<>T2 THEN GOTO 130 

110 PRINT"EMPATOU!” 

120 goto 190 

130 IF TI<T2 THEN GOTO 170 

140 PRINT"O JOGADOR 1 GANHA” 
150 LET Pl=Pl+1 

160 GoTO 190 

170 PRINT"O JOGADOR 2 GANHA” 
180 LET P2=P2+1 

190 Y 
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6. Laço WHILE...DO 












A introdução de linhas em branco em 
diferentes seções e a utilização de decla- 
rações REM constituem outras manei- 
ras de tornar mais clara a estrutura de 
um programa. Para entrar as linhas em 
branco nos computadores Spectrum, 
basta digitar o número da linha seguida 
de um espaço e, em seguida, pressionar 
<ENTER> ou <RETURN>. Ao es- 
crever programas no TRS-80, TRS- 
Color ou MSX, você poderá obter um 
efeito semelhante digitando um apóstro- 
fo ('), ao invés de dar o espaço. 


Outra declaração importante em pro- 
gramação estruturada é a WHILE...DO, 
que permite a repetição em um progra- 
ma e é um dos recursos mais úteis para 
se criar um laço. Esta declaração diz ao 
computador que faça (DO) repetida- 
mente uma coisa enquanto (WHILE) 
uma certa condição for verdadeira. Se 
seu computador não possui as palavras 
WHILE e DO, você pode inventar uma 
estrutura que faça a mesma coisa, utili- 
zando IF... THEN e GOTO. A redação, 
em BASIC, é a seguinte (veja o fluxo- 
grama correspondente na figura 6): 


100 ... 

110 IF NOT condição THEN GOTO 
140 

120 declaração 

130 GoTo 110 

240 so. 


Note que a linha 100 lê a condição IF 
NOT..., ou seja, verifica se a condição 
não é verdadeira, O procedimento é 
oposto do normal, ao qual você está 
acostumado, mas não tem problema, Se 
a condição for A=B então NOT ( A=B), 
será equivalente a A< >B. Do mesmo 
modo, NOT (A <B) será A> =B e assim 
por diante. Na verdade, você poderá es- 
crever NOT (A=B) se quiser, e o com- 
putador entenderá o que você quer dizer. 

Eis aqui o exemplo de um programa 
curto (para cronometrar O cozimento de 
um ovo) que utiliza um laço WHILE: 


5 CLS 
10 PRINT AT 3,11;"CONTADOR” 
20 INPUT "Quantos minutos voc 
e quer?",t 

30 PRINT AT 7,5;"Pressione qu 


alquer tecla para come 
car” 

40 PAUSE O 

50 CLS 

60 PRINT FLASH 1;AT 10,10;" 
TEMPO” 


70 POKE 23672,0: POKE 23673,0 











80 LET time=PEEK 23672+256* 
PEEK 23673: IF time>t*50*60 
THEN GOTO 110 

90 PRINT AT 14,10;INT (time/ 
50);” segundos” 

100 goto 80 

105 REM fim do loop WHILE 

110 PRINT FLASH 1;AT 14,10;" 
TERMINADO! *” 

120 SOUND .5,20 


sy 













E TEMPO” 
UTOS VOCÊ QUER" ;T 


. Escolhas múltiplas 


30 PRINT:PRINT” 
PRESSIONE QU 
ALQUER TECLA 
PARA COMEÇAR” ; 
40 IF INKEYS- 
"ºTHEN 40 


70 TIME=O 
75 REM COMEÇA O LOOP WHILE 


105 REM FIM DO LOOP WHILE 


NTO!” 
120 BEEP 


5 cLs 
10 PRINT €43,"CONTADOR” 
15 LET ES=CHRS(27) 


INUTOS VOCE QUER ?";T 


ER TECLA PARA COMECAR” 
40 AS=INKEYS:IF AS= 
40 

50 CLS 

60 PRINT 6238," TEMPO” 

70 TIMER = O 

75 REM COMECO DO LACO “WHILE” 





5 CLS 
10 LOCATE 10,3:PRINT"CONTADOR D 
20 LOCATE 0,6: INPUT"QUANTOS MIN 


LAS 













50 CLS 
60 LOCATE 10,13: PRINT"CONTANDO. 


80 IF TIME>T*3600 THEN GOTO 110 
90 LOCATE 12,17:PRINTINT(TIME/6 


110 LOCATE 10,19:PRINTTESTA PRO 


20 PRINT €129,;: INPUT"QUANTOS M 
30 PRINT €196,"PRESSIONE QUALQU 


THEN GOTO 


80 IF TIMER>T*3000 THEN GOTO 11 
o 


90 PRINT 6298, INT(TIMER/50) ;"SE 
GUNDOS” 

100 goto 80 

105 REM FIM DO LACO “WHILE” 

110 PRINT €364,"TERMINADO!” 

120 SOUND 180,3 















Normalmente, as estruturas IF... 
THEN e WHILE...DO são suficientes 
para a maioria dos programas. No en- 
tanto, existem algumas estruturas adi- 
cionais que tornam a programação mais 
fácil. Por exemplo, muitos programas 
apresentam mais de dois cursos de ação 
possíveis para um pontodeterminado 
Isso poderia ser resolvido com o empre 
go de IF... THEN embutidos; é mai: 
conveniente, porém, utilizar a es- 
trutura CASE (caso) — como é 
conhecida. Ela classifica cada 
opção em ordem e direciona 
o computador a uma série de 
cursos de ação possíveis. À 
grande maioria dos inter- 
pretadores BASIC exis- 
tentes para micros não 
inclui a declaração CA- 
SE, mas ela pode ser 
simulada por outros 
comandos padrão. 

O fluxograma 
para uma estru- 
tura CASE é 
mostrado na fi- 
gura 7 e, em BA- 
SIC, um progra- 
ma típico seria: 










100 REM COMANDO CASE 

110 IF C$="C” THEN GOTO 170 

120 IF C$="M” THEN GOTO 190 

130 IF CS="A” THEN GOTO 210 

140 IF C$="L” THEN GOTO 230 
150 PRINT "comando nao reconhec 
ido” 

160 goTo 240 

170 PRINT "CRIAR REGISTRO” :GOSU 
B 1000 

180 GoTo 240 

190 PRINT "MODIFICAR REGISTRO” : 
GOSUB 2000 

200 GoTO 240 

210 PRINT "APAGAR REGISTRO” :GOS 
UB 3000 

220 Goto 240 

230 PRINT "LISTAR REGISTROS” :GO 
SUB 4000 

240 REM FIM DO CASE 





Pode-se também fazer múltiplas es- 
colhas por meio das declarações 
ON...GOTO e ON...GOSUB. Entretan- 
to, quando utilizar ON...GOTO, veri- 
fique se cada uma das opções direciona 
você ao final da seção. Na sub-rotina 
abaixo, por exemplo, foi necessário usar 
um GOTO 1210 após cada opção, para 
direcionar o programa para o fim da ro- 
tina. Com uma declaração CASE tal 
procedimento seria desnecessário. 


1000 REM SUBROTINA PARA POLIGON 


1010 INPUT"QUANTOS LADOS VOCE Q 
VER?" ;N 
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1020 ON N-2 GOTO 1060,1100,1140 
+1160,1180,1200 

1030 PRINT "EU NAO SEI O NOME D 
E um” 

1040 PRINT"POLIGONO COM ";N;" L 
ADOS.” 

1050 GoTo 1210 

1060 PRINT "E UM TRIANGULO.” 
1070 PRINT "UM TRIANGULO COM OS 





LADOS IGUAIS CHAMA-SE” 

1080 PRINT "TRIANGULO EQUILATER 
0.” 

1090 GOTO 1210 

1100 PRINT "E UM QUADRILATERO.” 
1110 PRINT "UM QUADRILATERO COM 
os LADOS” 

1120 PRINT "E ANGULOS IGUAIS CH 
AMA-SE QUADRADO.” 

1130 GoTo 1210 

1140 PRINT "E UM PENTAGONO.” 
1150 GoTO 1210 

1160 PRINT “E UM HEXAGONO.” 
1170 GOTO 1210 

1180 PRINT "E UM HEPTAGONO.* 
1190 GoTO 1210 

1200 PRINT "E UM OCTOGONO.” 
1210 PRINT 

1220 RETURN 


Como se trata de uma sub-rotina, vo- 
cê ainda não poderá rodá-la. O progra- 
ma para chamar a rotina será dado na 
próxima seção. 


SAT PR 


A declaração REPEAT... UNTIL 
também é uma estrutura muito útil pa- 
ra fazer o programa repetir um grupo 
de comandos (se seu computador não 
possui esses comandos, poderá simulá- 
los por meio de outros). Nesse caso, ao 
contrário do WHILE...DO, o laço sem- 
pre é executado pelo menos uma vez. 
Veja o símbolo correspondente no flu- 
















110 declaração 
120 IF NOT condição THEN GOTO 
110 

300 

Utilizando a sub-rotina do último 
exemplo, você poderá escrever um pro- 
grama utilizando um laço do tipo RE- 
PEAT, como o seguinte: 


10 PRINT "VOU DIZER OS NOMES” 
20 PRINT "DE ALGUNS POLIGONOS.” 
30 REM COMECO DO LACO 

40 GOSUB 1000 

50 INPUT "VOCE QUER OUTRO NOME 
7º;as 

60 IF LEFTS(AS,1)="S” THEN GOTO 
30 


70 PRINT "TCHAU !”:END 


A linha 1000 é a sub-rotina de poli- 
gono dada na seção anterior. 


E PAi 


Talvez você não tenha percebido, 
mas o familiar laço FOR... NEXT é ape- 
nas um caso especial do laço WHILE... 
DO. Ele pode ser utilizado quando se 
conhece antecipadamente o número de 
vezes que o laço deverá ser repetido, 
pois esta informação deve ser especi 
cada logo no início. A variável que man- 
tém a contagem do número de vezes ao 
redor do laço é conhecida como variá- 
vel de controle. 








xograma da figura 8 e compare-o à 





gura 6. Em BASIC, será escrito assi 




















Estabelecer as variáveis |, 





min, val, max 


9. Laço FOR...NEXT 
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Um fluxograma para o laço FOR 
NEXT é semelhante ao que se vê na fi 
gura 9. Comparando-o com o laço 
WHILE da figura 6, observa-se que tem 
a mesma estrutura geral. Em BASIC é 
descrito assim: 


100 FOR i=min TO max STEP val 
110 declaração 
120 NEXT à 


Não se deve saltar para fora de um 
laço FOR, utilizando uma declaração 
GOTO, já que o interpretador BASIC 
não tem como identificar o que foi fei- 
to. Será fácil saltar de volta dentro de 
um laço, no programa, mas a compreen- 
são de tal estrutura é muito difícil. As- 
sim, evite este procedimento. 


COMO COLOCAR TUDO JUNTO 


As estruturas vistas neste artigo são 
as mais conhecidas e importantes, e po- 
dem ser utilizadas em qualquer tipo de 
programa. Mas, para completár o pro- 
grama, você deverá ainda especificar as 
variáveis que irá utilizar e verificar se as 
variáveis dos diferentes módulos não en- 
trarão em choque umas com as outras. 
Além disso, será preciso especificar to- 
das as entradas e saídas necessárias, tes- 
tar cada um dos módulos e encadeá-los 
todos juntos. No próximo artigo você 
verá como executar todas estas tarefas, 
mantendo seu programa legível e estru- 
turado. Como exercício, examine alguns 
programas já publicados em INPUT e 
veja se consegue identificar as estruturas 
utilizadas. Em seguida, tente melhorar o 
programa, tornando-o mais estruturado. 















O MAPA 


DA AVENTURA 





Acompanhe a criação de uma aventura 
e, depois, crie seu próprio jogo. 

Aqui, Os primeiros passos: o 
desenvolvimento do roteiro e a 
confecção do mapa dos locais. 


Antes de programar um jogo, é im- 
portante elaborar minuciosamente o ro- 
teiro, para evitar dificuldades posterio- 
res, como erros e pontos obscuros a se- 
rem esclarecidos. 

Para que você se familiarize com es- 
ta etapa do trabalho, acompanhe conos- 
co o desenvolvimento de um programa 
de aventuras típico. A história que to- 
mamos como exemplo se passa em um 
país distante, onde o jogador deve en- 
contrar o olho perdido de um legendá- 
rio totem inca. Se você seguir passo a 
passo as etapas percorridas para a mon- 
tagem desta aventura, sentirá maior fa- 
cilidade ao projetar seu próprio jogo. 


O ROTEIRO 


Em primeiro lugar o programador 
precisa criar um “'mundo” que combi- 
ne com a estrutura básica do roteiro. Es- 
te mundo compõe-se de uma série de ob- 
jetos, cada qual destinado a desempe- 
nhar um papel específico. Além disso, 
deve criar alguns mistérios e problemas 
para o jogador resolver. 

Não é necessário fazer tudo isso de 
uma vez: à medida que se pensa na his- 
tória, seus contornos vão se tornando 
mais nítidos, o que facilita a definição 
dos detalhes. Comece, portanto, rascu- 
nhando o roteiro básico. 

Nosso jogador encontra-se em pés- 
sima situação financeira e, por isso, sai 
em busca do fabuloso olho inca (de al- 
tíssimo valor), escondido em algum lu- 
gar do mundo da aventura. Infelizmen- 
te, a Secretaria da Receita enviou um fis- 
cal para acompanhar o caso. O papel 
desse personagem é bastante semelhan- 
te ao do pirata de outras aventuras — 
ou seja, cabe-lhe arruinar o infeliz jo- 
gador. Sua aparição pode acarretar dois 
acontecimentos. Se o jogador estiver le- 
vando consigo um objeto, o fiscal o con- 




































fiscará para amortizar sua enorme divi- 
da com a Secretaria. Caso o jogador não 
tenha encontrado nenhum objeto (não 
podendo, portanto, pagar), o fiscal o 
prenderá numa masmorra. 

Este é o esquema básico da aventura. 
Resta, agora, trabalhar alguns detalhes 
— por exemplo, os objetos que serão en- 
contrados na busca. No nosso jogo, de- 
cidimos contrariar a regra geral de que 
todos os objetos devem ser úteis ao de- 
senvolvimento da aventura. Desta vez, 
haverá um objeto sem nenhuma utilida- 
de na busca empreendida pelo jogador: 
trata-se de algo pesado (um tijolo, por 
exemplo), que irá causar a morte de 
quem tentar atravessar o rio a nado, 
carregando-o. 

O objeto mais importante de todos 
será o olho. Para aumentar o interesse 
do jogo, convém imaginar uma manei- 
ra de disfarçá-lo ou escondê-lo. Pode- 
ríamos colocá-lo dentro de um baú ou 
de uma catacumba, mas existem solu- 
ções mais sutis para enganar o jogador. 
-Assim, em vez de esconder o olho num 
lugar que obviamente contém algo de 
valor, vamos deixá-lo dentro de um sa- 
quinho de bolas de gude. O aventureiro 
não irá a lugar nenhum se tentar jogar 
com as bolinhas de gude! 











Um dos artifícios favoritos em jogos 
de aventura é o quarto escuro, no qual 
todas as coisas horríveis podem aconte- 
cer. Esta aventura não será uma exce- 
ção. Sem a lâmpada — que deverá des- 
cobrir em algum misterioso lugar — o 
pobre aventureiro não encontrará as sai- 
das, ficando em péssima situação. 

Talvez isso seja um tanto injusto, já 
que o jogador não receberá nenhum avi- 
so de perigo iminente, nem terá condi- 
ções de sair do quarto escuro, a não ser 
que tenha encontrado a lâmpada. Para 
dar uma melhor oportunidade ao aven- 
tureiro, permitindo-lhe enfrentar pelo 
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menos um dos perigos — o fiscal —, 
uma arma de fogo estará escondida em 
algum lugar. 

Finalmente, para aumentar a diver- 
são, haverá uma sala do trono e uma 
corrente. A sala do trono não é exata- 
mente o que parece. Na verdade, o tro- 
no em questão se transforma num sim- 
ples sanitário, se o jogador não estiver 
de posse do olho. E, caso puxe a cor- 
rente, provocará uma descarga que 0 fa- 
rá desaparecer, tirando-o mais depres- 
sa da aventura. 

Falta ainda estabelecer um dos prin- 
cipais elementos do jogo: as condições 





necessárias à vitória. Não existe saída 
evidente do mundo da aventura e boa 
parte do quebra-cabeças consiste em 
descobrir como escapar com a peça do 
totem. Assim, para ganhar o jogo, o 
aventureiro obviamente precisará ter en- 
contrado o olho — não apenas o saqui- 
nho de bolas de gude. Para dificultar um 
pouco mais, ele deverá também estar na 
sala do trono. Puxar a corrente desta vez 
não fará com que ele entre pelo cano! 

Transformar a saida em risco, sob 
condições diferentes, apresenta a vanta- 
gem de desencorajar o jogador a tentá- 
la constantemente; desta maneira pro- 
longa-se o jogo todo. 


A AVENTURA ATÉ AQUI 


Antes de começar o mapeamento, 
convém fazer uma recapitulação, listan- 
do os elementos até agora envolvidos na 
aventura. Assim, não se corre o risco de 
perder o fio da meada. 


PERSONAGENS 

* Aventureiro 

e Fiscal da Receita — deve surgir 
aleatoriamente 









OBJETOS 

* Globo ocular — escondido no 
saquinho de bolas de gude, 

* Tijolo — peso que mata o 
aventureiro caso este tente 
atravessar O rio a nado 

* Lâmpada — necessária para se achar 
a saída do quarto escuro 

* Arma — para matar o fiscal da 
Receita 

* Corrente — tira o aventureiro do 
jogo se este chegar à sala do trono 
e puxá-la, sem estar de posse do olho 


LOCAIS 

* Rio 

* Quarto escuro 
* Sala do trono 


Até aqui, fixamos apenas três dos lo- 
cais da aventura, em função do que ne- 
les deve acontecer. Podemos muito bem, 
neste ponto, tomar novas decisões. Mas, 
seja como for, o próximo passo consis- 
tirá em encaixar todos os elementos num 
mesmo mapa do mundo da aventura. 





O primeiro mapa será composto por 
uma série de quadrados ligados entre si 
por setas, como mostra a ilustração des- 
ta página. Cada quadrado representará 
um ambiente ou local da aventura — lo- 
cal talvez seja o termo mais adequado, 
por sua abrangência. Pode designar des- 
de a cabeça de um alfinete escondido na 
barra do vestido da rainha, até uma 
imensa planície. Todos os locais devem 
ser incluídos no mapa: os da lista preli- 
minar e outros que se façam necessários 
para completar o jogo. 

Ao esboçar o mapa, não se esqueça 
de assinalar a direção em que se pode 
ir a partir de cada local. Se quiser, in- 
clua saídas que só funcionem em uma 
direção — acompanhadas de mensa- 
gens, como por exemplo: 


A PORTA BATE, : 
FECHANDO-SE ATRÁS DE VOCÊ 


As faixas listradas que saem do quar- 
to escuro indicam que o jogador só po- 
derá ir na direção indicada quando de- 


Floresta 


Arma de fogo 
na margem oposta 


Tijolo 

terminadas condições forem satisfeitas. 
No nosso caso, a condição é estar de 
posse da lâmpada acesa, para enxergar 
as saídas. 

Não é fácil prever o número de locais 
que determinada quantidade de memó- 
ria RAM pode conter. A dificuldade es- 
tá no próprio programa de aventura, 
que inclui muitos elementos, todos pre- 


cisando de memória — descrições de lo- 
cais, palavras que o programa deve re- 
conhecer, o número de objetos e o pa- 
pel de cada um deles, o número de enig- 
mas e sua complexidade, etc. 

Depois de ter programado algumas 
pequenas aventuras e verificado o espa- 
ço que ocupam, ficará mais fácil calcu- 
lar o que é possivel encaixar na memó- 
ria do seu computador. 

Quem tiver um micro de 16K logo 
descobrirá que é impossível escrever 
uma aventura em grande escala dispon- 
do de tão pouca memória RAM. No en- 
tanto, a aventura que desenvolveremos 
aqui inclui um número reduzido de lo- 
cais — doze, ao todo — e, portanto, não 
dará esse tipo de dor de cabeça. 

Um mapa para a Busca do Olho Inca 
pode ser semelhante ao de nossa ilustra- 
ção. As ligações entre os locais foram 
todas previstas, e o ponto de partida es- 
tabelecido. Isso é muito importante, 
pois afeta a maneira de se abordar a 
aventura, a ordem em que os objetos são 
descobertos e também a tentativa de 












Arlivre 





O primeiro mapa da aventura mostra todos 
os locais planejados em suas posições 
relativas. As setas vermelhas indicam as 
saídas que estão constantemente abertas; 
as setas listradas indicam saídas que só 
podem ser utilizadas sob condições 

especiais — neste caso, quando o 
aventureiro estiver de posse da lâmpada. 








Saquinho de bolas de gude 
Olho — no saquinho 


Sala empoeirada 


Hall de entrada 


e gude 
ho 
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se resolver o quebra-cabeças. 

Os objetos também estão assinalados 
em seus locais. Os que aparecerão pos- 
teriormente — como, por exemplo, o 
olho inca — devem ser listados à mar- 
gem do mapa. 


RDI UR a 


Uma vez concluído o mapa, os dados 
podem ser transferidos para os setores. 

Em geral, no planejamento de jogos 
de aventura, os setores são organizados 
em dois tipos de conjunto: um que tem 
por base quadrados e outro que tem por 
base octógonos (veja as ilustrações na 
página 230). A escolha de qual utilizar 
dependerá do número de saídas de ca- 
da local. 

O tipo mais simples de aventura in- 
clui saídas em quatro direções: norte, 
sul, leste e oeste (como na Busca do 
Olho). Nesse caso, deve-se transferir os 
dados para um conjunto de setores qua- 
drados, de modo que se enquadrem nas 





condições do mapa proposto. A manei- 
ra de fazê-lo será detalhadamente expli- 
cada mais adiante. 

Se a aventura incluir saídas a noroes- 
te, nordeste, sudeste e sudoeste, deve- 
se utilizar o conjunto de setores octogo- 
nais. O emprego desse tipo de conjunto 
é, porém, muito complicado. 

Existe ainda a possibilidade de se in- 
cluir, na aventura, deslocamentos para 
cima ou para baixo. Nesse caso, a me- 
lhor solução é a utilização de conjuntos 
distintos de setores para cada “nível” 
da aventura. 

A Busca do Olho tem como base um 
conjunto do tipo quadrado — ou seja, 
permite saídas somente para norte, sul, 
leste e oeste. A não ser que haja uma 
real necessidade de outras direções, es- 
se tipo de aventura é bastante satisfató- 
rio, permitindo, inclusive, que se intro- 
duza uma certa confusão no direciona- 
mento das saídas. Por exemplo, pode- 
se acrescentar a seguinte frase a uma 
descrição: 


EXISTE UMA ESCADA 
DESCENDO PARA O OESTE 



























Guarda-louça 





Lâmpada 


e, para descer as escadas, bastará usar 
a resposta normal OESTE. 


Nossa aventura utilizará um conjun- 
to de setores composto de seis por qua- 
tro quadrados — verifique o mapa pro- 
posto, para cima e para baixo, para a 
esquerda e para a direita. Antes de ini- 
ciar a transferência de todos os detalhes 
para os setores, certifique-se de que ca- 
da quadrado foi devidamente numera- 
do. Deve-se começar com o número 1, 
no alto à esquerda, e prosseguir até a 
parte inferior à direita. 

Uma vez numerados os quadrados e 
transferidos os detalhes, o conjunto dos 
setores terá uma aparência semelhante 
à da ilustração da página 231. 


ARO Ro e 





Depois de estruturar o roteiro bási- 
co da história e de completar os setores, 
pode-se dar início ao programa. 

A primeira etapa será a digitação das 
descrições dos locais, tendo como base 
o setor proposto. Deve-se decidir a ex- 
tensão das descrições e procurar trans- 
mitir o melhor possivel a atmosfera da 
aventura, sem desperdiçar memória. 

Junto com as descrições dos locais, 
o computador deverá receber as infor- 
mações sobre as direções em que se en- 
contram as saídas. 


Jardim 































































































































Parte de um conjunto de setores quadrados. 
Neste tipo de conjunto, pode-se planejar 
aventuras utilizando quatro saídas: para 
norte, sul, leste e oeste. 


Veja, abaixo, as primeiras seções do 
programa. O número alto das linhas tem 
a finalidade de assegurar espaço para as 
seções anteriores, à medida que o jo- 
go for se desenvolvendo. Digite a seção 
e preserve-a em fita: 


5000 REM ** DESCRICAO DO LOCAL 

pos 

5010 REM ** LOCAL 4 ** 

5020 PRINT "VOCE ESTA DO LADO D 

E FORA DE UM GRANDE PREDIO” 

5030 LET N=0: LET E=0: LET S-1: 

LET W=0: RETURN 

5040 REM ** LOCAL 7 ** 

5050 PRINT "VOCE ESTA A BEIRA D 

E UM GRANDE RIO” 

5060 LET N=0: LET E=l: 

LET W=0: RETURN 

5070 REM ** LOCAL 8 *x 

5080 PRINT "VOCE ESTA NUMA FLOR 

ESTA PETRIFI-CADA” 

5090 LET N=0: LET E=0: 

LET W=l: RETURN 

5100 REM ** LOCAL 10 ** 

5110 PRINT "VOCE ESTA NUMA SALA 

EMPOEIRADA” 

5120 LET Nel: LET Eml: 

LET W=0: RETURN 

5130 REM ** LOCAL 11 ** 

5140 PRINT "VOCE ESTA NUMA SALA 

ESCURA” 

5150 IF LA<>l THEN LET N=0: LE 

T E=0: LET S=0: LET W=0: PRINT 

” ESTA MUITO ESCURO PARA VER AS 
SAIDAS”: LET DA=1: RETURN 

5160 LET N=0: LET E=0: LET S=l: 

LET W=1: RETURN 

5170 REM ** LOCAL 14 ** 

5180 PRINT "VOCE ESTA EM UM ATA 

LHO ENLAMEADO” 

5190 LET N=l: LET E=l: 

LET W=0: RETURN 

5200 REM ** LOCAL 15 ** 

5210 PRINT "VOCE ESTA NA ENTRAD 


LET S=0: 


LET Sel: 


LET S-l: 


LET S=0: 








Parte de um conjunto de setores octogonais 
— utilizado quando se quer incluir saídas 
para noroeste, nordeste, sudoeste e 
sudeste. 


A DA CIDADE OCULTA” 
5220 LET N=0: LET E-l: 
LET W=1: RETURN 

5230 REM ** LOCAL 16 ** 
5240 PRINT "VOCE ESTA NO HALL D 
E ENTRADA” 

5250 LET N-l: LET E-l: 
LET W=1: RETURN 

5260 REM ** LOCAL 17 ** 
5270 PRINT "VOCE ESTA NO PATIO” 
5280 LET N=l; LET E-l: LET S=0: 
LET W=1: RETURN 

5290 REM ** LOCAL 18 ** 

5300 PRINT “VOCE ESTA NO JARDIM 


LET S=0: 


LET Sel: 


5310 
LET 


LET N=0: LET E=0: 
W=1: RETURN 

5320 REM ** LOCAL 22 ** 
5330 PRINT “VOCE ESTA NO GUARDA 
-LOUCAS” 

5340 LET N=1: LET E=0: 
LET W=0: RETURN 

5350 REM ** LOCAL 24 ** 


LET Sel: 


LET S=0: 


5360 PRINT "VOCE ESTA NA SALA D 
O TRONO” 

5370 LET N=l: LET E-0: LET S-0: 
LET W=0: RETURN 


mamas dé] 


5000 REM**DESCRICAO DOS LOCAIS* 
* 


5010 REM**LOCAL 4** 
5020 PRINT” VOCE ESTA DO LADO D 


E FORA DE UMA GRANDE CONSTRU 
cao” 

5030 N=0:E=0:S=1:W=0:RETURN 
5040 REM**LOCAL 7** 

5050 PRINT” VOCE ESTA A BEIRA D 
E UM GRANDE RIO” 

5060 N=0:E=1:5=0:W=0:RETURN 
5070 REM**LOCAL 8** 

5080 PRINT” VOCE ESTA NUMA FLOR 
ESTA PETRIFI CADA” 

5090 N=0:E=0:S=1:W=1:RETURN 
5100 REM**LOCAL 10** 


5110 PRINT” VOCE ESTA NUMA SALA 


MUITO SUJA” 


5120 N=1:E=1:S=1:W=0:RETURN 
5130 REM**LOCAL 11** 

5140 PRINT” VOCE ESTA NUM QUART 
O ESCURO” 

5150 IF OB(6)<>-1 OR LA<>1 THEN 
N=0:E=0:S=0:W=0:PRINT” ESTA MU 
ITO ESCURO PARA VER AS SAIDAS 
” : RETURN 

5160 N=0:E=0:S=1:W=1:RETURN 
5170 REM**LOCAL 14** 

5180 PRINT” .VOCE ESTA NUM ATALH 
O ENLAMEADO” 

5190 N=1:E=1:5=0:W=0: RETURN 
5200 REM **LOCAL 15** 

5210 PRINT” VOCE ESTA NA ENTRAD 
A DA CIDADE OCULTA” 

5220 N=0:E=1:5=0:W=1:RETURN 
5230 REM**LOCAL 16** 

5240 PRINT” VOCE ESTA NO HALL D 
E ENTRADA” 

5250 N=1:E=1:S=1:W=1:RETURN 
5260 REM**LOCAL 17** 





5270 PRINT” VOCE ESTA NO PATIO” 
5280 N=1:E=1:S=0:W=1:RETURN 
5290 REM**LOCAL 18** 

5300 PRINT” VOCE ESTA NO JARDIM 
5310 N=0:E=0:S=1:W=1:RETURN 
5320 REM**LOCAL 22* 

5330 PRINT” VOCÊ ESTA NO GUARDA 
-LOUCAS” 


5340 N=1:E=0:S=0:W=0: RETURN 
5350 REM**LOCAL 24** 

5360 PRINT” VOCE ESTA NA SALA D 
O TRONO” 

5370 N=1:E=0:S=0:W=0:RETURN 


Não se preocupe com o uso repetido 
de comentários REM incluídos na me- 
mória. Nesta etapa inicial do desenvol- 
vimento do programa, o importante é 
saber o que cada trecho do programa 
faz, ou qual o número do local a que de- 
terminada descrição se refere. Os co- 
mentários sempre podem ser eliminados 
posteriormente. Após cada linha de des- 
crição do local, existe outra linha con- 
tendo dados sobre suas possíveis saídas. 
As variáveis N, S, L e O referem-se a 
norte, sul, leste e oeste. Elas podem ter 
um ou dois valores — O significa que não 
há saída naquela direção, ao passo que 
1 significa que há uma saída. 

Finalmente, existe um RETURN 
após as seções do programa, pois cada 
descrição de local será chamada por 
uma instrução GOSUB. 

Um IF...THEN extra na seção do 
quarto escuro verifica se o aventureiro 
possui a lâmpada; porém, a descrição 
das variáveis será tratada mais adiante, 
quando analisarmos os objetos. 

No próximo artigo veremos como 
movimentar o jogador pelo mundo que 
criamos. 


Última etapa antes da programação. O 
conjunto de setores é uma có 
do mapa, numa forma que facilita o 
trabalho. 
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RECURSOS GRÁFICOS 
SOFISTICADOS 


Os computadores domésticos oferecem 
vários recursos ao artista amador. 
Aprenda novas formas de utilizar 

os comandos gráficos em BASIC 

e crie livremente suas ilustrações. 





Tendo já dominado os princípios bá- 
sicos do desenho na tela, você pode co- 
meçar a empregar alguns recursos gráfi- 
cos especiais, disponíveis no seu compu- 
tador, Comandos como MOVE, PLOT, 
DRAW, PAINT e CIRCLE permitem 
que você solte as rédeas de sua imagi- 
nação, criando qualquer tipo de imagem 
— de um diagrama explicativo para ilus- 
trar uma mensagem comercial ao cená- 
rio de um excitante jogo de aventuras. 

No artigo da página 113 mostram: 
como utilizar comandos simples para 
criar ilustrações com linhas na tela e, em 
alguns casos, como acrescentar cor. Mas 
você pode sofisticar seu repertório, 
aprendendo outras maneiras de traçar 
pontos, desenhar linhas, triângulos, 
quadrados e círculos. Os comandos aqui 
ensinados — em combinação com cores 
ou não — constituem um eficiente re- 
curso para formar imagens estáticas ou 
até mesmo móveis. 

Embora os vários modelos de com- 
putador utilizem esses comandos de ma- 
neira diferente, todos são capazes de 
produzir alguns efeitos interessantes. As 
exceções são o Apple, o TK-2000, o 
TRS-80 co ZX-81, cujo BASIC não in- 
clui esses comandos. Entretanto, você 
pode obtê-los acrescentando um cartu- 
cho ROM adequado ou adquirindo pro- 
gramas em disco ou fita. 












PURA AO 


Os arcos e círculos são um dos mais 
úteis “instrumentos” do Spectrum pa- 
ra fazer desenhos na tela. 

Este programa para um campo de 
golfe mostra como empregá-los para de- 
senhar árvores, cercas, água, terrenos 
acidentados e buracos. 

Você pode testar seu progresso na 
medida em que for rodando cada gru- 
po de linhas. Não dê o comando NEW 
toda hora; se você deixar as linhas in- 
tactas, obterá a cena mostrada na ilus- 
tração da página 237. 

Antes de começar o trabalho com os 
círculos, porém, convém deixar pronta 
a sede do clube. Para isso, entre estas 
linhas no computador: 


90 BORDER 4: 
200 LET w=10: 
210 FOR c=-162 
220 PLOT INK 
230 DRAW INK 
240 LET w=w+2: 
250 NEXT c 
260 FOR b=148 
270 PLOT INK 
280 DRAW INK 
290 NEXT b 
295 DRAW 
11 

300 PRINT INK O;AT 2,2;" 
2,4” FAT 2,67” * 


As linhas numeradas de 200 a 250 de- 
senham o telhado, utilizando técnicas 
semelhantes às ensinadas no artigo an- 
terior (página 113). Na tela, em 10.162, 
aparece primeiro uma linha de SO pixels 
de largura. Depois uma largura de 4 
pixels, para cada pixel desenhado. 

Um laço parecido aos das linhas 260 
a 290 desenha as paredes, com duas li- 
nhas extras (na linha 295) para traçar a 
varanda. Em seguida, a linha 300 preen- 
che as janelas pelo método mais simples 
possível — imprimindo um quadrado 
negro, com caracteres gráficos da ROM, 
em três lugares da parede. 


COMO DESENHAR ARCOS 


No Spectrum, como já foi explicado 
anteriormente (página 115), o comando 
CIRCLE é o instrumento mais simples 
para se desenhar um círculo completo. 

Mas, se quiser somente uma parte do 
círculo, será mais fácil acrescentar um 
número a uma declaração convencional 
DRAW. Pode-se obter uma variedade 
imensa de efeitos por meio dessa decla- 
ração; assim, vale a pena fazer alguns 
experimentos antes de prosseguir. 


PAPER 4: 
LET s=50 
TO 174 

Ziw,c 
2:9,0 
LET 


CLS 


s=s-4 


TO 162 
2:10,b 
2;50,0 
INK 


2:10,-3; DRAW O, 


"ar 


10 PLOT 130,30 
20 DRAW 0,10,1 
30 coTo 20 


(Não se preocupe com a mensagem de 
erro.) 

Como você deve se lembrar, os pri- 
meiros dois números da linha 20 dizem 
ao computador para desenhar uma linha 
do ponto traçado até um ponto 10 pi- 
xels acima dele. O último número, por 
sua vez, determina a curvatura da linha. 


Informa-se assim, ao computador, qual 
fração do círculo será desenhada. Um 
círculo completo é representado por 
duas vezes Pi (3.1416); portanto, com 
o número 1, obtém-se o desenho de 
aproximadamente um sexto do circulo 
(ou, mais precisamente, 1 dividido por 
duas vezes Pi). Se você tentar modificar 
a linha 20 para: 


20 DRAW 0,10,2 





obterá uma série de curvas mais pro- 
nunciadas. Do mesmo modo, 0,10,3 for- 
nece um modelo denteado, e 0,10,4 pro- 
duz parte de uma cerca (ou a metade de 
um tronco de palmeira, dependendo de 
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l sua imaginação), enquanto 0,10,6 produz 
uma espiral. Se, no entanto, você tentar: 


20 DRAW 0,10,2*PI 


... poderá ter uma surpresa! O Spectrum 
desenhará um círculo em que dois pon- 
tos estarão em linha reta. Mas, já que tal 
círculo pode se tornar muito maior do 
que sua sala — na verdade, bem maior 
do que o sistema solar —, o computa- 
dor desenhará apenas a parte do circu- 
lo que é capaz. 
Para o cenário, experimente isto: 


10 PLOT 0,100 
20 DRAW RND*5+5,0,2 
30 coTo 20 


A forma obtida assemelha-se à das 
ondas em um mar agitado. Para dese- 
nhar águas calmas, tente RND*10 +10 
ou mesmo RND*15 + 10. 

Com relação aos círculos e arcos, vale 
ainda lembrar que um número negati- 
vo no final da linha DRAW produzirá 
a imagem-espelho do arco. 

Agora, limpe as linhas de 10 a 30 e 
continue montando o cenário para a pis- 
ta de golfe. 


CERCA E O LAGO 


O programa da pista de golfe inclui 
dois exemplos de arcos utilizados para 
efeito gráfico — o primeiro compõe a 
pequena cerca em frente à sede do clu- 
be; o segundo, o lago. 

Digite estas linhas: 


310 FOR £=0 TO 84 STEP 3 
320 PLOT f,142 
330 DRAW 3,0,-3 
340 NEXT £ 
350 DRAW 35,-42: DRAW -12,-6 

O ponto de partida na tela é 0,142. 
A linha 330 desenha uma série de arcos 
estreitos — ou seja, semicírculos com 
apenas 3 pixels de largura — para for- 
mar a cerca. O número obtido é regula- 
do pelo laço FOR...NEXT. 

Agora, entre e rode estas linhas: 


100 LET x=130: LET y=125: LET 
2=50 

110 PLOT INK 5;x,0 

120 DRAW INK S;y,2,-1.25 

130 LET x=xtl: LET y=y-1: LET 
a=3-1 











140 IF x>254 THEN 
150 IF z<1 THEN 
160 GoTO 110 


Goto 170 
LET 2-0 


Aqui a ilustração é mais complicada. 
Em primeiro lugar, o computador tra- 
ça um ponto de 130 pixels a partir da 
esquerda e O pixel a partir do canto in- 
ferior da tela. Em seguida, desenha uma 
linha no ponto 125 pixels à direita e a 
eleva a 50 pixels do canto inferior da te- 
la, “arqueando” a linha em — 1.25 ra- 
diano, à medida que ela vai se de- 
senvolvendo, 

A partir desse estágio as variáveis en- 
tram em cena. A variável x inicia cada 
linha 1 pixel mais à direita; a variável 
y torna a linha | pixel mais curta do que 
a anterior (caso contrário ela ultrapas- 
saria os limites da tela), enquanto a va- 
riável z faz com que a linha termine 1 
pixel abaixo da anterior. 

Eventualmente, é claro, a variável z 
poderá se tornar um número negativo, 
fazendo com que o computador tente 
(mas falhe) imprimir o canto inferior da 
tela. Por isso a linha 150 é necessária: 
ela faz com que todas as pequenas linhas 
no final do programa terminem na linha 
inferior da tela. 


PET ISA dO 


O programa da pista de golfe tam- 
bém utiliza círculos completos (como 
um substituto para PAINT ou uma de- 
claração similar, disponível em alguns 
computadores) para produzir árvores e 
arbustos. Estas poucas linhas desenha- 





rão alguns arbustos ao acaso no “'gra- 
mado”: 

400 FOR r=172 TO 168 STEP -1 
410 LET x=RND*45+195 

415 PLOT x,r-2: DRAW 0,-2 

420 CIRCLE x,r,RND*2+1 


440 
aso 


CIRCLE x+10,r,RND*2+1 
NEXT r 


Estas outras linhas produzirão algo 
parecido, no lado direito: 


460 FOR r=135 TO ,172 STEP 6 
470 LET y=252 

480 CIRCLE y,r,RND+2 

490 NEXT r 


As árvores, no lado inferior esquer- 
do, são muito grandes e, por isso, não 
se pode desenhá-las aleatoriamente, 
usando DRAW. Assim, utilizamos uma 
técnica diferente: READ... DATA (ve- 
ja páginas 128 a 133): 


900 
910 
920 
930 
940 


FOR w=1 TO 3 
READ a,b 
PLOT a,b 
DRAW 0,-24 
LET f=RND*5+5 


950 CIRCLE a-10,b+f,f: CIRCLE 
a,b+f,f: CIRCLE atlO,b+f,f 
960 CIRCLE a-S,b+£*2,£: 
CIRCLE a+5,b+f*2,€ 

970 CIRCLE a,b+f*3,£ 

980 NEXT w 

3000 DATA 20,70,52,85,84,100 


A solução, aqui, foi desenhar primei- 
ro os troncos, de modo descendente, a 
partir dos pontos traçados originalmen- 
te. Desse modo, evita-se que eles apare- 
çam através das “folhagens”. Os tron- 
cos são traçados na tela a 20,70 e assim 
por diante, pelos dados fornecidos pela 
linha 3000. A linha 940 desenha aleato- 
riamente o tamanho das folhagens, en- 
quanto que b+f, na linha 950, assegu- 
ra que as séries de círculos ao fundo ini- 
ciem com uma distância razoável acima 
dos troncos. 


Op 


O tee propulsor, ou seja, o apoio on- 
de se coloca a bola para a tacada inicial, 
é desenhado por estas linhas: 


1000 LET t=30 

1010 FOR y=0 TO 10 
1020 PLOT t,y 
1030 DRAW -30,30 
1040 LET t=t+2 
1050 NEXT y 


E as linhas abaixo desenharão as ban- 
deirinhas no gramado: 


170 PLOT 220,140 

180 DRAW 0,15: DRAW 8,-3 
DRAW -8,-2 

190 PLOT 22,120 

195 DRAW 0,18: DRAW 9,-3: 
DRAW -9,-2 

Finalmente, você precisará de alguns 
buracos. Na ausência de uma declara- 
ção PAINT, a maneira de desenhá-los 
que oferece os melhores resultados (em- 
bora também seja a mais demorada) é 
começar com uma elipse bem pequena 
e ir aumentando-a, pixel por pixel, até 
atingir um tamanho razoável. 

Como o traçado de elipses será deta- 
lhadamente explicado em um artigo fu- 
turo sobre as funções matemáticas do 
computador, entre e rode estas linhas: 


1495 LET r=1 
1500 FOR x=0 TO 2*PI STEP PI/18 


o 

1510 PLOT INK 6;168+r*SIN x, 14 
7+r*CoS x/2.5 

1520 PLOT INK 6:;235+r*SIN x,10 
6+r*cos x/2.75 

1530 PLOT INK 6;225+r*SIN x,97 
+r*Cos x/2.5 

1540 NEXT x 


1550 LET re=r+2 
1560 IF r>20 THEN GOTO 6000 
1570 coTo 1500 





Alternativamente, você poderá fazer 
os arbustos de um modo mais simples, 
porém mais grosseiro, utilizando blocos 
gráficos. 


4 RR | 


[LARA 





Os comandos CIRCLE e LINE são 
muito úteis para desenhos simples de 
formato regular, requerendo um mínimo 
esforço do programador. Empregá-los 
para desenhos mais complicados, porém, 
tornará seus programas longos e de difi- 
cil manuseio. Imagine o tamanho de um 
programa que desenhasse algo como o 
navio da página 232, usando um coman- 
do LINE para cada linha da ilustração... 

Para contornar esse problema, deve- 
mos utilizar o comando DRAW, que 
permite direcionar a trajetória de uma 
linha enquanto ela está sendo traçada. 
Podemos dizer ao computador que leve 
a linha até uma certa distância à direi- 
ta, até uma outra distância para cima e 
assim por diante. Essas instruções são 
fornecidas dentro de um cordão, o que 
torna o programa muito mais compacto. 

Como exemplo, digite e rode este 
programa; veja como é possível dese- 
nhar um navio com algumas poucas 
linhas. 





10 PMODE 4,1 

20 PCLS 5 

30 SCREEN 1,1 

40 DRAW "BM23,96C0” 

50 DRAW "R28EZU3LGURGEZRSF2D3R3 
UZR7D2R4U9EZR4F 2DSRIVZR4VGEIRSD 


8 

60 DRAW "RIU24L IURBDL4D24RF2R5D 
4R4U4R6U9EIRSDIORAVZRAVI4RDIORI 
uz” 

70 DRAW "R4D11R7U3EZR4F2D3RDBR3 
USEZRB8D2R6UZR7UEZR6F 2D4R4U4EZRS 
F2º 

80 DRAW "R6DL6DIRZ4GIZLI9SHAUS” 
90 PAINT (127,100),0,0 

100 Goto 100 


Psy 


30 SCREEN 2 

40 DRAW "BM23,96C1” 

50 DRAW "R28EZUILGURG6EZRSF2DIRI 
UZR7D2R4UV9EZR4F2DSRIVZR4AVGEIRSD 
Br 

60 DRAW "R3U24L3URBDL4D24RF2RSD 
4R4V4R6U9E IRSDIOR4UZR4VI4RDIORI 
uz” 

70 DRAW "R4D11R7U3EZR4F2D3RDBR3 
USEZRB8D2R6UZR7UEZR6F 2D4R4U4EZRS 
F2" 

80 DRAW "R6DL6DIR2Z4GI2LI9SH4US” 


90 PAINT (127,100),1,1 
100 GOTO 100 

O programa funciona assim: 

As linhas numeradas de 10 a 30 est 
belecem as condições iniciais, selecio- 
nando uma tela de alta resolução. 

Os comandos DRAW das linhas 40 
a 80 formam o contorno do navio. Este 
comando opera somente no cordão de 
instruções contidas entre aspas. 

A linha 40 é a mais simples, com um 
curto cordão de instruções que dizem à 
máquina onde começar o desempenho, 
e com que cor. A primeira instrução, 
BM, significa ''mover em branco”, co- 


locando a “'caneta"' que fará o desenho 
na posição onde desejamos iniciá-lo. Se 
não houvesse a letra B, a “'caneta”” tra- 
çaria uma reta, enquanto se dirigisse ao 


ponto de partida, que no nosso caso e 
23,96 (note que as coordenadas não es- 
tão entre parênteses, como em outros 
comandos gráficos). A instrução final 
do cordão seleciona a cor preta (Ci no 
MSX e CO no TRS-Color). 

A linha 50 começa a traçar o contor- 
no. Embora pareça confuso, o cordão 
da instrução DRAW é na realidade mui- 
to simples, consistindo de uma série de 
direções e distâncias. As letras contro- 
lam a direção da linha e os números, sua 
distância em pixels. Se não houver um 
número após uma direção, o movimen- 
to será de apenas um pixel, 

Existem 8 direções: U, para cima (up, 
em inglês); R, direita (right); D, para 
baixo (down); L, esquerda (left); E, pa- 
ra cima à direita (45 graus); F, para bai- 





xo à direita (135 graus); G, para baixo 
à esquerda (225 graus) e H, para cima 
à esquerda (315 graus). 

Se acompanharmos os comandos do 
cordão da linha 50, teremos: à direita 28 
pixels, a 45 graus 2 pixels, para cima 
3 pixels, e assim por diante. Para se 
exercitar, tente transformar o cordão ei 
movimentos de lápis, em papel mi 
metrado. 

As linhas 60 a 80 contêm cordões pa- 
recidos que completam o contorno do 
navio. Pode-se utilizar apenas um cor- 
dão longo em vez de todas essas linhas, 
mas um número grande de instruções 
tende a tornar mais difícil a manipula- 
ção e a correção dos dados. 

Finalizando o desenho, a linha 90 
pinta de preto a silhueta traçada na tela. 











[AS 


Uma das limitações do TRS-Color 
em relação aos programas gráficos é sua 
incapacidade de exibir textos na tela de 
alta resolução (isto não vale para o 
MSX). Não se pode, por exemplo, im- 
primir uma contagem de pontos em um 
jogo que utiliza gráficos (por essa razão, 
o jogo da página 62 é todo exibido em 
tela de textos). 

Para contornar o problema, você de- 
ve projetar seus próprios caracteres uti- 
lizando o comando DRAW. Digite e ro- 
de este programa e você verá a interjei- 
ção ALÔ! ser traçada: 





10 PMODE 3,1 

20 PCLS 

30 SCREEN 1,0 

40 01$="D4R3U4L 3BRSD4RIBRZU4RID 
2NL3D2BR2VIBUIUZ” 

50 DRAW "BM110,50;C3S8"+0IS 

60 goTo 60 


ha 


30 SCREEN 2 

40 01$="D4R3U4L 3BRSD4RIBRZU4RID 
2NL3D2BR2UIBUIU2” 

50 DRAW "BM110,50;C3S8"+0IS 

60 goto 60 


No TRS, a mensagem é traçada em 
PMODE3, uma modalidade de quatro 
cores. No MSX, em SCREEN 2, a tela 
de alta resolução (lembre-se de que o 
MSX tem outras maneiras de escrever 
textos nesta tela). 

A linha 40 mostra mais uma caracte- 
rística do comando DRAW. Como ele 
opera em um cordão de instruções, vo- 
cê poderá definir variáveis e chamá-las 
mais tarde com um comando DRAW no 
programa. 

As instruções em OIS dizem ao com- 
putador como traçar as letras para for- 
mar ALÔ!. Tente transformá-las em 
movimentos de lápis, como fez anterior- 
mente, lembrando-se de que B significa 
espaço em branco; assim, nenhuma li- 
nha aparecerá no desenho quando uma 
instrução for precedida de B. 

Se você quiser exibir em telas de grá- 
ficos outras palavras ou expressões — 
QUE AZAR! ou BEM FEITO!, por 
exemplo — poderá estabelecer mais cor- 
dões, tais como QAS$ e BF$. Tente ela- 
borar as instruções para uma dessas ex- 
pressões em papel gráfico. Uma vez que 
tenha definido os cordões, você poderá 
chamá-los de volta sempre que forem 
necessários ao programa. 

O ALÔ! é traçado pela linha 50. A 


posição inicial é 110,50 e a cor é de nú- 
mero 3; a palavra será impressa em ta- 
manho 8 (escala dupla). O S pode ser se- 
guido por um número de 1 a 62, no TRS, 
ede 1a 255, no MSX. O | é um quarto 
do tamanho, o 4 é o tamanho normal 
(a escala que se obtém se não houver ins- 
trução) e o 8 é o tamanho duplo. 
Como demonstra a linha 50, é possí- 
vel unir cordões de instruções DRAW 
como quaisquer outros cordões. Se vo- 
cê quiser chamar cordões como QAS$ ou 
BFS$, poderá fazê-lo do mesmo modo 
que na linha 50. Movimente para o pon- 
to de partida utilizando BM e, então, es- 
tabeleça a cor por Ce o tamanho por S. 


[A EAR 


É muito trabalhoso definir cordões 
para cada mensagem quando se quer exi- 
bir na tela um grande número delas. 

Para simplificar a tarefa, defina to- 
dos os caracteres que irá utilizar, digitan- 
do um programa como o que se segue: 





10 PMODE 3,1 

20 DIM LES(26) 

30 PCLS 

40 FOR K=0 TO 26 

45 READ LES(K):NEXT 

50 FOR K=0 TO 9 

55 READ NUS (K) :NEXT 

60 DATA BRZ,ND4R3D2NLIND2BEZ, ND 
4R3DGNL2FDNL 3BU4BR2, NR3D4R3BU4B 
R2, ND4R2FD2GL2BE4BR, NR3DZ2NR2D2R 
3BU4BRZ 

70 DATA NR3D2NR2D2BE4BR, NR3D4R3 
UZLBE2BR, D4BR3UZNL IU2ZBR2, NDABRZ 
+ BD4REU3L2R3BR2, D2ND2NFZEZBRZ 
80 DATA D4RIBU4BR2, ND4FREND4BRZ 
+ ND4F 3DU4BR2, NRID4R3U4BR2, ND4R3 
D2NL3BE2, NRID4RINHU4BRZ 

90 DATA ND4R3D2L2F 2BU4BR2, BD4R3 
UZL3UZR3BR2, RND4RBRZ, DARZU4BRZ, 
D3FEU3IBRZ, DAEFU4BRZ 

100 DATA DF2DBL2UEZUBR2, DENDZEU 
BR2,R3GIDRIBU4BR2' 

110 DATA NR2D4R2U4BRZ, BDEND4BRZ 
+ R2D2L2D2R2BU4BR2, NRZBD2NR2BD2R 
2U4BR2, D2R2D2U4BR2, NRZD2R2D2L2B 
E4, DARZ2UZL2BE2BR2, RZND4BRZ, NR2D 
4R2UZNL2U2BR2, NR2DZR2D2U4BR2 
120 SCREEN 1,0 

130 A$="TESTANDO0123456789” 

140 DRAW "BM60,50C358” 

150 GOSUB 9000 

160 coTo 160 

9000 FOR K=1 TO LEN(AS) 

9010 B$=MIDS(AS,K,1) 

9020 IF B$>="0" AND B$<="9" THE 
N DRAW NUS (VAL (B$)) :GOTO 9050 
9030 IF B$=" " THEN N=0 ELSE N= 
ASC(B$)-64 

9040 DRAW LES(N) 


9050 NEXT 
9060 RETURN 


o] 


20 DIM LES(26) 

30 cLs 

40 FOR K=0 TO 26 

45 READ LES(K) :NEXT 

50 FOR K=0 TC 9 

55 READ NUS(K) :NEXT 

60 DATA BR2,ND4R3D2NL3ND2BE2Z,ND 
4R3DGNL2FDNL 3BU4BR2,NR3D4RIBU4B 
R2,ND4R2FD2GL2BE4BR, NR3D2NR2D2R 
3BU4BRZ 

70 DATA NR3D2NR2D2BE4BR, NR3D4R3 
UZLBE2BR, D4BR3U2NL3U2BR2, ND4BR2Z 
+ BD4REU3L2RIBRZ, D2ND2NF 2EZBR2 
80 DATA D4R3BU4BR2, ND4FREND4BRZ 
+ ND4F 3DU4BRZ, NR3D4R3U4BR2, ND4R3 
D2NL3BE2, NR3D4RINHU4BRZ 

90 DATA ND4R3D2L2F2BU4BR2, BD4R3 
UZL3U2ZR3BR2, RND4RBRZ2, DARZU4BRZ, 
D3FEU3BR2, DAEFU4ABRZ 

100 DATA DF2DBL2UEZUBR2,DFNDZEU 
BR2,R3GIDRIBU4BRZ 

110 DATA NR2D4R2U4BR2, BDEND4BRZ 
+RZ2D2L2D2R2BU4BR2, NRZBD2NR2BD2R 
2U4BR2, D2R2D2U4BR2, NR2D2R2D2L2B 
E4,D4RZUZL2BE2ZBR2, RZND4BRZ, NR2D 
A4RZUZNL2U2ZBR2, NRZ2D2R2D2U4BRZ 
120 SCREEN 2 

130 A$="TESTANDO0123456789" 

140 DRAW "BM60,50C158” 

150 GosUB 9000 

160 GoTo 160 

9000 FOR K=1 TO LEN(AS) 

9010 B$=MIDS(AS,K,1) 

9020 IF B5S>="0" AND B$<="9" THE 
N DRAW NUS (VAL (B$)) :GOTO 9050 
9030 IF B$=" " THEN N=0 ELSE N= 
ASC(B$)-64 

9040 DRAW LES(N) 

9050 NEXT 

9060 RETURN 


O conjunto de caracteres — letras de 
AaZe algarismos de 0 a 9 — está con- 
tido nas linhas DATA de 60 a 110. O 
conteúdo destas é transferido para duas 
variáveis alfanuméricas — LES e NUS 
— pelas linhas 40 a 55. 

Para utilizar esse conjunto é necessá- 
rio definir a mensagem a ser escrita, as- 
sim como a posição inicial, a cor e o ta- 
manho. A linha 130 coloca em A$ uma 
mensagem de teste — TESTANDO0123 
456789 — que pode ser substituída por 
qualquer outra de sua criação. A linha 
140 estabelece a posição inicial, a cor e 
o tamanho. Com a mensagem e suas ca- 
racterísticas definidas, podemos dizer à 
máquina que desenhe a mensagem. A 
sub-rotina de impressão — que começa 
na linha 9000 — examina cada caractere 
em A$, um por vez, acha as instruções 
apropriadas nos conjuntos (veja progra- 
mação de jogos, na página 101) e, em 
seguida, desenha o caractere na tela. 


Modificando AS$ na linha 130 e, se 
necessário, a posição inicial na linha 
140, podemos desenhar a mensagem que 
quisermos. Como a parte do programa 
que traça as letras é uma sub-rotina, te- 
remos quantas mensagens desejarmos, 
mas devemos colocá-las sempre em AS$. 

O procedimento será muito útil, so- 
bretudo se tivermos uma série de men- 
sagens para exibir em diversos pontos da 
tela durante um jogo. 

Comece seus programas na linha 120, 
ou seja, acima das linhas DATA; lem- 
bre-se, porém, de que as linhas DIM, 
CLEAR ou PCLEAR em geral precisam 
ficar no início. Quando quiser escrever 
uma mensagem, estabeleça cordões com 
as palavras escolhidas apenas no ponto 
em que elas forem necessárias ao progra- 
ma. Em seguida, acrescente o DRAW, 
como na linha 140, e chame a sub-rotina 
de impressão com GOSUB 9000. 


[RA 


Uma vez elaboradas as instruções pa- 
ra desenhar um perfil, podemos posicio- 
ná-lo em qualquer direção, ou mesmo 
de cabeça para baixo. Basta, para isso, 
incluir uma nova instrução no cordão: 
A, seguida de um valor de O a 3. 

AQ posiciona o desenho — no nosso 
exemplo, a casa — a O graus, ou seja, 
na vertical. Al desenha a casa deitada 
sobre seu lado direito — a 90 graus. AZ, 
de cabeça para baixo — a 180 graus. A3, 
finalmente, traça a casa deitada sobre 
seu lado esquerdo — a 270 graus. 

O controle da direção em que a ima- 
gem é traçada permite obter o mesmo 
desenho, de quatro maneiras diferentes, 


a partir de um único conjunto de instru- 
ções. Não será necessário, portanto, in- 
formar ao computador como desenhar 
cada versão. 

Para ver como esse recurso funciona, 
digite e rode o programa a seguir. 





10 PMODE 3,1 

20 PCLS 

30 SCREEN 1,0 

40 S$="NR16E8F4U4RZD6F2DIZL6V6L 
AD6L6U12” 

50 FOR K=1 TO 20 

60 D=RND(200)+27:E=RND(140)+27: 
C=RND(3)+1:A=RND(4)-1 

70 DRAW"BM"+STRS (D)+”,"+STRS (E) 
+"C"+STRS (C)+"A"+STRS (A) +"XSS;” 
80 NEXT K 

90 goto 90 


ha 


30 SCREEN 2 

40 5$-"NRI6EBF4U4R2D6F2DIZLGU6L 
4D6L6U12” 

50 FOR K-1 TO 20 

60 D=INT(RND(1)*200)+28:E=INT(R 
ND(1)*140)+28:C=INT (RND(1)*15)+ 
1:A=INT(RND(1)*4) 

70 DRAW "BM"+STRS (D)+","+STR$(E 
)+"C"+STRS (C)+"A"+STRS (A)+"XSS; 


80 NEXT K 
90 Goro 90 


Serão desenhadas 20 casas, todas 
iguais, exceto na cor e na orientação. 

O formato das casas é definido na li- 
nha 40. Na linha 60, quatro números 
aleatórios são escolhidos: D e E são as 
coordenadas da posição inicial, C é acor, 
e A, a direção da imagem. 

A linha 70 desenha a casa, acrescen- 





O Spectrum usa arcos e círculos para desenhar um campo de golfe. 


tando ao cordão todos os parâmetros 
gerados na linha 60. A função STR$ 
converte as variáveis numéricas em cor- 
dões — na verdade, coloca o valor des- 
tas variáveis entre aspas. Por exemplo, 
se D=2, então STR$=''2". 

A linha 70 move, então, a “caneta” 
para uma posição qualquer e, usando 
uma cor aleatória, desenha, na direção 
escolhida ao acaso, as instruções conti- 
das em S$. O X antes de S$ significa 
“execute as instruções contidas em S$” 
e permite a adição de um cordão a ou- 
tro durante o desenho, sem a necessida- 
de de utilizar o sinal +”, 

O emprego do X apresenta a vanta- 
gem de economizar a “memória de cor- 
dões”” da máquina — que é limitada —, 
pois permite unir cordões sem criar no- 
vos cordões. O uso do “' +", ao contrá- 
rio, cria um novo cordão, que vai ocu- 
par boa parte da memória que estamos 
querendo economizar. 





É possível colocar textos na tela grá- 
fica do Apple II? 

Infelizmente, os microcomputado 
res compatíveis com a linha Apple Il 
não permitem misturar texto e gráficos 
na mesma tela. Essa limitação reduz 
bastante o campo de ação do iniciante 
que quer desenvolver jogos ou outros 
tipos de programas gráficos que preci- 
sam de alguma espécie de título ou 
identificação na tela. 

Como os computadores da linha 
MSX e TRS-Color, os micros da linha 
Apple Il também dispõem de um co- 
mando DRAW. Porém, se o objetivo 
deste recurso é semelhante em todos 
os computadores mencionados, a filo- 
sofia de sua utilização é bastante dife- 
rente, quando se trata do Apple, 

O funcionamento do comando 
DRAW do Apple baseia-se nas tabelas 
de forma (shape tables), que residem 
em uma certa parte da memória e que 
determinam um verdadeiro “mapa” de 
movimentação do cursor gráfico, com 
base em números binários que identi- 
ficam quais os bits que devem ficar 
acesos ou apagados na tela. A especi- 
ficação de tabelas de forma será expli- 
cada em um artigo futuro. Basta saber, 
por enquanto, que letras e números de 
qualquer tamanho podem ser desenhi 
dos na tela, um a um, com o comando 
DRAW. 































O Assembler do Apple é bem mais 
curto do que os programas correspon- 
dentes para o Spectrum, o MSX e o 
TRS-Color. Isto ocorre porque seu mi- 
croprocessador — o 6502 — tem bem 
menos instruções que o Z-80 e o 6809, os 
microprocessadores das outras máquinas. 

Este programa não precisará traba- 
lhar com a infinidade de mnemônicos do 
Z-80, nem terá de calcular os pós-bytes 
do 6809. 

Devido ao seu tamanho, ele é mais 
rápido — o que não significa, porém, 
que sua velocidade seja comparável à 
dos programas escritos em código. Ele 
levará alguns minutos para traduzir um 
foro programa em Assembly. 

bom lembrar que o TK-2000 já vem 
com um míni-Assembler embutido. 


Ee 


10 HOME 

20 DIM K$(77),K1(77),K2(77):H8 
= "0123456789ABCDEF" :R$ = CHR 
Ss (13) 

30 DIM T$(200),RR(100),ZS(100) 
40 P = O: FOR II = 1 TO 76: REA 
D KSC(II),KI(II),K2(II): IF KS(I 
I) < > "*" THEN NEXT 

50 DATA ADC, 105,101,AND,41, 
37,ASL,,6,BCC,,144,BCS,,176,BEQ 
++240,BIT,,36,BMI,,48 

60 DATA BRK,,,BYT,,-256 

70 DATA BNE,,208,BPL,,16,BVC 
++ 80,BVS,,112,CLC,24,,CLD,216,, 
CLI,88,,CLV,184, 

80 DATA CMP,201,197,CPX,224,2 
28,CPY,192,196,DEC,,198,DEX,202 
+" DEY,136,,E0R,73,67 

90 DATA INC,,230,INX,232,,INY 
+200,,JMP,,68,JSR,,24 

100 DATA ,,,,,+++ «LDA,169,165, 
LDX,162,166,LDY 

110 DATA 160,164,L5R,,70 
1100) NOP,,234,, 100. ORA, 
PHA,72,,PLA,104,,PLP 

120 DATA 40,,PHP,8,,,,,,+ + ROL 
++38,ROR,,102 

130 DATA RTI,64,,RTS,96,,SBC 
+233,229,SEC,56,,SED,248,,SEI,1 
20,.STA,,133,STX,,134 

140 DATA STY,,132,TAX,170,,TA 
Y,168,,TSX,186,, TXA,138,,TXS,15 
4,. TYA,152, 

150 DATA VWOR,,-256,*,, 












160 HOME 
VERSE : 


HTAB 16: VTAB 1: IN 
PRINT "MENU": NORMAL : 
PRINT : PRINT : PRINT 
170 PRINT TAB( 10);"1 - LER O 
DISCO”: PRINT : PRINT TAB( 10 
);"2 - GRAVAR NO DISCO”: PRINT 
: PRINT TAB( 10);"3 - MONTAR” 
180 PRINT : PRINT TAB( 10);"4 
- EDITAR LIMHA”: PRINT : PRINT 
TAB( 10);"5 - APAGAR LINHA”: 
PRINT : PRINT TAB( 10);"6 - LI 
STAR” 
190 PRINT PRINT TAB( 10);"7 
-— SAIDA”: PRINT : PRINT : PRIN 
T TAB( 10);"SELECIONE A OPCAO 


200 GET AS: IF VAL (AS) < 10 
R VAL (AS) > 7 THEN 200 

210 JJ - VAL (AS): HOME 

220 ON JJ GOSUB 1080,1100,250, 
1120,1200,1230,1300: PRINT : PR 
INT "QUALQUER TECLA PARA CONTIN 
UAR” 

230 GET AS: IF AS = *" THEN 23 
º 


240 GoTo 160 
250 KO = 0:K9 = O:PS = 0:PO = O 


260 PS = PS + 1: IF PS< =3T 
HEN K = KO:P = PO: PRINT "ETAPA 
";PS: GOTO 280 

270 PO = P: RETURN 

280 GOSUB 980 

290 GOSUB 910:0PS = IS: IF LE 
FTS (OP$,1) = "*" AND PS = 3 TH 
EN PRINT OPS 

300 IF LEFTS (OP$,1) = "*" TH 
EN 280 

310 IF OPS = "END" AND PS = 3 
THEN PRINT PRINT ” FIM. ENDE 
RECO FINAL: ";P - 1 

320 IF OP$ = "END" THEN 260 
330 IF OPS < > "ORG" AND OPS 
< > "Pê=" THEN 370 

340 GOSUB 910:S = O: IF LEFTS 
(18,1) = "2" THEN S = P:IS = 
RIGHTS (I$, LEN (18) - 1) 

350 P = VAL (I8) + 8: IF PS = 
3 THEN PRINT * ORG" ;P 

360 coTo 280 

370 IFP = O THEN PRINT "FALT 

A ORG": RETURN 

380 IF OPS < > "gPt=" AND OPS 
< > "TXT" THEN 420 

390 GOSUB 910: IF PS = 3 THEN 
PRINT * TXT";I8; TAB( 20); 

400 FOR J = 2 TO LEN (I$):BY 


= ASC ( MIDS (IS + 18,J,1)): I 
F J> = LEN (1$) THEN BY = 13 
410 GOSUB 870: NEXT J: GOTO 28 
o 


420 IF LEN (OPS) < > 3 THEN 
FOR I = 1 TO 1: GOTO 440 


Traduzir mnemônicos Assembly para 
código de máquina é uma tarefa 
extremamente cansativa. Deixe o Apple 
trabalhar por você: ele o fará 

com rapidez e facilidade. 









430 FORI =1+3* ( ASC (OPS 
) - 65) TO 76: IF OPS = KS(I) T 


HEN 490 

440 NEXT : IF PS = 3 THEN PRI 
NT OP$ 

450 IF LEFT$S (18,1) = ".” THE 
N IS = RIGHTS (IS, LEN (13) - 
1) 


460 GOSUB 1010:RR(Q2) 
I3 = **” THEN 290 

470 IF PS - 3 THEN PRINT "(LI 
NHA NAO RECONHECIDA)” 

480 Goro 280 

490 ADS = "40":R = O: IF KZ(I) 
< > 0 THEN GOSUB 910:ADS = IS 
:0P = K2(I) 


- Pp: IF 





500 IF PS = 3 THEN PRINT" "; 

OP$;: IF KZ(I) < > O THEN PRI 
:ADS; 

510 IF LEFTS (ADS,1) = "4" TH 

EN ADS = RIGHTS (ADS, LEN (ADS 

) - 1):0P = KI(I) 

520 IF RIGHTS (ADS,1) < >") 

* THEN 530 

525 OP = OP - 20:ADS = MIDS (A 

D$,2, LEN (ADS) - 2): IF OP = 4 

8 THEN OP = 100 

530 IF RIGHTS (ADS,2) = ";x” 

THEN OP = OP + 16:ADS = LEFTS 


(ADS, LEN (ADS) - 2) 

540 IF ADS = "A” THEN ADS"0”":O 

P=0p+4 

550 IF RIGHTS (ADS,2) < 

Y” THEN 580 

560 OP = OP + 16:ADS = LEFT$S ( 

ADS, LEN (ADS) - 2): IF RIGHTS 
(OP$,1) < > "x" THEN OP = OP 

- 4:R = 65536 

570 IF RIGHTS (ADS,1) 

HEN ADS = MIDS (ADS,2, 

Ss) - 2):R = R - 65536 

580 8 = 1 

590 IF ADS = "" THEN 770 

600 X3 = LEFTS (ADS,1): 

N (ADS) = 1 THEN BDS = "": 
610 

605 BDS = 

8) - 1) 

610 IF X3 = "x" THENR=R+pP 
* S:ADS = BD$: GOTO 580 

620 IF XS = "+" THEN ADS = BDS 
: GOTO 590 

630 IF XS = "-" THEN ADS = BD$S 

:S = - 8: GoTO 590 

640 Q = 0 

650 IF (X3< >"g” ANDXS< 

> "s”) OR BD$ < "0" OR BDS > = 
"G” THEN 690 

660 FOR Q2 = 0 TO 15: IF LEFT 

S (BDS,1) < > MIDS (H$,02 + 1 

»1) THEN 680 

670 Q = Q* 16 + q2: 


pos 


=)" 7 
LEN (AD 





IF LE 
Goto 


RIGHTS (ADS, LEN (AD 


IF LEN (B 




























































= 1 THEN BDS = "": 
RIGHTS (BD$, 


D3) 
675 BD$S = 
8) - 1): Goto 660 

680 NEXT :R = R + Q * S:ADS 
BD$: GOTO 580 
690 IF X3S <a” 
EN 720 

700 IS = ADS: GOSUB 1010: 
< > "" THEN GOSUB 1050 
710 R = R + RR(Q2) * S:ADS = 
* GOTO 580 

720 IF x8< "0" ORXS> 
EN R = O: GOTO 760 


OR X$ > "Z” 


IF 


"9" 





coro 660 
LEN (BD 


TH 
Is 
13 
TH 














E TRADUÇÃO DE MNEMÔNICOS E MANIPULAÇÃO 
ASSEMBLY PARA CÓDIGO DE RÓTULOS 
HEXADECIMAL HE TRANSFERÊNCIA DO PROGRAMA 

E CÁLCULO DE SALTOS EM CÓDIGO 





E DESVIOS 


PARA À MEMÓRIA 





730 
THEN 750 


740 Q = Q * 10 + 
LEN (ADS) 


8: IF 
"": Goro 7 
745 ADS = 


8, - 1): 


IF ADS < “0” 


30 


RIGHTS (ADS, 
Goto 730 


OR ADS > "9º 


ASC (ADS) - 
= 1 THEN ADS 


750 R = R+Q * S: GOTO 580 


760 


IF PS = 3 THEN 


PRINT "(EI 


DERECAMENTO INVALIDO)”; 


770 PP = (OP - ( ABS (OP) > = 
8) * 8* INT (OP/8)> =4) 
*4 + (0P> = — 4 AND OP < 





4 


LEN (AD 


N 





1) 24 
772 RP =R-P-2:RP= 
ABS ((RP < 0) * 
) * 256 - ABS (RP - (RP> =2 
56) * 256 * INT (RP / 256))) 
775 IF LEFTS (OP$,1) = "B” AN 
D (0 = PP AND OP > 0) THEN R = 
RP 
780 IF JLEFTS (OP8,1) = "J” OR 
LEFTS (OP$,1) = “W” THEN R = 
R + 65536 
790 IF R > 255 THEN OP = OP + 
8 


ABS ( 
INT (RP / 256) 


800 KZ = KZ(I):PA = ABS ( ABS 
(COP < 0) * INT (OP / 16)) * 1 
6 - ABS (OP - (OP > = 16) *1 
6 * INT (OP / 16))) 

805 IF PA = 10 THEN KZ = O 
810 IF PS = 3 THEN PRINT TAB 


( 16);:BY = P / 256: GOSUB 890: 
BY = P - 32768: GOSUB 890: GOSU 


B 850 

820 IF OP > = O THEN BY = OP 
/ 256: GOSUB 870:BY = OP: GOSUB 
880 

830 IF KZ = O THEN 280 


840 GOSUB 850:BY = R - 256 * 
INT (R / 256): GOSUB 880:BY = R 
/ 256: GOSUB 870: GOTO 280 
850 IF PS = 3 THEN PRINT * *; 
860 RETURN 
870 IF INT 
RETURN 
880 P- P+ 1:YY = 
(BY < 0) * INT (BY/ 256)) *2 
56 - ABS (BY - (BY > = 256) * 
256 * INT (BY / 256))): IF PS 
= 3 THEN POKE P - 1,YY 
890 BY = ABS ( ABS ((BY < 0) * 
INT (BY / 256)) * 256 - ABS 
(BY - (BY > = 256) * 256 * IN 
T(I/ 256))) 
895 yr = ABS ( ABS ((BY < 0) * 
INT (BY / 16)) * 16 - ABS (B 
T-(Br> =16)*16%* INTG(B 
Y / 16))): IF PS = 3 THEN PRIN 
T MIDS (HS,BY / 16 + 1,1); MID 
s (HS,YY + 1,1); 
900 RETURN 
910 IF K>N THEN IS = "END: 
RETURN 
920 K1 = K9 + 1: IFK9> = LE 
N (TS(K)) THEN IS = */FALTANDO/ 
”: RETURN 
930 K9 = Kl: IF MIDS (TS(K),K1 
1) ” THEN 920 
940 IF K9 > LEN (TS(K)) THEN 
IS = MIDS (TS(K),K1,K9 - K1): 
RETURN 
950 IF MIDS (TS(K),K9,1) < > 
” * THEN K9 = K9 + 1: GOTO 940 
960 IS = MIDS (TS(K),KI,K9 - K 


(BY) < = O THEN 


ABS ( ABS ( 













1) 
970 RETURN 
980 IF K9< = LEN (T3(9)) AN 


D PS = 3 THEN IF JLEN (TS(K)) 
> K9 - 1 THEN PRINT RIGHTS (T 
S(K), LEN (TS(K)) - K9 + 1); 





990 K = K + 1:K9 = 0: IF PS = 3 
THEN PRINT 

1000 RETURN 

1010 Xx3 = "" 

1020 IF IS<"A”ORIS>ãa=" 
” THEN 1040 

1030 XS = X3 + LEFTS (18,1): 1 
F JLEN (18) = 1 THEN IS = :0 
oTO 1020 

1035 IS = RIGHTS (IS, LEN (18) 
- 1): GoTO 1020 


1040 IF IS < > "* THEN RETURN 
1050 FOR Q2 = 1 TO VV: IF XS = 
Z8(02) THEN 1070 
1060 NEXT :VV = UV + 1:Z3(VV) 
= X3:02 = VV:RR(VV) = 32768 
1070 RETURN 
1080 INPUT "NOME DO ARQUIVO "; 
AR$:DS = "": REM CTRL-D 
1090 PRINT D3;"OPEN”;AR: PRIN 
T D$;"READ";ARS$: INPUT N: FOR J 
= 1 TO N: INPUT T$(J): NEXT : 
PRINT D$;"CLOSE”;AR$: RETURN 
"NOME DO ARQUIVO "; 
REM CTRL-D 
1110 PRINT DS;“OPEN";ARS$S: PRIN 
T D$;"WRITE";ARS: PRINT N: FOR 
J = 1 TO N: PRINT TS(J): NEXT : 
"CLOSE" ;AR$: RETURN 
INPUT "QUAL O NUMER 
HOME 
PRINT K;: INPUT 
= "" THEN RETURN 










1150 KZ = K / 10: IF K2 > N THE 
NKZ=N+1:N=N+1 

1160 IF KZ < .1 THEN KZ = .1 
1170 IF KZ = INT (K2) THEN 11 
90 

1180 KZ = INT (K2) + 1: FOR K3 
= N'TO KZ STEP - 1:TS(K3 + 1) 
» TS(K3): NEXT :N = N+1 


1190 TS(K2) = IPS:K = K + 10: G 
oTo 1140 

1200 K = O: INPUT "QUAL O NUMER 
O DA LINHA ";K:KZ = K / 10 

1210 IF KZ >NORKZ<10ORKZ 
> INT (K2) THEN RETURN 


1220 FOR K3 = K2 TO N:TS(K3) = 


TS(K3 + 1): NEXT :N = N- 1: R 
ETURN 
1230 IF N = O THEN RETURN 


1240 K = 0:K2 = O: HOME : INPUT 
"QUAL A PRIMEIRA E A ULTIMA LI 
NHA ";K,K2Z:K1I = K / 10:K2 = KZ 


/ 10 

1250 IF KZ >N THENK2Z=N 
1260 IF Kl<1 THENKI=1 
1270 HOME : FOR K3 = Kl TO K2: 





PRINT * ";K3 * 10;” 
NEXT : RETURN 
1300 END 


Nas linhas 1080 e 1100, a variável DS 
deve conter o caractere produzido pelas 
teclas <CTRL> e <D> pressionadas 
ao mesmo tempo. DS, portanto, não es- 


sTS(K3): 


tá vazia. CTRL + D é um caractere de 
controle para uso do disco. 


[eo Lona TA 


Uma vez digitado o programa, rode- 
o. Normalmente, ele é colocado na área 
livre da memória que vai de 300 até 3EF, 
em hexa, ou de 768 até 1007, em deci- 
mal. Se quisermos colocá-lo em código 
em outro local, devemos proteger esta 
área da memória (veja página 88). 

Depois que o programa for rodado, 
surgirá um menu na tela. Para entrar um 
programa em Assembly, deve-se esco- 
lher a opção 4, que diz “EDITAR LI- 
NHA”. O Assembler usa linhas BASIC 
com números múltiplos de 10. 

A primeira linha — número 10 — de- 
ve conter o endereço inicial do progra- 
ma em código. Ela ficará mais ou me- 
nos como esta: 


10 org 800 


«. determinando que o programa em 
código seja colocado na memória a par- 
tir deste endereço. Se tivermos protegi- 
do outra área da memória para colocar 
nosso programa em código, a origem 
deve ser o endereço inicial daquela por- 
ção da memória. 

Depois da primeira linha, os núme- 
ros de linha múltiplos de dez aparecem 
automaticamente, toda vez que se pres- 
siona a tecla RETURN. Cada linha de- 
ve conter apenas um mnemônico e seus 
operandos. Caso se pretenda ii inserir uma 
linha entre duas já existentes, utiliza-sé 
um número de linha intermediário — e 
o programa se encarrega da inserção. Os 
rótulos, ou /abels — que indicam os lo- 
cais para onde o programa será desvia- 
do —, devem ficar no início da linha, 
precedidos de um ponto. Os rótulos pre- 
cisam ter mais de uma letra e não po- 
dem ser iguais a nenhum mnemônico. 
São empregados mnemônicos padrão do 
6502, com uma exceção: o uso do 
ponto e virgula no lugar da virgula. Is- 
to é necessário porque o programa uti- 
liza a instrução INPUT para receber as 
linhas. Uma vírgula provocaria a men- 
sagem de “EXTRA IGNORADO”. 

Caso deseje evitar a tradução de uma 
linha, coloque um asterisco antes dela. 
Ao pressionar RETURN, surgirá a pró- 
xima linha, mas se a mesma tecla for 
pressionada novamente, sem que qual- 
quer coisa tenha sido escrita na linha, 
o programa retornará ao menu. 

O menu fornece a opção de listar o 
programa. Se outra tecla for pressiona- 
da, volta-se ao menu. Podemos também 
optar por apagar uma linha, ou simples- 











mente escrever a nova, com o mesmo 
número no modo de edição. 

Quando estivermos satisfeitos com o 
programa em Assembly que digitamos, 
podemos acionar a opção de “monta- 
gem” do programa. O Apple mostrará, 
então, os mnemônicos acompanhados 
dos códigos hexa correspondentes, ao 
mesmo tempo em que coloca estes có- 
digos na memória. 

Pode-se gravar o Assembler em fita 
ou disco, como qualquer outro progra- 
ma (veja página 53). Os mnemônicos — 
ou programa fonte — devem ser grava- 
dos e lidos em disco usando as opções 
correspondentes. 

O programa em código, por sua vez, 
pode ser gravado em fita ou disco utili- 
zando-se o monitor do Apple, ou por 
meio do comando BSAVE. 

Para rodá-lo, deve-se sair do Assem- 
bler, por meio da opção “SAÍDA”, e 
digitar: 


CALL 800 


O que fazer quando um programa 
longo — como este Assembler — não 
funciona depois de digitado? 

Mesmo o programador mais expe- 
riente tem problemas ao digitar progra- 
mas longos. Sempre se comete algum 
erro, e é muito difícil localizá-lo. 

A maioria dos erros provoca uma 
mensagem que orienta o programador 
na direção correta (veja página 141). 
Mas programas longos seguem cami- 
nhos tortuosos, entram em laços e fa- 
zem saltos, de modo que o número de 
linha indicado na mensagem de erro al- 
gumas vezes não ajuda em nada. 

Por tudo isso, é necessário contar 
com uma função de rastreamento, co- 
mo a função TRACE, disponível no Ap- 
ple. Com ela podemos ver o número da 
linha que está sendo executada, o que 
torna mais fácil diagnosticar os erros. 
Para utilizá-la, basta digitar TRACE no 
modo imediato, isto é, sem número de 
linha na frente. Depois, rode o progra- 
ma e veja o rastreamento em ação. A 
função é desativada por NONTRACE. 

Assim, não descarte o programa se 
ele não funcionar na primeira tentati- 
va. Procure pelos erros mais comuns. 
Se ocorrer um “OUT OF DATA”, por 
exemplo, verifique com atenção suas 
linhas DATA. Se você tiver esquecido 
um número, ou mesmo uma vírgula, o 
programa não funcionará. 














Empregadas em quase todos os tipos de 
programas, as cadeias de 

caracteres [ou cordões) são muito úteis 
para quem quer trabalhar com 

algo mais do que simples números. 


Um cordão (ou string, em inglês) é, 
como já vimos, um conjunto de carac- 
teres. Estes, por sua vez, podem ser le- 
tras, números, sinais de pontuação ou 
quaisquer outros símbolos disponíveis 
no teclado. 

Normalmente, um cordão contém 
uma ou mais informações úteis, ou mes- 
mo partes de informação. Por exemplo, 
o cordão “PEDRO SILVA 241067 S” 
engloba diversos dados sobre uma úni- 
ca pessoa: nome, sobrenome, data de 
nascimento e estado civil. Esses dados 
são considerados como uma mesma co- 
municação. A data de nascimento pode 
ser dividida em dia, mês e ano; assim, 
na verdade, existem no total seis partes 
distintas de informação. 

Em casos como o do exemplo acima, 
faz-se necessário fracionar o cordão pa- 
ra extrair as diferentes partes da comu- 
nicação. Em outros, ao contrário, po- 
de ser necessário unir dois ou mais cor- 
dões. Há casos, ainda, em que se torna 
imprescindível medir a extensão de um 
cordão (número total de caracteres) e 
calcular o valor de algumas de suas par- 
tes numéricas. Tudo isso é possível 


OM. E 
guAMAME NOM one NOMi 
qmE Taio FAMILENNAME so 

re 


quando se utilizam certas funções e de- 
clarações disponíveis no BASIC da 
maioria dos computadores. 
Conhecida como concatenação, a 
mais simples dessas operações consiste 
em unir cordões. Para efetuá-la, empre- 
ga-se o símbolo “+”, Assim, se A$ for 
igual a “TUDO” e BS igual a “BEM”, 
então A$ + BS será “TUDO BEM”. 
A concatenação junta os cordões sem 
acrescentar nada a eles. Assim, “439” + 
“241” é igual a “439241” e não a 680. 


COMO COMPARAR COR E 


Assim como é capaz de concatenar 
cordões, o computador pode compará- 
los para verificar se são iguais, como 
nesse simples jogo de adivinhação. 


Este programa funcionará no ZX-81 
se você separartodas as linhas de decla- 
rações múltiplas. 


10 LET G=l: 
10+10 
20 LET B$="MACA”: 


GOTO INT (RND*6)* 
coTo 80 


30 LET BS="LARANJA”: GOTO 80 
40 LET B$="BANANA”: GOTO 80 
50 LET B$="LIMAO”: GOTO 80 
60 LET B$-"FRAMBOESA”: GOTO 
so 
70 LET BS="ABACAXI”: GOTO 80 
80 CLS : PRINT "EU SOU UMA FR 
AS INTIALES 
ALÉM INICIAIS 








COMPARE E CLASSIFIQUE 

CORDÕES ALFANUMÉRICOS 
E | COMO FRACIONAR CORDÕES 
E UTILIZE CORDÕES PARA 
PROCESSAMENTO DE PALAVRAS 











UTA. QUE FRUTA SOU EU?” 
90 INPUT AS 

IF A$=B$ THEN GOTO 160 
LET G=G+1 

120 PRINT "ERRADO" 


130 FOR J=1 TO 200 

140 NEXT J 

150 coTo 90 

160 IF G=1 THEN PRINT "VOCE A 


CERTOU NA PRIMEIRA TENTATIVA”: 
STOP 

170 PRINT "VOCE ACERTOU APOS ” 
16;" TENTATIVAS” 

180 STOP 


10 G=1:0N RND(6) GOTO 20,30,40, 
50,60,70 

20 B$="MACA”:GOTO 80 

30 B$="LARANJA”:GOTO 80 

40 B$="BANANA”:GOTO 80 

50 B$="LIMAO”:GOTO 80 

60 B$="FRAMBOESA”:GOTO BO 

70 BS$="ABACAXI” 

BO CLS:PRINT"EU SOU UMA FRUTA. 
QUE FRUTA SOUEU?” 





90 INPUT AS 

100 IF A$=BS THEN GOTO 160 

110 G=G+1 

120 PRINT"ERRADO!” 

130 FOR J=1 TO 1000 

140 NEXT J 

150 GoTo 90 

160 IF G=1 THEN PRINT"VOCE ACER 


TOU EM UMA TENTATIVA” 
T"VOCE ACERTOU APOS" ;G 
vas” 


ELSE PRIN 
; " TENTATI 























ha 


5 R=RND(-TIME) 

10 G=1:0N INT(RND(1)*6)+1 GOTO 
20,30,40,50,60,70 

20 B$="MAÇA”:GOTO 80 

30 B$="LARANJA” :GOTO 80 

40 B$=-"BANANA”:GOTO BO 

50 B$="LIMAO”:GOTO 80 

60 B$="MARACUJA” :GOTO 80 

70 B$="ABACAXI”:GOTO 80 
80 CLS:PRINT"Adivinhe: 
a sou eu?” 


que frut 


90 INPUT AS 

100 IF A$=B$ THEN 160 

110 G=G+1 

120 PRINT"Você errou!” 

130 FOR J= 1 TO 600 

140 NEXT 

150 goto 90 

160 IF G=1 THEN PRINT"Você acer 
tou na primeira!” ELSE PRINT"Vo 


i"vezes até acertar 





cê tentou” 


ÉS] 


Copie o programa anterior sem a li- 
nha 5 e troque CLS por HOME. Modi- 
fique a linha 160 e adicione a 170 como 
se segue: 


160 IF G=1 THEN PRINT"Voce acer 
tou na primeira!”:END 

170 PRINT"Voce tentou ";G;" 
es...” 





vez 


Aqui, a linha 10 coloca o contador 
de palpites em 1 e “lança” em seguida 
um dado eletrônico, que serve para se- 
lecionar uma fruta, ao acaso, As opções 
são armazenadas nas linhas 20 a 70, 
Qualquer que seja a linha que o com- 
putador passe, ele armazena a fruta co- 
mo um cordão em B$ e vai para a linha 
80. Nesse ponto você tem que adivinhar 
qual fruta foi sorteada e digitar seu pal- 
pite, que será armazenado em A$ e com- 
parado com B$. Se estes forem iguais, 
o computador imprimirá: “Você acer- 
tou na primeira!”, ou “Você tentou 
(tantas) vezes até acertar...””, Se A$ não 
for igual a B$ o computador imprimi- 
rá: “Você errou"; nesse caso, uma no- 
va tentativa deve ser feita. 

Mesmo que você adivinhe o nome da 
fruta, a condição A$ = B$ não será sa- 
tisfeita se você escrevê-lo de modo in- 
correto. Para que o computador consi- 
dere dois cordões iguais, eles devem ser 
graficamente idênticos — isto é, letras, 
espaços, sinais de pontuação e números 
devem ser iguais. 

Uma das funções dessa técnica é ve- 
rificar entradas: 

















IF A$= "SIM” THEN PRINT "VOCÊ 
TEM CERTEZA?” 

A condição não será satisfeita se a pa- 
lavra “sim” for digitada com letras mi- 
núsculas. 





[ias 


As cadeias de caracteres também po- 
dem ser comparadas utilizando-se os si- 
nais de desigualdade < e > em linhas 
como essa: 

IF AS<BS THEN PRINT 
E ";AS 


"O PRIMEIRO 


Aqui, a condição A$<B$ pergunta 
se o cordão em A$ vem antes do cordão 
em B$, quando eles são colocados em 
ordem alfabética. Mas tenha cuidado: 
o computador coloca cordões em ordem 
alfabética, examinando o código ASCII 
de cada uma das letras ou caracteres que 
compõem o cordão; por exemplo, a le- 
tra À no código ASCII equivale a 65 e 
Z, a 90. O problema é que as letras mi- 
núsculas também possuem códigos AS- 
Cll;oa é97 coz, 122. Assim, todos 
os cordões que começarem com letras 
maiúsculas serão colocados em primei- 
ro lugar. 

Para complicar ainda mais, sinais de 
pontuação, espaços e outros signos tam- 
bém possuem códigos ASC! essa for- 
ma é difícil prever em que ordem ficará 
um cordão constituído por diversos 
signos. 

Com o devido cuidado, os operado- 
res de maior (>) e menor (<), ainda po- 
dem ser utilizados para organizar cor- 
dões em ordem alfabética. Uma rotina 
de ordenação alfabética, que aplica a 
chamada técnica de ordenação por bo- 
lhas, será explicada mais adiante numa 
lição sobre estruturação de programas. 




















da no cordão A$ e fornece tantos carac- 
teres quantos forem especificados no 
número entre parênteses. Se A$ for “SR 
MARIO SILVA” e você especificar dois 
caracteres — LEFTS (A$,2) —, o resul- 
tado será “SR”. 

De igual modo, o comando RIGHTS 
conta a partir da outra ponta do cordão 
— ou seja, de seu final à direita. Assim, 
RIGHTS (A$,5) produzirá “SILVA”. 

Com o MIDS você pode especificar 
dois parâmetros: a posição inicial no 
cordão, e o número de caracteres a se- 
rem extraídos. Por exemplo, MID$S 
(A$,4,5) começará no quarto caractere 
M e pegará cinco cteres, produzin- 
do “MARIO”. Se for espe: 
mente um número, tal como em 
MIDS(AS,4), a função retornará todos 
os caracteres daquela posição, até o fi- 
nal do cordão. 

O método empregado pelos micros 
da linha Sinclair, tais como o ZX-81 e 
o ZX Spectrum, é mais simples e dire- 
to, Nesses computadores, existe apenas 
uma função para manipulação de cor- 
dões: o comando TO. Por exemplo, A$ 
(número TO número). A$ identifica o 
cordão a ser fracionado e os dois parã- 
metros correspondentes ao início e ao 
fim do sub-cordão a ser extraído. 

Usando o mesmo cordão do exemplo 
anterior, A$ = “SR MARIO SILVA”, 
AS(1 TO 2) dá a você “SR”, A$ (4 TO 
8) fornece “MARIO” e AS(10 TO 14) 
produz “SILVA”, Não é necessário es- 
pecificar os números na função acima 
Se for omitido o primeiro, o sub-cordão 
a ser extraído se iniciará no primeiro ca- 
ractere. Se o segundo for omitido, a fun- 
ção extrairá até o final do cordão. 

Eis aqui um programa que utiliza to- 
das as funções explicadas acima. E um 
jogo de palavras para duas pessoas. 
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É possível também separar 
um caractere ou uma seguên- 
cia de caracteres de um cor- 
dão. Nos computadores 
TRS, MSX e Apple II is- 
so é feito utilizando-se 
funções LEFTS, RIGHTS 
e MIDS. Já o Spectrum 
aplica uma técnica dife- 
rente. 

A função LEFTS$ (AS, 
número) toma caracteres a 
partir do primeiro à esquer- 
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AGE NC vz 












































































Uma delas entra uma expressão cujas le- 
tras serão embaralhadas e impressas pe- 
lo computador como um anagrama pa- 
ra o segundo jogador resolver. 





10 CLS 

20 PRINT €75,"ANAGRAMA” 

30 PRINT 6161,"DIGITE A PALAVRA 
A SER EMBARA LHADA” 

40 AS=INKEYS:IF A$="" THEN 40 
43 IF AS=CHR$S(13) THEN 55 

46 IF AS<” " THEN 40 

49 WS=WS+AS:GOTÔ 40 

55 WORDS=WS 


70 CLS 

80 FOR N=LEN(WS)TO 1 STEP -1 

90 M=RND(N) 

100 AS=AS+MIDS (WS,M,1) 

110 WS=LEFTS (W$,M-1)+MIDS (WS, M+ 
1) 

120 NEXT N 

130 PRINT €65,"0 ANAGRAMA E "AS 
140 PRINT €129,"QUE PALAVRA VOC 


E ACHA QUE E?” 

160 INPUT GUESSS$ 

170 G=G+1 

180 IF GUESSS<>WORDS THEN PRINT 
” ERRADO, TENTE OUTRA VEZ” :GOTO 
160 

190 PRINT:PRINT” MUITO BEM !” 
200 IF G=1 THEN PRINT” VOCE USO 
U 1 TENTATIVA” ELSE PRINT"VOCE 
USOU" ;G; "TENTATIVAS" 

210 PRINT €480,"QUER JOGAR DE N 


Ovo (S/N)?” 
220 AS=INKEYS:IF AS<>"S” AND AS 
<>"N” THEN 220 
230 IF AS="S” THEN RUN 
240 END 
10 CLS LET a$="": LET q=0 
20 PRINT '” ANAGRAMA” 


30 PRINT ''"DIGITE A PALAVRA 
A SER EMBARALHADA” 
40 POKE 23609,20: 
B: POKE 23624,63 
50 INPUT w$ 

55 LET s$-wS 

60 POKE 23624,56 
70 cLs 
80 FOR 
90 LET 
100 LET 
110 LET 
To ) 
120 
130 
140 
CHA 
160 
170 
180 
ADO, TENTE OUTRA VEZ”: 


POKE 23658, 


n=LEN w$ TO 1 STEP -1 
m=INT (RND*n)+1 
a$=aS+ws (m) 

w$=wS( TO m-1)+wS (m+1 


NEXT n 

PRINT '"O ANAGRAMA E ";as 
PRINT '"QUE PALAVRA VOCE A 
QUE E?” 

INPUT LINE q9$ 

LET 9g=9+ 

IF 9$<>s$ THEN PRINT "ERR 
Goro 160 


190 PRINT '"MUITO BEM!” 

195 IF q=1 THEN PRINT "VOCE P 
RECISOU DE UMA TENTATIVA!”: 
Goro 210 

200 PRINT "VOCE PRECISOU DE "; 
9;” TENTATIVAS” 

210 PRINT '"QUER JOGAR OUTRA V 
EZ(S/N)?” 

220 LET aS=INKEYS: IF aS<>"s” 
AND a$<>"N” THEN GOTO 220 


230 IF a$="S” THEN RUN 

10 HOME 

20 HTAB 5: VTAB 2: PRINT "PROG 
RAMA DE ANAGRAMAS” 

30 VTAB 5: PRINT "DIGITE UMA P 


ALAVRA PARA SER MISTURADA:” 
50 INPUT W$ 
55 WOS = WS 
70 HOME 
80 FORN = 
-) 
90 M = 
DA 
100 AS = AS + 
105 IF M= 1 THENWS = 
WS,M + 1): GOTO 120 
110 WS = LEFTS (WS,M - 1) + M 
IDS (W$,M + 1) 
120 NEXT 
130 HTAB 4: 
ANAGRAMA E: ";AS 
140 PRINT HTAB 4: 
PALAVRA E ESTA "; 
160 INPUT GUESSS 
170 G=G+1 


LEN (W$) TO 1 STEP 
INT ( BND (1) * (N - 1) 


MIDS (WS,M,1) 
MIDS ( 


VTAB 12: PRINT "O 


PRINT "QUE 


180 IF GUESSS$ < > WOS THEN P 
RINT : PRINT “ERRADO! TENTE NOV 
AMENTE.”: GOTO 160 

190 PRINT PRINT "MUITO BEM!” 
200 IF G = 1 THEN PRINT “VOCE 
ACERTOU NA PRIMEIRA!": GOTO 21 
0 

205 PRINT "VOCE TENTOU ";G;" V 
EZES.” 

210 PRINT : PRINT PRINT "VOC 
E JOGA OUTRA VEZ? "; 

220 GET AS: IF AS < > "S” AND 
AS < > "Nº THEN 220 

230 IF AS = "S” THEN RUN 

240 END 


hay 


10 CLS:R=RND(-TIME) 

20 LOCATE 5,2:PRINT” 
PROGRAMA DE ANAGRAMAS” 
30 LOCATE 1,5:PRINT” 
Digite uma palavra para 
ser misturada:” 

50 INPUT WS 
55 woS=wSs 
70 cLS 
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90 M=INT(RND(1)*(N-1))+1 

100 AS=AS+MIDS (W$,M,1) 

110 WS$=LEFTS (W$,M-1)+MIDS (WS,M+ 
1) 
120 
130 
a é: ";aAS 

140 LOCATE 4,14:PRINT"Que palav 
ra é esta? " 

160 INPUT GUESS$S 

170 G=G+1 

180 IF GUESS$<>WOS THEN PRINT ” 
Errado! Tente novamente.”:GOTO 
160 

190 PRINT:PRINT"Muito bem!” 

200 IF G=1 THENPRINT"Você acert 
ou na primeira!" ELSE PRINT"Voc 
& tentou”; vezes.” 

210 PRINT:PRINT:PRINT"Você joga 
outra vez? (S/N)” 

220 AS=INKEYS:IF AS<>"S” AND AS 
<>"N” THEN 220 
230 IF AS= "s” 
240 END 


NEXT 
LOCATE 4,12:PRINT"O anagram 





THEN RUN 


Quando rodar esse jogo, você verá 
que a palavra digitada em primeiro lu- 
gar não aparecerá na tela. Esse oculta- 
mento tem por objetivo evitar que o seu 
adversário veja qual é a palavra. Cada 
computador utiliza um método diferente 
para fazer isso. Os micros da linha Spec- 
trum imprimem a palavra na mesma cor 
do plano de fundo, de modo a torná-la 
invisível. 

O TRS-Color entra a palavra utili- 
zando INKEYS, que apanha um carac- 
tere por vez no teclado, sem imprimi-los 
na tela. O MSX e o Apple II simples- 
mente apagam a tela depois da digita- 
ção da palavra, 

A rotina para embaralhar as letras es- 
tá nas linhas 80 a 120. O que acontece 
é que os caracteres são apanhados alea- 
toriamente na palavra e acrescentados 





































(um de cada vez) a A$ que, gradualmen- 
te, monta o anagrama. 

A linha 90 escolhe um número alea- 
tório M, entre 1 e a extensão da pala- 
vra. A linha 100 pega a M-ésima letra 
e a acrescenta a A$. A linha 110 remo- 
ve esse caractere da expressão original, 
tomando a parte esquerda da palavra até 
a posição M (exclusive) e acrescentan- 
do o que vier após M. Agora, a expres- 
são terá um caractere a menos, mas da 
próxima vez, ao fechar o laço, a variá- 
vel N também terá seu valor reduzido de 
um; assim, o número aleatório M será 
novamente limitado pela extensão da 
palavra. 

Quando todos os caracteres tiverem 
sido extraídos, o anagrama será impres- 
so na tela e o seu adversário terá que adi- 
vinhar qual a palavra original. Quando 
ele acertar, o computador informará so- 
bre o número de tentativas feitas duran- 
te o jogo e oferecerá uma nova partida. 

É bastante fácil alterar esse progra- 
ma, de modo a fazer com que as pala- 
vras sejam lidas a partir de uma lista de 
dados em linhas DATA, em vez de 
entrá-las separadamente a todo momen- 
to. Você pode igualmente elaborar um 
sistema de contagem de pontos, atri- 
buindo, por exemplo, dez pontos para 
uma adivinhação correta feita na pri- 
meira tentativa, nove para uma adivi- 
nhação correta após duas tentativas e as- 
sim por diante. 

Uma outra utilização desse método 
de fracionamento é a manipulação de 
datas. Estas formam um cordão, mes- 
mo quando são digitadas em forma nu- 
mérica — como, por exemplo, 
27/03/51, que significa 27 de março de 
1951. É bem verdade que você não po- 
de rhanipular uma data expressa desse 
modo pelas leis normais da matemáti- 
ca. Mas pode trabalhar com diferentes 
partes de uma data utilizando arit- 
mética. 

Dessa maneira, é possível, por exem- 
plo, calcular quantos anos uma pessoa 
tem em um determinado dia, desde que 
se conheça a data de seu nascimento. Da 
mesma forma, pode-se calcular quantos 
dias se passaram entre duas datas deter- 
minadas. 

Os comandos LEFT$, RIGHTS e 
MIDS — ou os métodos equivalentes 
usados pelos micros da linha Sinclair — 
podem ser usados facilmente para sepa- 
rar o dia, o mês e o ano de uma data. 
Caso seja empregada a função VAL (ex- 
plicada mais adiante), os cordões con- 
tendo números poderão ser convertidos 








para números, que podem ser manipu- 
lados por meio de operações aritméticas 
tais como divisão, soma, subtração, etc. 
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As vezes é útil conhecer o compri- 
mento de um cordão. Se, por exemplo, 
você tiver um espaço limitado de memó- 
ria, reservado para a informação digi- 
tada no teclado, ou se dispuser de uma 
área restrita na tela para exibi-la, pode 
ser conveniente verificar a extensão da 
entrada antes de continuar com o 
programa. 

O comando LEN(AS$) fornece o nú- 
mero de caracteres de um cordão AS. E 
uma função numérica e pode ser mani- 
pulada de acordo com as leis da álgebra. 
Por exemplo, se A$=**SR JOÃO SIL- 
VA”, LEN (AS) = 13. Mas, se O progra- 
ma exigir que o usuário entre um nome, 
e só houver espaço suficiente na tela pa- 
ra exibir onze letras, o trecho seguinte 
poderá ser utilizado para informar ao 
usuário que ele deve limitar a extensão 
do nome a ser, entrado, eliminando le- 
tras ou mesmo palavras: 


asma] 


10 PRINT "DIGITE O NOME DO 
ASSUNTO” 

20 INPUT AS 

30 IF LEN(AS)>11 THEN PRINT 
"APENAS 11 CARACTERES 
DISPONIVEIS”;:GOTO 10 


O usuário deverá então reduzir sua 
entrada e teclar “JOÃO SILVA”, 


Em outros casos, pode ser mais fácil 
truncar automaticamente uma entrada. 
Isso é feito com uma linha tal como a 
que se segue: 


PL IiS] 


IF LEN(A$)>15 THEN LET AS= 
LEFTS(A$,15) 


consiste em fazer programas “à prova 
de idiotas”, ou seja, que impeçam a di- 
gitação equivocada dos dados. Por 
exemplo, na seção abaixo: 


100 PRINT "DIGITE UM NUMERO” 
110 INPUT A 


...O computador espera que o usuário 
digite um número. Se este digitar um ca- 
ractere não numérico, a maioria dos 
computadores imprimirá uma mensa- 
gem de erro. Esta, porém, avisará ape- 
nas que alguma coisa está errada, sem di- 
zer onde está o erro. 
Porém, se for utilizado: 


110 INPUT AS 


...O computador aceitará qualquer coi- 
sa digitada pelo usuário sem emitir men- 
sagens de erro. O passo seguinte será 
converter o cordão em um número. Pa- 
ra isso, utiliza-se a função VAL( ). Na 
maioria dos computadores, se houver al- 
guma letra misturada com números no 
cordão de entrada, VAL retornará um 
valor igual a 0. 

Infelizmente, esse método não serve 
para os micros da linha Sinclair, nos 
quais o emprego do comando VAL com 
um cordão de caracteres que contenha 
letras produz uma mensagem de erro. 
Nesses micros, a função VAL só deve 
ser usada se o cordão for constituído 
apenas de números. Assim, 
VAL('1984") fornecerá 1984; mas 
VAL(“26/10/84") fornecerá 0.03095.. 
porque os micros da linha Sinclair utili- 
zam o VAL para avaliar a expressão 26 
: 10; 84. Por esse motivo, os possuido- 
res do Sinclair não precisam ler o resto 
desta seção, dirigindo-se diretamente pa- 
ra o próximo “'capítulo” do artigo (De 
números a cordões). 

Nos computadores TRS-80, TRS- 






























IF LEN(AS)>15 ThEN 
LET AS=AS(TO 15) 













Uma das aplicações 
mais importantes das 
funções de conversão de | 
cordões para números 
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Color, Apple e MSX, a função VAL ex- 
trai a parte numérica do cordão. Assim, 
se A$ contiver apenas dígitos numéricos, 
VAL(= A$) retornará o valor numéri- 
co correspondente, que poderá ser pos- 
teriormente utilizado no programa. Se, 
ao contrário, A$ não contiver números, 
VAL(AS) retornará o valor 0. 

Você poderá então escrever uma pe- 
quena sub-rotina que explique em deta- 
lhes ao usuário que ele cometeu um er- 
ro, oferecendo-lhe ao-mesmo tempo ou- 
tra oportunidade de entrar os dados sem 
interromper o programa ou desarrumar 
a tela do computador. 

Um ponto importante a ser observa- 
do em relação ao comando VAL é que 
ele só extrai números no início do cor- 
dão. Dessa maneira, VAL('*25 Julho”) 
é igual a 25, mas VAL(“JULHO 25") 
é equivalente a 0. 

A função VAL é útil também para 
ordenar números extraídos de um cor- 
dão. Se, por qualquer razão, você tiver 
os nomes e as notas de uma classe de 
alunos em um cordão como A$=*'32 
CARLOS”, B$''45 MARCO! e 
C$=*'41 JOSE” e assim por diante, e 
quiser uma média dos resultados, o pri- 
meiro passo a ser dado será extrair as 
notas individuais utilizando o VAL. As- 
sim, VAL(= A$) fornece 32, VAL(=B$) 
extrai 45 e VAL (CS) separa 41. 

Do mesmo modo, o comando VAL 
pode ser utilizado para ignorar as uni- 
dades de medida digitadas junto com os 
valores. O próximo programa mostra- 
rá a você a diferença: 


asma byiáé io) 


100 LET A$S="32kKG” 

110 LET B$="110KG” 

120 PRINT"AS+B$S= ";AS+BS 

130 PRINT"VAL (AS) +VAL (B$) ="; VAL 
(AS) +VAL (BS) 

140 END 
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A função STR$ desempenha um pa- 
pel oposto ao do comando VAL: en- 
quanto este extrai números de cordões, 
aquela converte números em cordões. A 
vantagem dessa operação é que os cor- 
dões podem ser, por exemplo, fraciona- 
dos e concatenados. 

O comando STR$ possui, portanto, 
inúmeras aplicações. 

O programa a seguir transforma um 
número decimal em binário. Embora os 
computadores trabalhem diretamente 


com a aritmética de números binários, 
a linguagem BASIC é capaz de manipu- 
lar apenas decimais ou, em alguns ca- 
sos, hexadecimais e octais. Assim, quan- 
do um número binário aparecer em um 
programa em BASIC, ele precisa ser tra- 
tado como se fosse um cordão: 
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10 PRINT"DECIMAL PARA BINARIO” 
20 PRINT"DIGITE NUMERO DECIMA 
L INTEIRO” 

30 INPUT D 

40 LET B$="" 

50 LET BS=STRS(D-INT(D/2)*2)+BS 
60 LET D=INT(D/2) 

70 IF D<>0 THEN GOTO 50 

80 PRINT"O NUMERO BINARIO E”;BS 


Quando for entrado um número de- 
cimal positivo, a linha 40 igualará B$ a 
um cordão vazio ou nulo; este será en- 
tão progressivamente preenchido com 
dígitos obtidos pelo processamento nas 
linhas SO a 80. 

Na verdade, a linha 50 é a que mon- 
ta o número binário. Ela subtrai duas 
vezes o valor inteiro da metade do va- 
lor decimal, a partir do próprio núme- 
ro decimal. Essa é uma maneira de tes- 
tar se O número é impar ou par. Se for 
impar, o resultado da operação será 1; 
se for par, o resultado será 0. Estes são, 
como você já sabe, os dois dígitos bi- 
nários. 

Esses dígitos são convertidos em um 
cordão mediante o emprego da função 
STRS$; em seguida, eles-são montados 
por intermédio da concatenação de 
da novo dígito com o resto do cordão. 


Cum mama 


Os computadores MSX, 
TRS-80 e TRS-Color 
contam com duas fun- 
ções adicionais de ma- 
nipulação de cordões 
alfanuméricos: 
STRINGS e 
INSTR (estas 
não existem nos 
micros da linha 
Apple, TK-2000 
e Sinclair). O 
STRINGS(N,AS) 
produz um cordão 
de N caracteres de- 
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finidos por A$. N deve ser um número 
ou uma variável numérica, enquanto A$ 
deve ser uma variável alfanumérica, um 
caractere ou um cordão de caracteres en- 
tre aspas. Por exemplo, PRINT 
STRINGS (6, “*"”) imprimirá **+***. 

Nos microcomputadores das linhas 
TRS-80 e TRS-Color a função STRING$ 
utiliza somente o primeiro caractere do 
cordão especificado, ignorando o resto. 
Por exemplo, STRINGS; XBC”) impri- 
me XXX, apenas. 

Eis aqui dois programas (um para os 
modelos compatíveis com a linha TRS- 
Color e o outro para os da linha MSX) 
que utilizam STRINGS para imprimir 
uma borda decorativa na tela. Você po- 
de utilizá-los para abrilhantar a página- 
título de um jogo: 





10 cLSO 

20 AS$=CHRS$ (158) +STRINGS (30,CHRS 
(156) ) +CHRS (157) 

30 B$=CHRS$ (154) +CHRS (174) +STRIN 
GS(28,CHRS(172))+CHR$ (173) +CHRS 
(149) 

40 CS=CHR$ (154) +CHRS (171) +STRIN 
GS(28,CHRS$ (163) )+CHRS (167) +CHRS 
(149) 

50 D$=CHRS (155) +STRINGS (30,CHRS 
(147)) +CHRS (151) 

60 FS=CHR$(154)+CHRS (170) +STRIN 
GS(28," ")+CHR$(165)+CHRS (149) 
70 PRINT AS; 

80 PRINT BS; 

90 FOR K=1 TO 11 

100 PRINT FS; 

110 NEXT K 

120 PRINT CS; 

130 PRINT DS; 

140 PRINT €237,"0OLA !"; 

150 coTo 150 
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10 CLS:COLOR 6,11 

20 AS=CHRS (219) +STRINGS (36,210) 
+CHRS (219) 

30 BS=CHR$ (209) +CHR$ (32) +STRING 
S(34,192)+CHRS (32) +CHRS (209) 

40 CS$=CHRS (209) +CHRS (32) +STRING 
S(34,195)+CHRS (32) +CHR$ (209) 

50 D$=CHRS (209) +CHRS (222) +STRIN 
G$(34,32)+CHRS (221) +CHRS (209) 
70 PRINTAS 

80 PRINTBS 

90 FORK=1TOI8 

100 PRINTDS 

110 NEXT 

120 PRINTCS 

130 PRINTAS 

140 LOCATE 16,10:PRINT"OLA”; 
150 coTo 150 


Os programas para o TRS-Color em- 
pregam diversos caracteres para impri- 
mir as bordas, Os blocos são impressos 
com esquema de duas cores — amare- 
lo/preto e azul/preto. Para se fazer uma 
borda simétrica, as cores são invertidas, 
de cima para baixo, e da esquerda para 
a direita. Cinco cordões são utilizados: 
AS e B$ definem a parte superior da 
borda, F$ os lados, e C$ e D$ a mar- 
gem inferior. A linha 150 impede que o 
sinal de prontidão OK perturbe o resul- 
tado final na tela. O programa para o 
MSX também utiliza caracteres gráficos 
para fazer as bordas. 
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O comando INSTR examina o cor- 
dão, procurando pela primeira ocorrên- 
cia de um sub-cordão mais curto. As- 
sim, uma das aplicações mais comuns 
para o INSTR consiste em encontrar 
uma palavra dentro de uma sentença, ou 
uma letra dentro de uma palavra. 

Para usá-lo, especifica-se INSTR(AS, 
B$): isto significa que a função deve in- 
dicar a posição inicial do sub-cordão B$ 
no cordão A$. Por exemplo, PRINT 
INSTR(CALO”", “L”) exibirá o núme- 
ro 2. Se o computador não conseguir 
achar o cordão, ele retornará O: 


10 AS="ALO” 
20 BS="W” 
30 PRINT INSTR(AS,BS$) 

Em alguns micros é possível ainda es- 
pecificar um número que define a posi- 
ção no cordão maior, a partir da qual a 
função INSTR funcionará. Assim, em 
INSTR(P,AS$,BS$), essa posição é indi- 





cada por P. Essa forma de utilização é 
muito útil quando se deseja procurar 
ocorrências repetidas do mesmo sub- 
cordão no cordão principal. 

Suponhamos que se deseja encontrar 
todas as ocorrências da letra I na pala- 
vra INCONSTITUCIONAL. O primei- 
ro I está na posição 1. Para achar o se- 
gundo, entretanto, devemos usar o pa- 
râmetro P, de modo a começar a busca 
a partir de P=1+1 (ou seja, P igual a 
2); portanto, INSTR(P,“INCONSTI- 
TUCIONAL”,““I"). Para localizar a 
terceira ocorrência do I, o número P de- 
ve ser incrementado mais uma vez, e as- 
sim por diante, até que um resultado O 
seja retornado pela função. 

Esse comando serve ainda para veri- 
ficar uma entrada feita pelo teclado. Se 
for preciso escolher uma opção em um 
menu, digitando a sua letra inicial, as al- 
ternativas poderão ser: 








10 PRINT 
20 PRINT 
30 PRINT 
TEXTO” 
40 PRINT "(E)DITAR O TEXTO” 
50 PRINT "ESCOLHA UMA OPÇÃO” 
60 INPUT AS 

O modo mais fácil de se verificar a 
validade de uma letra digitada pelo 
usuário consiste em acrescentar a linha 
a seguir: 


70 IF INSTR("PSLE",A$)=0 THEN 
Goro 50 


"(I)MPRIMIR O TEXTO” 
"(G)RAVAR O TEXTO” 
"(C)ARREGAR NOVO 


Isso elimina possíveis mensagens de 
erro, que “estragariam” a tela. 


PROCESSAMENTO DE PALAVRAS 


As funções alfanuméricas do BASIC 
têm um grande número de aplica- 
ções, especialmente no que se 
refere ao processamento 
de palavras. Um aspec- 
to comum a progra- 
mas desse tipo é a 
possibilidade de 
substituir uma 
determinada 
palavra por 
outra (isso 
pode ser ne- 
cessário, por 
exemplo, 
quando apa- 
recer um erro 
de ortografia 
em todas as 
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ocorrências de uma palavra). O INSTR 
é usado para localizar essas ocorrências. 
Se a nova palavra tiver um comprimen- 
to diferente daquela a ser substituída, 
será necessário movimentar o resto do 
texto para criar espaço. 





10 LINEINPUT "DIGITE TEXTO: ";T 
s 

20 LINEINPUT “PALAVRA À SER TRO 
CADA? ";WS 
30 LINEINPUT 
ws 

40 P=1 

50 PO=INSTR(P,TS,WS) 

60 IF PO=0 THEN GOTO 100 

70 TS=LEFTS(TS, PO-1) +NWS+RIGHTS 
(TS, LEN(TS) -PO-LEN (WS) +1) 

80 P=PO+LEN(NWS) 


"NOVA PALAVRA? ";N 


90 coro 50 

100 PRINT TS 

110 Goto 20 

10 INPUT "DIGITE UMA FRASE ";T 
s 

15 T$ = CHR$ (32) + TS + CHR$ 
(32) 

20 INPUT "PALAVRA À SER SUBSTI 

TUIDA ";ws 

30 INPUT "NOVA PALAVRA ";NWS 
35 P = 0 

0 Po P+1 

50 AS = MIDS (TS,P, LEN (W$)) 
60 IF AS< > WS THEN 90 

70 TS = LEFTS (TS,P - 1) + NUS 
+ RIGHTS (TS, LEN (TS) - P — 
LEN (WS) + 1) 

80 P = P + LEN (NWS) - 1 

90 IF P< LEN (T$) THEN 40 
100 PRINT TS 


110 coro 20 
































10 INPUT "DIGITE O TEXTO "; 

LINE t$: PRINT tS 

20 INPUT "PALAVRA A SER CORRI 

GIDA "; LINE w$: LET w=LEN w$ 
30 INPUT "NOVA PALAVRA "; 

LINE n$: LET n=LEN n$ 

35 LET p=0 

40 LET p=ptl 

50 IF p+w-1>LEN tS THEN GOTO 
100 

60 IF tS(p TO p+w-1)<>wS THEN 
Goro 40 

70 LET tS=tS( TO p-l)+ns+tS(p 

+w TO ): GOTO 40 

100 PRINT tS 

110 coro 20 


hq 


10 LINEINPUT"Digite uma frase: 
";Ts 

20 LINEINPUT"Palavra a ser subs 
tituída? ";wS 

30 LINEINPUT"Nova palavra? ";NW 


40 P=1 

50 PO=INSTR(P,TS,WS) 

60 IFPO=OTHEN100 

70 TS=LEFTS(TS,PO-1) +NWS+RIGHTS 
(TS, LEN(TS) -PO-LEN (W$)+1) 

80 P=PO+LEN(NWS) 

90 GoTO50 

100 PRINTTS 

110 coTo2zo 


Comece entrando sentenças bem sim- 
ples e tente o procedimento de substitui- 
ção de algumas letras ou palavras. 
Quando estas forem curtas como “ou”, 
“na”, etc., será necessário digitá-las com 
um espaço antes e outro depois; caso 
contrário, toda ocorrência de “ou”, 
“na”, etc., dentro de outras palavras, 
(por exemplo, “ouro” e “banana”) 
também será modificada. 

O programa funciona assim: a linha 
40 define o P para começar o processo 
de pesquisa no início do texto. As linhas 
50 e 60 encontram a primeira ocorrên- 
cia da palavra ou da letra que se deseja 
substituir; em seguida, a linha 70 a subs- 
titui por uma nova palavra. Essa linha 
investiga o texto do início até a palavra 
a ser modificada, acrescenta a nova ex- 
pressão e concatena o restante do tex- 
to. O processo se repete até que todas 
as ocorrências da palavra tenham sido 
substituídas. A linha 100 imprime o re- 
sultado-(os programas profissionais de 
processamento de palavras são, eviden- 
temente, mais complexos do que nosso 
exemplo). 
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ASSEMBLER PARA 
O SPECTRUM 


Montar um programa em linguagem 
de máquina calculando os códigos a 
mão pode ser bastante cansativo, mes- 
mo que se saiba de cor os códigos mne 
mônicos e seus equivalentes hexadeci- 
mais e se esteja familiarizado com todos 
os modos de endereçamento. Com efei- 
to, além de estar sujeito a erro, o traba- 
lho de tradução e de transferência do 
programa para o computador é sempre 
tedioso. A solução está em entregar es- 
se trabalho ao próprio computador. 

Nesta lição apresentamos um progra- 
ma Assembler para os micros compatí- 
veis com o Sinclair Spectrum (por exem- 
plo, o TK-90X) com um mínimo de 48K 
de memória. Versões para outros com- 
putadores serão abordadas nas próxi- 
mas lições desta série. O TK-2000 não 
necessita de um programa desses, pois 
já vem com um míni-Assembler. O pro- 
grama apresentado aqui não funciona 
no Spectrum de 16K, nem nos modelos 
compatíveis com o ZX-81. Ele está es- 
crito em BASIC, o que o torna bem 
mais lento que os Assemblers conven- 
cionais, elaborados em código de má- 
quina. O importante, porém, é que ele 
não só funciona, como é capaz de mon- 
tar programas Assembly, publicados 
por nós ou obtidos de outras fontes. Um 
programa longo levará um bom tempo 
para ser montado. 
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5000 DIM kS(110,4): DIM K(110): 
DIM m(110): LET h$="0123456789 
ABCDEF”: LET b$="": LET q$="012 
3456789abcdef” 

5010 DIM tS$(110,24): DIM r(100) 
: DIM z$(100,6): DIM z(100) 
5020 DIM b(9): LET b(1)=1: FOR 
i=2 TO 9: LET b(i)-b(i-1)+b(i-1 
)J: NEXT à 

5030 DIM r$(8,4,4): FOR- 5=1 TO 
4: FOR i=1 TO 8: READ rS(i,9): 
NEXT à: NEXT 5 
5040 DATA “0”, 
5º,º6º,º7º,ºnz”,"z 
o","pe”,"p”,"m","0","8","16","2 
4" ,"32","40","48","56","h1l”,"ix 
","iy”,"bc”,"de”,"h1”, ga 
5050 DIM s$(8,2,4): DIM t(18): 
DIM u$(18,10): FOR j=1 TO 2: FO 


1", 





R i=1 TO 8/3: READ s$(1,3): NEX 
T à: NEXT 5: FOR j=1 TO 18: REA 
D t(5),usS(s NEXT 5 
5060 DATA "b”,"c","d”,"er,"hr,” 
1º, (BRL Tarerhe” » Sar oleo 
p”,235,"de",8,"af”,227," (sp)”,6 
0742,"0",60758,"1",60766,"2”,23 
3," (h1)7,56809," (1x)”,65001," (1 
+10," (bc)”,26," (de)”,60767,” 
r”,2,"(bc)”, 18," (de)”,60751, 
,249,"8p",60743,"1",60759,"i" 
5070 DEF FN b(x,1)=INT (x/b(i+1 
J)=INT (x/b(i+2))*2 
5080 DEF EN x(x,1)=x-b(i+2)*FN 
b(x,i)+b(i+1) 
5090 DEF EN 5(x,1)=INT x-b(i+1) 
*INT (x/b(i+1)) 
5100 DEF EN e(1$,935)=(1$=3S( TO 
LEN (18))) 
$110 FOR i=1 TO 110: READ kS(1) 
cK(1) m(i): IF NOT EN e("x",kS( 
1)) THEN NEXT à 
5120 DATA "1d”,10,10,"1d”,26,10 
+"19",60767,10,"1d”,60759,10,"1 
9”,2,138,"1d",18,138,"1d”,60751 
138," 1d” ,60743,138,"1d”,64,6,” 
1d”,50,202,"1d”,58,74,"1d”,249, 
139,"1d”,34,195,"1d”,42,67,"1d” 
+60779,197,"1d”,60771,199,"1d”, 
97,165,"1d”,64,54 
5130 DATA "adc”,136,50,"adc”,60 
746,3,"ada”,128,50,"add”,9,149, 
"and”,160,48,"or”,176,48,"xor”, 
168,48,"nop”,0,0,"sub”, 144,48," 
sbc”,152,50,"sbc”,60738,3,"cp”, 
184,48," 5p”,130,45,"3p”,233,9," 
3p”,56809,9,"3p”,65001,9,"3p”,1 
31,49,"5r",96,45,"3r",88,41 
5140 DATA "call”,132,45,"call”, 
141,41,"ret”,201,0,"djnz”,74,40 
,"dec”,11,17,"dec",5,16,"inc”,3 
+17," inc" ,4,16,"push”,197,17,"p 
op”,193,17,"di”,243,0,"ei”,251, 
O,"halt”,118,0,"ex”",235,139,"ex 
*,8,15,"ex”,227,143,"exx”,217,0 
5150 DATA "rst”,199,132,"rts”,1 
92,5,"bit”,52032,20,"defb”,-256 
,40,"ccf”,63,0,"scf”,55,0,"cpl” 
+47,0,"cpd” ,60841,0,"cpdr” ,6085 
7,0,"cpi”,60833,0,"cpir”,60849, 
0,"daa”,39,0,"im”,60742,8,"im” 
60758,8,"im”,60766,8 
5160 DATA "in”,60736,130,"in”,1 
49,42,"ind”,60848,0,"indr”,6081 
0,0,"ini”,60840,0," dd” ,60840,0 
+"lddr”,60856,0,"1di”,60832,0,” 
1dir”,60848,0,"neg”,60740,0,"ot 
dr”,60859,0,"otir”,60851,0,"out 
*,60737,2,"out”,141,170,"outd”, 
60843,0,"outi”,60835,0 
5170 DATA "res”,52096,20,"reti” 
+60749,0,"retn”,60741,0,"rl”,51 



























Um programa que calcula a dimensão dos 


saltos e faz a tradução dos 

códigos mnemônicos Assembly para o 
sistema hexadecimal: o que 

mais poderíamos desejar na vida? 





984,64,"rla”,23,0,"rlc”,51968,1 
6,"rlca”,7,0,"rld”,60783,0,"rr” 
+51992,64,"rra”,31,0,"rrc”,5197 
6,16,"rrca”,15,0,"rrd”,60775,0 
5180 DATA "set”,52160,20,"sla”, 
52000,16,"sra”,52008,16,"srl",5 
2024,16,"defw”,-256,41 

5190 DATA "*",0,0: LET ii=i: LE 
T k(110)=ii 

5200 LET b=0: LET ba=PEEK 23635 
+256*PEEK 23636+4: LET n=1 
5210 LET cc=l: IF PEEK ba<>234 
THEN LET n=n-l: GOTO 5250 
5220 LET cc=cc+l: LET ba-ba+l: 
IF PEEK ba=13 THEN LET ba=ba+5 
: LET nen+l: GOTO 5210 

5230 LET tS(n,cc)=CHRS PEEK ba 
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* CÓDIGO DE MÁQUINA O EVARIÁVES 
| LE COMO CALCULAR SALTOS E COMO COLOCAR OS CÓDIGOS 
| se  EDESVIOS “NA MEMÓRIA USANDO POKE 

E OUSODERÓTULOS EM TESTE O PROGRAMA 


























1 5240 GoTo 5220 (1)="*" THEN LET s=p: LET iS$=i KE r,FN 3(p*s+q,8): PRINT ” POK 
E 5250 FOR qg=1 TO 100: LET r(g)=q S(2 TO) E ";r;"” com ";FN j(p*s+q,8): IF 
7 -1: NEXT q: LET fh=100 5390 LET p=VAL iS+s: PRINT '” b THEN POKE (r+1),EN J((pístq 

5300 LET k0=0: LET k9=99; LET p org ";p;: GOTO 5320 )/256,8): PRINT ” POKE ";r+1;" 
, 0=0: LET vv=0 5400 IF p=0 THEN PRINT "(falta com ";EN j((p*stq)/256,8) 
5 5310 LET k-k0O: LET p=p0 org)”: LET p=50000 5460 IF g9<=100 THEN LET gh=r( 

5320 GOSUB 8000 5410 LET p$=08+"!"; FOR 1=1+18* gg): LET r(g9)=fh: LET fh=gg: L 
E 5330 GOSUB 7000: LET o$=i$: IF (og<>"1d") TO 110: IF oS<=kS(i) ET g9=9gh: GOTO 5450 

oS(1)="*" THEN PRINT 0$;: GOTO AND p$>kS(i) THEN GOTO 5500 5470 IF 1$="" THEN LET r(g)=p+ 
5 5320 5420 NEXT à: PRINT oS 100: GOTO 5330 

5340 IF o$="end” THEN PRINT '” 5430 IF àS(1)="." THEN LET 1$= 5480 PRINT ” (Linha nao foi rec 

endereco final ";p-1 is(2 TO ) onhecida)” 

5350 IF o$="end” THEN LET p0=p 5440 GOSUB 9000: LET gg=r(9) 5490 GoTo 5420 

: GOTO 9999 5450 IF g9<=100 THEN LET s=SGN 5500 LET z=0: LET r=0: LET e=0: 
5 5370 IF oS<>"org” THEN GOTO 54 z(99): LET b=INT (ABS z(99)/65 PRINT " ";08; 

oo 536): LET r=ABS z(99)-b*65536: 5510 LET op=k(i): IF m(i)=0 THE 


5380 GOSUB 7000: LET s=0: IF i$ LET q-PEEK r+256*PEEK (r+1): PO N GOTO 6090 























5520 GOSUB 7000: LET a$S=iS: PRI 
ao) 
5530 LET m=m(i): LET op=k(i): L 
ET b=FN b(m,0): LET b7=b+2%FN b 
(m,7)+1: LET z=0; IF EN 5(m,3)< 
2 THEN LET cS$=a$: GOTO 5720 
5540 FOR 3=1 TO LEN a$S: IF as(5 
)="," THEN GOTO 5580 

5550 NEXT 5: IF o$="rst” OR o$= 
"rts” THEN GOTO 5580 

5560 IF FN e(oS,kS(i+1)) THEN 
LET i=i+l: GOTO 5530 

5570 PRINT ” (deve haver dois o 
perandos)”: GOTO 5320 

5580 LET b$=aS( TO 5-1): LET cS 
=aS()+1 TO ) 

5590 IF FN b(m,2) THEN GOTO 56 








5600 IF EN b(m,7) THEN LET d$= 
c$: LET c$=b$: LET b$=dS 

5610 IF b$="ahl” (btl TO b+b+1) 
THEN GOTO 5720 

5620 IF b$="(c)” AND (o$-="in” O 
R oS$="out”) THEN GOTO 5720 
5630 IF (FN e(oS,k$(1+1))) AND 
(EN 5(m(1+1),3)>=2) THEN LET à 
=i+l: GOTO 5530 

5640 PRINT "(primeiro operando 
deve ser a ou hl)”: GOTO 5320 
5650 IF FN b(m,1) THEN GOTO 56 
90 

5660 LET eS=(bS+"” "(TO 4): 
FOR 3=1 TO 8: IF eS=r$(5,b7) TH 
EN LET op=op+8*(3-1)*(b7<4)+16 
*(3-6)*(b7=4)*(3>3): LET z=(5-1 
)*(b7=4)*(3<=3): GOTO 5710 

5670 NEXT 5: IF pS>k$S(i+1) AND 
(EN 5(m(1+1),3)>=2) THEN LET à 
=1+1: GOTO 5530 

5680 PRINT "(primeiro operando 
deve ser bit ou sinalizador)”: 
Goto 5320 

5690 IF FN b(m,7) THEN LET d$= 
c$: LET c$=b$: LET b$=dS: GOTO 
5660 

5700 LET x=B: GOSUB 5750: IF e 
THEN GOTO 5730 

5710 IF c$="" THEN GOTO 6090 
5720 LET x=1+15*b+7* (op<=6 AND 
op>=4 OR b$="(c)”"): LET b$=c$: 
GOSUB 5750: IF NOT e THEN GOTO 
6090 

5730 IF e=2 OR pS>kS(i+l) AND F 
N 5(m(1+1),3)=EN 5(EN x(m,0),3) 
THEN LET e=0: LET i=i+l: GOTO 
5530 

5740 GoTo 5320 

5750 LET r=0: IF FN b(m,4) AND 
FN e("("( TO NOT b),b$S) THEN L 
ET z2=FN e("ix”,b$(2-b TO )+" * 
J+2*FN e("iy”,bS(2-b TO )+" "): 
IF 22 THEN LET 2z-z2: LET eS-b 
S( TO LEN bS-NOT b): LET b$="(h 
1)" (l+b TO 4-b): LET fS="0"+es( 
4-b TO ) 

5760 IF EN b(m,3) THEN GOTO 57 
90 

5770 LET eS=(bS+” "(TO 4): 
FOR 53=1 TO 8/(b+1): IF e$=s$(5, 
b+1) THEN LET op=opt+(j-1)*x: R 
ETURN 

5780 GOTO 5810 

5790 LET 52=9+9*(o$=" 1d"): FOR 








)=)2-8 TO 32: IF k(1)<>t(5) THE 
N Goto 5810 

5800 IF FN e(b$,u$(3)) THEN RE 
TURN 

5810 NEXT 5): IF b$="af” THEN I 
F EN e("p”,05) THEN LET op=op+ 
48: RETURN 

5820 IF FN b(m,6) AND EN e(”(”, 
b$) THEN LET bS=bS(2 TO LEN b$S 
-1): GOTO 5860 

5830 IF EN b(m,5) THEN LET op= 
EN x(op+6*NOT b,6): GOTO 5860 


5840 IF pS>kS(1+1) THEN LET e= 
2: RETURN 

5850 PRINT " (operando incompati 
vel)”: LET e=1: RETURN 


5860 LET r=65536 

5870 LET s=1 

5880 IF bS="" THEN GOTO 6080 

5890 LET xS=bS(1): LET dS=bS(2 

TO ): IF x$="*" THEN LET r=r+p 

*s: LET b$S=d$S: GOTO 5870 

5900 IF x$="+" THEN LET b$=dS: 
corto 5880 

5910 IF x5="-' THEN LET bS=dS: 
LET s=-s: GO" ) 5880 

5920 IF x$="'" THEN LET r=r+CO 

DE d$*s: LET Es=dS(2 TO ): GOTO 
5870 

5930 LET q=0: IF xS<>"2” OR ds< 

"0" OR d$>"2” THEN GOTO 5960 

5940 IF dS>="0" AND dS<"2” THEN 
LET q=q*2+CODE d$-48: LET d$= 


dS(2 TO ): GOTO 5940 

5950 LET r=rtq*s: LET b$=d$: GO 

TO 5870 

5960 IF x$<>"$” OR d$<"0” OR ds 

>="9" THEN GOTO 6000 

5970 LET x$=CHR$ CODE d$: FOR q 

-0 TO 15: IF x$<>hS(9+1) AND x$ 

<>9S(9+1) THEN GOTO 5990 

5980 LET q=q*16+g: LET ds=d$(2 

TO ): GOTO 5970 

5990 NEXT q: LET r=rtq*s: LET b 

$=-d$: GOTO 5870 

6000 IF xS<"a” OR x$>"z” THEN 

Goto 6040 

6010 LET iS=bS: GOSUB 9000: IF 

1$<>"” THEN GOSUB 9400 

6020 IF r(9)<>23000 AND r(9)>10 

O THEN LET r=r+(r(9)-100)*s: L 

ET b$-i$: GOTO 5870 

6030 IF r(g)=23000 OR r(9)<=100 
THEN LET gh=r(fh): LET r(£h)= 

r(9): LET r(9)=fh: LET fh=gh: L 

ET z(r(9))=(p+SGN op+(ABS op>25 

5)+2*(2>0)+65536*((b OR EN b(m, 

6)) AND 05<>"5r”"))*s: LET bS-iS 
Goto 5870 

6040 IF xS<"0” OR x$>"9” THEN 

LET r=0: GOTO 6070 

6050 IF b$>="0" AND bS<”:” THEN 
LET q=q*10+CODE b$-48: LET b$ 

=b$(2 TO ): GOTO 6050 

6060 LET r=r+s*q: GOTO 5870 

6070 PRINT " (enderecamento inco 











) 
à 
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rreto)” 

6080 LET r=r-(p+2)*(oS="djnz” O 

R 0$="3r"): RETURN 

6090 PRINT TAB 16;: LET by=p/25 

6: GOSUB 6190: LET by=p: GOSUB 

6190: GOSUB 6160 

6100 IF z THEN LET by=189+2*32 
GOSUB 6180: GOSUB 6160 

6110 IF op>=0 THEN LET by=op/2 

56: GOSUB 6170: GOSUB 6150: LET 
by=op: GOSUB 6180 

6120 IF r=0 THEN GOTO 5320 

6130 GOSUB 6160: LET by=r: GOSU 

B 6180: IF (b OR FN b(m,6)) AND 
oS<>" jr” THEN LET by=r/256: G 

osuB 6180 

6140 Goto 5320 

6150 IF z AND INT by AND NOT b 

THEN GOSUB 6260: LET by=VAL £S 

: GOSUB 6180: LET 2=0 

6160 PRINT ” ";: RETURN 

6170 IF INT by<=0 THEN RETURN 

6180 LET by=FN J(by,8): POKE Pp, 

by: LET p=p+l 

6190 LET by=FN 5(by,8): PRINT h 

S(I+INT (by/16));hS(EN 3(by,4)+ 

1; 

6200 RETURN 

7000 IF k>n THEN LET i$="end": 
RETURN 

7010 LET kl=k9+1: IF K9>=LEN t$ 

(k) THEN LET iS="/faltando/": 

RETURN 





7020 LET k9=kl: IF tS(k,kl)=" " 
THEN GOTO 7010 

7030 IF K9>LEN t$S(k) THEN LET 
1$=tS(k) (kl TO ): RETURN 

7040 IF tS(k,k9)<>” " THEN LET 
k9=k9+1: GOTO 7030 

7050 LET i$=tS(k) (kl TO k9-1): 
RETURN 

8000 IF k>O THEN 
O )>t$(99) THEN 


IF tS(k) (k9 T 
PRINT tS(k) (k9 


To ); 

8010 POKE 23692,0; LET k=k+1: L 
ET k9=0 

8020 PRINT : RETURN 


9000 LET x$="" 

9010 IF i$<"a” OR 18>"z” THEN 
Goto 9030 

9020 LET x$=xS+i1S(1): LET 18-15 
(2 TO ): GOTO 9010 

9030 IF 18<>"" THEN RETURN 
9400 FOR g=1 TO vv: IF FN e(x5, 
2$(9)) THEN RETURN 

9410 NEXT q: LET Vv=vvtl: LET 2 
S(vv)=xS: LET g=vv: LET r(g)=23 
000 

9420 RETURN 


[aU eo RO Re 


Começando na linha 5000, o progra- 
ma deixa espaço para seu programa em 
Assembly, que deve ser colocado em li- 
nhas REM. Cada instrução deve ser es- 
crita com letras minúsculas e po: 
da em uma linha REM separad: 

Antes de montar o programa, deve- 
mos proteger uma área de memória pa- 
ra que o Assembler possa colocar os có- 
digos, usando CLEAR, A primeira li- 
nha de seu programa deve ser mais ou 
menos assim: 











10 REM org 55000 


32000 é o endereço inicial do progra- 
ma em código. Obviamente, ele deve es- 
tar na área protegida da memória, 

Se esquecermos de definir org, ou se- 
ja, a origem, o Assembler colocará o pro- 
grama a partir de 50000. 

O programa aceita os códigos mne- 
i adrão do chip Zilog Z-B0, 
com exceção dos comandos de retorno 
condicional, Entretanto, o comando de 
retorno incondicional de sub-rotinas, 
cujo mnemônico é ret, funciona em nos- 
so Assembler. 

Algumas vezes, contudo, utilizamos 
retornos condicionais, como ret nz, que 
significa: “retorne se não for zero”. 
Neste programa, porém, digite a instru- 
ção rts nz. A razão disso é que rts deve 
substituir ret sempre que forem neces- 
sários retornos condicionais. Quando se 
tratar de retorno incondicional, ou seja, 
quando ret não for seguido de nenhu- 
ma letra, use o mnemônico padrão ret. 

Números hexadecimais devem ser 














O que acontecerá se houver um erro 
em meu programa fonte? 

Nosso Assembler é capaz de emitir 
mensagens de erro, pois a sua estru 
tura de programação está preparada 
para detectar falhas no programa em 
Assembly. Alguns comandos, por 
exemplo, só trabalham com os regis- 
trosaehl, Se tentarmos usá-los com 
outros registros, o Assembler dirá; 
“Primeiro operando deve ser a ou hl"* 

Se um comando não for reconheci 
do devido a um erro de digitação, se: 
remos automaticamente informados: 
“Linha não foi reconhecida". A expres- 
são “Deve haver dois operandos” sig 
nifica que deixamos de digitar um nú 
mero vital após o comando. “'Operan- 
do incompatível" índica um uso inade: 
quado do comando. "Primeiro operan 
do deve ser bit ou sinalizador” signifi- 
ca que um operando inadequado foi 
usado em um comando de desvio ou de 
atribuição de bits. 


Existe uma maneira de se programar 
em Assembler nos ZX-817 

Existe; mas o meio para isso não é 
um programa montador desenvolvido 
em BASIC, como os que serão apresen- 
tados mais adiante para as linhas MSX, 
Apple Il, TRS-B0 e TRS-Color. 

Montadores em BASIC para o 
ZX-81 (com seus similares nacionais 
TK-85, CP-200, etc.) são inviáveis por 
que o programa resultante seria muito 
grande e de difícil digitação e operação: 
na verdade, ele não caberia na memó- 
ria da maioria dos micros dessa linha; 
além disso, o processo de tradução e 
montagem desse programa seria extre- 
mamente lento 

Para comprovar isso, observe a lis' 
tagem para o ZX Spectrum que acom 
panha este artigo: é a inexistência de 
declarações READ e DATA no ZX-81, 
o que dificulta a programação. 

Seria possível programar um As 
sembler reduzido, sem rótulos alfabé: 
ticos, e com um conjunto menor de co: 
mandos. Mas isso o tornaria inútil pa 
ra quem quer aprender a programar se- 
riamente, e impossibilitaria o usuário de 
digitar e testar os programas em códi- 
go Assembler que aparecerão em lições 
futuras. Por isso, quem quiser progra- 
mar em Assembler no ZX-81, deve re- 
correr a um programa tradutor compac- 
to, eficiente e rápido, escrito em códi- 
go de máquina e disponível comer 
cialmente. 

















precedidos do caractere $; números bi- 
nários, do caractere %. Qualquer núme- 
ro que não seja precedido de algum ca- 
ractere será interpretado como decimal. 
Qualquer palavra que não seja um co- 
mando Assembly será considerada co- 
mo um rótulo (label). Evite usar pala- 
vras parecidas ou muito longas; núme- 
ros não são permitidos. 

Para que o Assembler saiba onde pa- 
rar, termine seu programa com REM 
end. 

Uma vez colocado o programa As- 
sembly a ser montado (o programa fon- 
te) nas linhas REM iniciais, basta rodar 
o Assembler para se obter uma listagem 
dos códigos equivalentes na tela: o pro- 
grama objeto. O Assembler coloca o 
programa objeto simultaneamente na 
memória e na tela. 

Se a esta altura for cometido algum 
erro na digitação das linhas, será sufi- 
ciente, para corrigi-lo, listar o Assem- 
bler, editar a linha REM corresponden- 
te e usar novamente RUN. 

Montado o programa, o endereço fi- 
nal da rotina em código de máquina 
aparecerá na tela. 

Para executar o programa em códi- 
go usamos instruções do tipo RAN- 
DOM USR. 

Se quisermos gravar o programa ob- 
jeto, devemos digitar: 








SAVE “nome"” CODE endereço inicial, 
número de bytes 


COMO DETECTAR ERROS EM 
PROGRAMAS LONGOS 

Sempre que a mensagem “OUT OF 
DATA” aparecer na tela, verifique se 
está faltando alguma coisa nas linhas 
DATA [lembre-se de que a ausênciade 
uma simples vírgula pode deitar a per- 
der todo o programa). Um dos erros 
mais comuns na digitação de longos 
programas consiste justamente na 
omissão de trechos de linhas DATA. 
Por isso, caso seu Assembler não fun- 
cione ao ser rodado pela primeira vez, 
não se desespere: ele certamente “em- 
pacou”” devido a erros de digitação. 

Esses erros podem ser detectados 
por meio de um programa de rastrea- 
mento, que escreve na tela o número 
da linha BASIC que está sendo execu- 
tada. Um programa de rastreamento 
completo será apresentado mais 
adiante. 











(EEE 
MME 








“Nome” é o nome do programa ob- 
jeto e deve estar entre aspas. CODE in- 
forma ao computador que está sendo 
gravado um programa em código de má- 
quina e não em BASIC. O endereço ini- 
al é a origem do programa na memó- 
ria. Podemos calcular o número de bytes 
subtraindo a origem do endereço final 
e somando 1. 

O Assembler e o programa fonte po- 
dem ser gravados juntos, como um pro- 
grama BASIC, usando-se SAVE da ma- 
neira habitual. 


RISS 


Para testar seu programa, entre o 
programa de deslocamento horizontal 
da tela para a direita, que se encontra 
na página 215. Uma vez traduzido para 
código, esse programa ficará assim: 
11 FF 57 21 FE 57 06 CO C5 IA 


01 1F 00 ED B8 12 2B 1B Cl 10 
F3 c9 





Note que devemos usar letras minús- 
culas para digitar o programa fonte. 
Nosso Assembler não reconhece coman- 
dos em maiúsculas. 


Não apresentaremos um Assembler 
para o ZX-81, pois é muito difícil escre- 
ver um programa desse tipo em BASIC 
para esse micro. Se você tem um ZX-81 
e está interessado em código de máqui- 
na, sugerimos a compra de um Assem- 
bler gravado em fita cassete e disponi- 
vel em lojas especializadas. 

Caso já disponha de algum, teste o 
programa de deslocamento da tela para 
a direita apresentado na página 217 
que, uma vez traduzido para código de 
máquina, ficará assim: 








2A 0C 40 11 16 03 19 54 5D 13 
06 18 c5 1A 01 1F 00 ED B8 12 
2B 1B 1B Cl 10 Fl C9 
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UM PROFESSOR DE 
DATILOGRAFIA 


Aspiração de todo programador que 

se preza, a eficiência no 
processamento de textos e na digitação 
de programas tem um pré-requisito 
fundamental: saber datilografia. 


O futuro nos reserva, certamente, 
muitas surpresas no campo das relações 
entre o homem e a máquina. Uma de- 
las pode ser a abertura de novos canais 
de comunicação entre o computador e 
o usuário — como, por exemplo, a voz 
humana. Atualmente, alguns desses sis- 
temas de controle mais sofisticados já 
vêm sendo aplicados em máquinas in- 
dustriais e comerciais a um preço rela- 
tivamente baixo. A maioria dos usuá- 
rios, porém, vai ter que-esperar muito 
tempo até ter acesso a essas inovações. 
Enquanto isso, o velho teclado conti- 
nuará a ser o dispositivo básico de en- 
trada de um computador. 

Na verdade, o teclado é um instru- 
mento de eficiência razoável para se 
transmitir instruções ao computador. 


Sua utilização, no entanto, consome 
muito tempo, especialmente quando o 
operador não é um exímio datilógrafo. 
Essa perda de tempo é visível quando 
tentamos copiar uma listagem e somos 
obrigados a olhar do teclado para a te- 
la e desta para o papel, só para nos as- 
segurarmos de que os dados estão sen- 
do introduzidos corretamente, 

Assim, por que não utilizar o com- 
putador no aprimoramento do modo de 
datilografar? Fazendo isso, você econo- 
mizará tempo e evitará dores de cabe- 
ça, quando quiser escrever programas 
ou explorar o potencial de um compu- 
tador como processador de textos. O 
programa que se segue ajudará a se fa- 
miliarizar com o teclado e aumentar a 
velocidade e a precisão na datilografia. 

O Sinclair Spectrum apresenta a des- 
vantagem de ter um teclado de difícil 
manipulação e grande velocidade. A in- 
trodução de programas, contudo, exige 
apenas um toque de tecla para cada co- 
mando em BASIC. Note que não esta- 
mos apresentando uma versão do pro- 
grama para o Sinclair ZX-81, Isso se de- 
ve ao fato de que sua execução se tor- 











m PARA QUE APRENDER 

DATILOGRAFIA? 
n AS TECLAS DE APOIO 
= MELHORE A VELOCIDADE E A 


PRECISÃO NA DATILOGRAFIA 





naria muito lenta, perdendo eficácia co- 
mo forma de treinamento. 


Rae 


Do mesmo modo que qualquer cur- 
so padrão de datilografia, nosso progra- 
ma tem por objetivo desenvolver meto- 
dicamente a destreza do iniciante. Esse 
programa, no entanto, não é nenhum 
processo mágico e, como qualquer ou- 
tra coisa que se queira aprender, exige 
dedicação. 

Para efeitos didáticos, ele foi dividi- 
do em etapas mais ou menos fáceis, com 
seções extras de programação acrescen- 
tadas a cada uma das fases. Dessa ma- 
neira, é possível avançar através de mis- 
seis cada vez mais difíceis. Outra virtu- 
de de nosso curso consiste em apresen- 
tar, ao longo de seu desenvolvimento, 
uma atualização constante da velocida- 
de e da precisão atingidas pelo iniciante. 

Se você é usuário de um Apple II, fi- 
cará sem o recurso de cronometragem, 
devido à falta de um “clock” acessivel 
nesse micro. Talvez a cronometragem 



























ps4 


manual o auxilie, nos níveis 4€ 5, a con- 
trolar seus progressos na datilografia. 


CONHEÇA AS TECLAS DE APOIO 


Ser um exímio datilógrafo significa 
ser capaz de pressionar as teclas corre- 
tas sem precisar olhar para elas sempre 
que se quer localizá-las. Evidentemen- 
te, isso só poderá ser feito quando se sa- 
be previamente onde se encontram as le- 
tras no teclado. É preciso, portanto, 
“educar” os dedos para que eles encon- 
trem automaticamente as teclas deseja- 
das. O primeiro passo para isso consis- 
te em posicionar os dedos sempre na 
mesma posição sobre o teclado. Datiló- 
grafos profissionais fazem isso assegu- 
rando-se de que os dedos das duas mãos 
repousem sempre sobre as mesmas te- 
clas, as denominadas teclas de apoio. 
Estas são as teclas da fileira do meio do 


6 APLICAÇÕES 6 





teclado, começando pelas letras A, S, D, 
F... Portanto, estas serão as teclas que 
devemos memorizar em primeiro lugar. 

Uma vez dominada a localização des- 
sas teclas básicas, o restante do teclado 
pode ser alcançado movendo-se cada de- 
do para cima ou para baixo. 

Para obter o máximo rendimento no 
curso será preciso ater-se a essa dispo- 
sição, sem nunca tentar “enganar” o 
computador. Por outro lado, os que in- 
sistem em continuar “catando milho" 
devem também procurar obter um gra- 
dativo aprimoramento de sua destreza. 

Ao introduzirmos o programa — ta- 
refa que deverá tornar-se cada vez mais 
fácil à medida que o curso prosseguir — 
devemos ficar com as mãos pousadas 
sobre o teclado, aguardando as instru- 
ções que aparecerem na tela e que serão 
explicadas a seguir. 

O dedo mínimo da mão esquerda de- 
ve repousar sobre a tecla A, o anular so- 





















breo'S, assim por diante, terminando 
com o dedo indicador sobre a tecla F. 
O indicador direito, por sua vez, deve 
estar na tecla J, o dedo médio na tecl 
K, e assim por diante. Os polegares (ex- 
ceto no caso do Spectrum) devem 
posicionar-se sobre a barra de espac: 
jamento. As letras G e H, portanto, não 
são cobertas por nenhum dedo. Quan- 
do é necessário acioná-las, o G pode ser 
alcançado com o dedo indicador esquer- 
do, eo H com o indicador direito. 

Parece complicado, mas não se preo- 
cupe: a primeira parte do programa se 
destina justamente a familiarizá-lo com 
as letras do teclado. 


RR RA 


Ao se executar o programa, a tela 
mostrará cinco opções, que correspon- 
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dem a níveis de dificuldade crescente. 
Você deve escolher uma entre elas. Se 
você está começando a aprender, preci- 
sa estudar primeiro a lição 1 para, só de- 
pois de dominar seu conteúdo, passar 
para a lição 2, e assim por diante. 


NÍVEL 1 

A tela apresentará as teclas de apoio 
em uma linha, na mesma ordem em que 
estão no teclado. Ao mesmo tempo, se- 
rá mostrado um asterisco que, 
deslocando-se acima das letras, percor- 
rerá o teclado do A até o L no Spectrum 
eno CP400, até o ; (ponto e vírgula) no 
Apple, até o Ç no MSX. Para se acio- 
nar as teclas, deve-se tocá-las na segiên- 
cia indicada pelo asterisco e com o de- 
do correto (lembre de que o Ge o H exi- 
gem um deslocamento do dedo indica- 
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dor de cada mão), voltando-se às teclas 
de apoio logo em seguida. Utilize o de- 
do mínimo direito para as teclas; e Ç. 

O asterisco continuará no mesmo lu- 
gar, caso seja cometido algum engano. 
Uma tecla batida corretamente será 
anunciada por um bip, e por um som 
grave se houver um erro ou se uma le- 
tra for omitida. (No Apple ocorrerá o 
oposto.) 

Ao fim de cada exercício, a tecla 
mostrará o tempo gasto e o número de 
erros cometidos. 





VEL 2 


Uma vez familiarizado com a posição 
das letras no teclado, você pode passar 
para este nível, que é semelhante ao pri- 
meiro, exceto que agora o asterisco se 
deslocará aleatoriamente sobre as letras 
(não vale trapacear olhando a posição 
da letra do teclado). Novamente, o tem- 
po que se levar para completar o exer- 
cício (serão apresentadas vinte letras 
aleatoriamente) e o número de erros co- 
metidos serão apresentados no final. 

















NÍVEL 3 


Este nível também apresenta letras 
aleatoriamente, uma por vez. Agora, 
porém, a tela não indicará sua posição 
no teclado, Em vez disso, elas serão 
mostradas individualmente no centro da 
tela, Mais uma vez, as letras serão em 
número de vinte. 


NÍVEL 4 


Finalmente, pode-se datilografar al- 
gumas palavras. As expressões deste 


exercício utilizam apenas as letras das te- 
clas de apoio: FADA, por exemplo. Ao 
contrário do nível anterior, serão apre- 
sentadas no centro da tela vinte palavras 
(e não letras) aleatoriamente e em suces- 
são, isto é, uma após a outra. À medi- 
da que as palavras forem sendo copia- 
das, um asterisco indicará cada uma de 
suas letras. E, mais uma vez, será apre- 
sentado o resultado do tempo gasto e da 
precisão. Não se deve trapacear olhan- 
do para o teclado; senão, não será pos- 





11) 











255 























sível completar os testes mais difíceis, 
apresentados nas próximas lições. 


NÍVEL 5 


Desta vez será escrita uma sentença 
com cerca de seis palavras aleatórias. À 
medida que estas forem sendo digitadas, 
as letras aparecerão uma após a outra. 
Quando a linha toda tiver sido datilo- 
grafada, será mostrado o desempenho 
do datilógrafo, assim como um valor 
correspondente à velocidade em termos 
de palavra por minuto. Ao se digitar as 
palavras que surgirem na tela, não se de- 
ve esquecer dos espaços em branco en- 
tre elas; esse espaço é obtido quando se 
toca na barra de espacejamento com um 
dos polegares. No Spectrum será preci- 
so pressionar com o dedo mínimo a bar- 
ra de espaços, situada numa posição um 
tanto incômoda 

Deve-se exercitar cada um dos níveis, 
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até que se torne fácil executá-los. Nos 
próximos capitulos acrescentaremos le- 
tras e palavras novas. 


10 BORDER 1: PAPER 1: INK 7 
cLs 
20 POKE 23658,8: LET ER=O 


30 LET SS="ASDFGHJKL” 

100 PRINT INVERSE 1;AT 8,3;” 
PROFESSOR DE DATILOGRAFIA ” 
110 PRINT ''TAB 6;"SELECIONE N 
IVEL (1 A 5)” 

20 IF INKEYS="" 
120 

130 LET AS=INKEYS: IF AS< 
OR AS>"5” THEN GOTO 120 
140 SOUND .2,10 

150 GOSUB VAL AS*100+100 
160 Goto 20 

200 GOSUB 1000 

210 FOR K=7 TO 23 STEP 2 
220 PRINT AT 10,K;"*" 

230 LET R ((K-5)/2) 


THEN GOTO 














240 
250 
260 
270 


280 


GOSUB 1100 
IF:C=0 THEN GOTO 240 
PRINT AT 10,K;” ” 
NEXT K 
CLS : GOTO 
300 GOSUB 1000 
310 FOR K=1 TO 20 

320 LET RN=INT (RND*9)*2+1 
330 PRINT AT 10,RN+6;"* 
R$-SS ((RN+1)/2) 
340 GOSUB 1100: 


1300 


LET 


IF C=0 THEN 





Goto 340 

350 PRINT AT 10,RN+6;" ” 

360 NEXT K 

370 CLS : GOTO 1300 

400 CLS : PRINT "DIGITE A LETR 


A INDICADA NA TELA” 
410 FOR N=1 TO 100: NEXT N 
420 POKE 23672,0: POKE 23673,0 
430 FOR K=1 TO 20 
440 LET RN=INT (RND*9)+1 
450 PRINT AT 11,16;SS(RN) 
460 LET R$=SS(RN) 
470 GOSUB 1100: IF 
Goto 470 
480 PRINT 

": NEXT K 
490 CLS : GOTO 1300 


C=0- THEN 


INVERSE 1;AT 11,16; 


























500 CLS ; PRINT 
VRA INDICADA” : 
POKE 23673,0 
510 LET TL=0: FOR N=1 TO 20: 
RESTORE : LET RN=INT (RND*24)+ 
1 

520 FOR K=1 TO RN: READ TS: 
NEXT K 

530 PRINT AT 10,13;" Ro 
PRINT AT 10,13;TS 

540 FOR M=1 TO LEN TS: PRINT 
AT 9,11+M;” * sa 

550 LET R$-TS(M); GOSUB 1100 
560 IF C=0 THEN GOTO 550 

570 NEXT M 

580 LET TL=TL+LEN TS: NEXT N 
590 CLS : PRINT AT 18,0;"PALAV 
RAS POR MINUTO= ";INT (TL*500/ 
(PEEK 23672+256*PEEK 23673)+.5 
): Goto 1300 

600 CLS PRINT "DIGITE AS PAL 
AVRAS INDICADAS”: LET T$="" 
610 FOR N=1 TO 6: RESTORE : 
LET RN=INT (RND*24)+1: FOR Kº1 
TO RN: READ X$: NEXT K 

620 LET TS=T$S+XS+" 

630 NEXT N: LET TS=TS( TO LEN 
TS-1) 

640 POKE 23672,0: 
: PRINT AT 10,0;TS 
650 PRINT AT 12,0;: FOR M=1 TO 
LEN TS 

660 LET R$=TS(M); GOSUB 1100 
670 IF C=0 THEN GOTO 660 

680 PRINT TS(M);: NEXT M 

690 LET TL=LEN TS: GOTO 590 
1000 CLS : PRINT "PRESSIONE A T 
ECLA INDICADA PELO ASTERISCO” 
1010 PRINT AT 12,7;"A SDF GH 


"DIGITE A PALA 
POKE 23672,0: 


POKE 23673,0 


JKL” 

1020 FOR K=1 TO 100; NEXT K: PO 
KE 23672,0: POKE 23673,0 

1030 RETURN 

1100 PAUSE O 

1110 LET AS=INKEYS: IF ASS>R$S T 
HEN SOUND .2,-10: LET ER=ER+1: 
LET C=0: RETURN 

1120 SOUND .05,20: LET C=1; RET 
URN 

1300 PRINT AT 19,0;"TEMPO= ";(P 


EEK 23672+256*PEEK 23673)/50;" 
SEGUNDOS”: PRINT “NUMERO DE ERR 
0S= ";ER 

1310 PAUSE 100: RETURN 

2000 DATA "FADA”,"GALA”, "SALA", 
"DADA”,"ASA”,"LAKA”,"ALAGA”,"AL 
ADA”, "LA", "GAS", "DALLAS”, "SAGA" 
2010 DATA "AFAGA”,"FALHA”, "ADAG 
A”, "HA", "AGA”,"HAJA”, "HALL", "GA 
LHAS”,"FALA”, "FALHA", "AJA", "JAL 





OBS="ASDEFGHUJKL” 
CLS 

DIM WS (28) 

FOR K=1 TO 28 

READ WS(K) 

NEXT 

PRINT 671,"QUAL O NIVEL DE” 


PRINT €101,"DIFICULDADE (1-5 
pe 





90 PRINT €165, "DIGITE (0) PARA 
SAIR” 

100 AS=INKEYS:IF AS<"0” OR AS>" 
5” THEN 100 

110 -A=VAL(AS) :ON A+] GOSUB 999, 
200,300,400,600,800 

120 ER=O0 

130 coro 70 

200 GOSUB 1000 

210 AP=1252 

220 FOR K=1 TO 9 

230 AP=AP+2 

240 GOSUB 1100 

250 NEXT 

260 CLS:PRINT 6448," TEMPO=" 
ER/50; "SEGUNDOS* 

270 PRINT"NUMERO DE ERROS=":ER; 
280 RETURN 

300 GOSUB 1000 

310 FOR K=1 TO 20 

320 AP=1252+2*RND(9) - 

330 GOSUB 1100, a 
340 NEXT 
350 CLS 
360 
0:" SEGUNDOS” 


1 TIM 








430 PS=MIDS (OBS, 2*RND(9 

440 PRINT 6239,PS; 

450 AS=INKEYS:IF ASe"” THEN 450 
460 IF K=1 THEN TIMER-O 

470 IF AS<>PS THEN SOUND 5,1:ER 


=ER+1:GOTO 450 
480 POKE 1263,128 
490 SOUND 200,1 
500 NEXT 

510 GOTO 350 

600 CLS:PRINT” DIGITE A TECLA Q 
UE APARECER” 

610 T=0 


620 FOR K=1 TO 10 

630 PS=WS$ (RND(28)) 

640 T=T+LEN(PS) 

650 PRINT 8237,PS 

660 P=1 

670 POKE 1228+P,106 

680 AS=INKEYS:IF AS="" THEN 680 
690 IF K=1 THEN TIMER=O 

700 IF AS<>MIDS(PS,P, a aa ER 
=ER+1: SOUND 5,1:GOTO 6 

710 POKE 1228+P,96 

720 SOUND 200,1:P=P+1:IF P<=LEN 
(PS) THEN 670 

730 NEXT 

740 CLS 

750 PRINT €416,USING"PALAVRAS P 
OR MINUTO=44+. 44"; T*500/TIMER 
760 GoTo 360 

800 CLS:P$="":FOR K=1 TO 6 

810 PS=PS+WS (RND(28))+" 

820 NEXT 

830 PS=LEFTS (PS, LEN(PS)-1) 

840 PRINT” DIGITE ESTAS PALAVRA 
s” 

8so 
860 
8z0 


P=1:PRINT 8224,PS 
AS=INKEYS:IF AS="" THEN 860 
TIMER=D:GOTO 890 




























Qual a velocidade de datilografia que 
devo tomar como meta para começar? 

Na etapa inicial do curso, o mais cor 
reto é preocupar-se com a precisão e 
não com a velocidade. Depois que se 
consegue datilografar todas as palavras 
sem cometer nenhum erro, pode-se 
pensar em acelerar o ritmo de trabalho. 

Deve-se praticar os Níveis 1, 2e 3 
até que se consiga datilografar vinte le 
tras em doze ou treze segundos; nos 
Níveis 4 e 5, deve-se ter como meta 
cerca de quinze palavras ou mais por 
minuto 














5,1:GOTO 680 
1311+P, PEEK(1247+P) 
E (200,1 :P=P+:TF PSoLEN 
ET Sao” Ê q 
a “T=LEN(P$) :GOTO 740 
rir 


NT”PRESSIONE A TECL 
“PELO ASTERISCO 
Tolo” ES €262,0B5 








- 1020 FOR Kel TO 1000:NEXT 





1030 RETURN | 
1100 POKE AP.106 
8:1F- agers THEN 11 





; Hao 120 IF Pei THEN TIMER=O 


PRINTE14*32,ASC(AS); 
nós. FRA Ra DER (AP+32); 
1130 IF (ASC(AS))<>PEEK(AP+32)T 
JER=ER+1:GOTO 1110 






ais, SALA, DADA, A 
+ALADA, LA, GAS, DALL 

ASI SNOA + FALA 

9010 DATA. aa FALHA ADAGA, HA, 

AGA, HAIA JA, BALL KA, FA,AJA.DAS, 

GALHAS, JAL. 


5 R=RND(-TIME) 

10 OBS="ASDEGHUJKLG":25 
=CHRS (219) :S$="L1O 02 6” 

20 SCREENI-CLS 

30 DIM W$(28) 

40 FOR K=1 TO 28 

50 READ WS (K) 

60 NEXT 

20, LOCATE 7,4:PRINT"Qual nível 
e: 

BO LOCATE 5,6:PRINT"dificuldade 
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po Qu=syo 

90 LOCATE 3,9:PRINT"Tecle <0> p 
ara terminar.” 

100 AS=INKEY$:IF AS<"0” OR AS>" 
5” THEN 100 


110 ON VAL(A$)+1 GOSUB 999,200, 
300,400,600,800 

120 ER=0 

130 GOTO 70 

200 GOSUB 1000 

210 AP=357 

220 FOR K=1 TO 10 

230 AP=AP+2 

240 GOSUB 1100 

250 NEXT 

260 CLS 

270 LOCATE 5,12:PRINT"Tempo ="; 


INT(TIME/60) ; "segundos." 

280 LOCATE 6:PRINT"Número de er 
ros ="; ER; 

290 RETURN 

300 GOSUB 1000 

310 FOR K=1 TO 20 

320 AP=359+INT(RND(1)*10)*2 

330 GOSUB 1100 

340 NEXT 

350 GOTO 260 

400 CLS:PRINT"Digite a letra mo 
strada na tela:” 

410 LOCATE 11,9:PRINTZS;2$;2$;Z 
$:LOCATE 11:PRINTZS; ";Z$:LOC 
ATE 11:PRINTZS;” ;Z5:LOCATEI1 
PRINTZS;2$;28;25 





420 FOR K=1 TO 20 

430 P$=MIDS (OBS, INT (RND(1)*10)* 
2+1,1) 

440 LOCATE 13,11:PRINTPS; 

450 AS=INKEY$S: IFA$=""THEN450 
460 IF K=1 THEN TIME=0 

470 IF AS<>PS THEN PLAY SS:ER=E 
R+1:GOTO450 

480 PRINTCHRS (8) ;CHRS (32) ; 

490 BEEP 

500 NEXT:GOTO 260 

600 CLS:PRINT"Digite a palavra 
que aparecer:” 

610 
620 


TL=0 

FOR K=1 TO 10 

630 P$=W$ (INT (RND(1)*28)+1) 

640 T=LEN(PS$) :TL=TL+T:L=INT((30 
-T)/2) 

645 LOCATE 0,11:PRINTSPACES (30) 
650 
655 
660 
670 


LOCATE L,11:PRINTPS 

FOR J=1 TO T 

LOCATE L,10:PRINTCHR$ (205) ; 
AS=INKEY$: IFA$=""THEN670 
680 IF K=1 THEN TIME=0 

690 IF AS<>MIDS(P$,J,1) THEN PLA 
Y S$:ER=ER+I:GOTO 670 

700 LOCATE L,10:PRINTCHRS (32); 
710 BEEP:L=L+1:NEXT 

720 NEXT 

730 CLS:LOCATE 2,16:PRINT "Pala 
vras por minuto:”;:PRINT USING 
"444.44"; TL*600/TIME 




















740 GoTo 270 

800 CLS:P$="" 

810 FOR K=1 TO 5:P$=P$+WS (INT(R 
ND(1)*28)+1)+CHRS (32) :NEXT 

820 PS=LEFTS (PS, LEN(PS)-1) 

830 PRINT"Digite estas palavras 
840 
8so 
860 


P=1:LOCATE 0,11:PRINTPS 
AS=INKEYS: IFA$=""THENS85SO 
TIME=0:GOTO 880 

870 AS=INKEY$S: IFA$=""THEN870 
880 IF AS<>MIDS(P$,P,1)THEN PLA 
Y S$:ER=ER+1:GOTO 870 

890 LOCATE-1+P, 14: PRINTMIDS (PS, 
P,1) 

900 BEEP:P=P+l:IF P<-LEN(P$) TH 
EN 870 

910 TL=LEN(P$):GOTO 730 

999 SCREENO:END 

1000 CLS:PRINT"Digite o caracte 
r indicado pela seta:” 

1010 LOCATE 5,12:PRINTOBS 

1020 FOR K=1 TO 1000:NEXT 

1030 RETURN 

1100 VPOKE BASE (5) +AP,205 

1110 AS=INKEY$S:IF A$=""THEN 111 
0 

1120 IF K=1 THEN TIME=0 

1130 IF ASC(AS)<>VPEEK (BASE(5) 
+32+AP) THEN PLAY S$:ER=ER+1:GOT 
o 1110 

1140 BEEP 

1150 VROKE BASE(5) +AP,O 
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1160 RETURN 

9000 DATA FADA, SALA, ADAGA, DADA, 
FAÇA, FA,GALA, HAJA, AGA, HALL, ALAD 
A,ASA,GAS, FALHA 

9010 DATA FALA, LAÇA, ALAGA, LAKA, 
SAGA, JA, AJA, AFAGA, GALHADA, DALLA 
S,LA,HA,ASSA, LAJA 


10 0B$S = "A S DF GÃH JU 

MS ER e 

20 HOME 

30 DIM W$(28) 

40 FORK = 1 TO 28: READ WS(K) 
NEXT 


50 BHTAB 14: VTAB 5: PRINT "Qua 
1 nivel de” 

60 PRINT HTAB 12: PRINT "dif 
iculdade? (1-5)” 

70 HTAB 9: VTAB 11: PRINT "Tec 


le <0> para terminar.” 





80 GET AS: IF AS < "0" OR AS > 
"5" THEN 80 

90 ON VAL (AS) + 1 GOSUB 999, 

200,300,400,500,600 

100 ER = O 

110 coro 50 

200 GOSUB 1000 

210 AP = 2 

220 FORK = 1 TO 10:AP = AP + 

3: GOSUB 1100: NEXT 

230 HOME 

240 VTAB 15: HTAB 12: PRINT "N 

umero de erros = ";ER; 

250 RETURN 

300 GOSUB 1000 

310 FORK=1 TO 20 

320 AP = 2 + INT ( BND (1) *1 

0+1)*3 

330 GOSUB 1100: NEXT 

340 coro 230 

400 HOME PRINT "Digite a let 

ra mostrada na tela:” 

410 VTAB 9: HTAB 18: INVERSE 
PRINT ” HTAB 18: PRINT " 
": HTAB 1 PRINT " e 

420 FORK = 1 TO 20:PS = MIDS 
(OBS, INT ( RND (1) * 10 + 1) 

*3= 2,1) 

430 VTAB 10: HTAB 19: PRINT PS 

; CHRS (8); 

440 GET AS: IF AS < > P$ THEN 
PRINT CHR$ (7);:ER = ER + 1: 
GoTO 440 

450 A = PEEK ( - 16336):A = P 

EEK ( - 16336): NEXT : NORMAL 
Goto 230 

500 HOME PRINT "Digite a pal 


avra que aparecer:" 
510 TL = 0 


520 FORK = 1 TO 10 

530 P$ = W$( INT ( RND (1) * 28 
+01 

540 T = LEN (P$):L = INT ((40 
ERRA) 

550 PRINT : VTAB 11: CALL - 9 
58: HTAB L: PRINT PS 

560 FORJ=0 TOT-J1: VTABI 
O: HTAB J + L: PRINT "*"; CHRS 
(8); 

570 GET AS: IF AS< > MIDS ( 


P$,J + 1,1) THEN PRINT CHR$ ( 


7);:ER = ER + 1: GOTO 570 

580 A = PEEK ( - 16336):A = P 
EEK ( - 16336): PRINT CHRS (32 
);: NEXT 

585 NEXT 

590 GOTO 230 

600 HOME :P$ = "" 

610 FORK = 1 TO 6:P$ = PS +W 
SC INT ( RND (1) * 28) + 1) + 
CHRS (32): NEXT 

620 PS = LEFTS (P$, LEN (P$) - 
1) 

630 PRINT "Digite estas palavr 
as:" 

640 P = 1; VTAB 11; HTAB 4: PRI 
NT P$ 

650 GET A$: IF AS < > MIDS ( 
P$,P,1) THEN PRINT CHR$ (7);: 
ER = ER + 1: GOTO 650 

660 VTAB 15: HTAB P + 3: PRINT 


MIDS (P$,P,1) 
670 A = PEEK ( - 16336):A = P 
EBK ( - 16336):P = P + 1: IF P 
< = JLEN (P$) THEN 650 





680 GOTO 230 

999 HOME END 

1000 HOME PRINT "Digite o ca 

racter indicado pelo a 

sterisco:” 

1010 VTAB 12: HTAB 5: PRINT OB 

$ 

1020 FOR K = 1 TO 500: NEXT 

1030 RETURN 

1100 POKE 1319 + AP,170 

1110 GET AS: IF ASC (AS) < > 
PEEK (1319 + AP + 128) - 128 

THEN PRINT CHR$ (7);:ER = ER 

+ 1: GOTO 1110 

1120 A = PEEK ( - 16336):A = 

PEEK ( - 16336): POKE 1319 + AP 

1160 

1130 RETURN 

9000 DATA FALA,AGA,AFAGA,GAS, 

SALA, DADA, HAJA, HALL, LAKA, ASA, AL 


ADA, ASDFG, SAGA, KAKA 


9010 


DATA AJA,FA,ALAGA, JA,AGA 


+ HA, GALHADA, FALHA, GALA, FADA, DAL 
LAS, ASSADA, LALA, ;LKJH 
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CÓDIGO DE 
CONTROLE 


Códigos de controle podem ser usados 
no lugar de muitos comandos em 
BASIC. Entrados diretamente por meio 
do teclado em certos micros, 

eles proporcionam uma ação imediata. 








Os códigos de controle correspon- 
dem, na maioria dos micros, aos códi- 
gos de O a 31 no sistema ASCII, e ser- 
vem para realizar uma série de funções 
relacionadas principalmente com o con- 
trole do vídeo. 

Caso você não saiba ainda, ASCII é 
um sistema de codificação padronizado 
mundialmente e utilizado por quase to- 
dos os computadores. ASCII significa 
American Standard Code for Informa- 
tion Interchange (Código Padrão Ame- 
ricano para Intercâmbio de Informa- 
ção), e se pronuncia ásqui. 

Originalmente, os códigos de contro- 
le do ASCII correspondiam às funções 
básicas de transmissão de um terminal 
ligado ao computador: início de trans- 
missão, sinal de atenção, fim de trans- 
missão, acionamento da campainha do 
terminal, etc. 

Entretanto, cada fabricante de micro- 
computadores aproveitou a faixa de có- 
digos de O a 31 para implementar fun- 
ções diferentes. Com poucas exceções, 
portanto, a maioria dos códigos de con- 
trole não é padronizada, como aconte- 
ce com os códigos correspondentes a ca- 
racteres comuns (letras, números, sinais 
matemáticos e de pontuação, etc.). 


A o o ie RÃS 


istem duas técnicas básicas de uti- 
lização de códigos de controle. Uma de- 
las — mais universal — pode ser apli- 
cada a qualquer microcomputador que 
disponha da função CHRS no interpre- 
tador BASIC. A outra é aplicável ape- 
nas a alguns computadores: é a entrada 
direta dos códigos de controle por inter- 
médio do teclado. A tecla rotulada 
CONTROL (ou ainda CTRL), existente 
em muitos micros, deve ser pressionada 
em combinação com outras teclas, pa- 
ra introduzir o código de controle nu- 
ma linha de comando ou de programa. 

A função CHRS (abreviatura de cha- 
racter) permite converter um código nu- 
mérico inteiro, situado entre O e 255, ao 
seu caractere correspondente. Por exem- 
plo, PRINT CHRS(65) escreverá na te- 
la a letra A (maiúscula). 

A função CHRS funciona também 
com os caracteres de controle. Dessa 


















forma, se acionarmos um comando 
PRINT associado a um ou mais carac- 
teres de controle, poderemos realizar 
uma série de tarefas básicas (até mesmo 
algumas que normalmente podem não 
ser acessíveis por intermédio de coman- 
dos BASIC). A seguir, damos alguns 
exemplos para o TR$S-80 (os outros 
computadores serão abordados na con- 
tinuação deste capítulo). 








Você já conhece a instrução CLS, 
que serve para limpar a tela e retornar 
o cursor à posição superior esquerda do 
vídeo. Não seria interessante se pudés- 
semos apagar a tela apenas de um de- 
terminado ponto para baixo ou até o 
nal de uma linha? Efeitos desse tipo são 
facilmente obtidos por meio da combi- 
nação do comando PRINT CHRS(n) 
com os seguintes códigos: 

8 - recua e apaga o último caracte- 
re na tela; 

10 - avança o cursor para o começo 





da linha seguinte; 

14 - liga o cursor; 

15 - desliga o cursor; 

23 - converte a tela para a largura de 
32 caracteres; 

28 - retorna o cursor à posi 
sem apagar a tela; 

29 - move o cursor para o começo da 
linha; 

30 - apaga da posição do cursor até 
o final da linha; 

31 - apaga o espaço que vai da posi- 
ção do cursor até o final da tela. 





o 0,0, 


Uma seqiiência de caracteres de con- 
trole pode ser colocada também dentro 
de uma cadeia de caracteres, por meio 
da função STRING$. Por exemplo: 
PRINT STRING$(5,10) provoca o 
avanço do cursor cinco linhas para bai- 
xo. Esse comando corresponde à ação 
de pressionar a tecla com a flecha para 
baixo cinco vezes seguidas, com a van- 
tagem de poder ser colocado dentro de 
um programa (corresponde a cinco co- 
mandos PRINT em branco). 








incorporados a um programa BASIC. 


Muitas vezes, usamos o computador 
sem nenhuma necessidade de saber co- 
mo sua memória funciona. Quando es- 
crevemos, por exemplo, LET A = 67, 
o computador por si só seleciona posi- 
ções de memória livres, chama estas po- 
sições de “A” e nelas armazena o valor 
67. Se digitarmos, em seguida, PRINT 
A, o computador saberá exatamente on- 
de encontrar o valor pedido — o pro- 
cesso é automático. Só é necessário in- 
dicar ao computador as posições de me- 
mória que devem ser usadas quando 
programamos em código de máquina. 


Mas existe em BASIC uma maneira 
de examinar a memória do computador, 
para localizar os valores al armazena- 
dos. É possível, também, armazenar va- 
lores apropriados na memória, a fim de 
alterar o comportamento da máquina. 

As ferramentas BASIC para isso são 
o PEEK co POKE. PEEK permite que 
se examine o valor armazenado na me- 
mória e POKE possibilita o armazena- 
mento de um determinado valor. 


COMO FUNCIONAM O PEEK E'O POKE 


Os computadores TRS-80, TRS-Co- 
lor, MSX, bem como os ZX-81 e Spec- 
trum de 48K, possuem 65536 posições 


E E” 
STS 
ESCREVA NA TELA COM O POKE 


mad 


de memó veis; portanto, 
64K. 0 Apple co TK-2000, em suas di- 
versas versões, apresentam diferentes ta- 
manhos de memória, Uma parte dessa 
memória é a ROM, ou seja, a Memória 
Apenas para Leitura. Os conteúdos da 
ROM são fixos; assim, embora possa- 
mos examiná-la usando PEEK, não po- 
demos utilizar o POKE para armazenar 
novos valores ou alterar os que nela já 
existem. O restante da memória é a 
RAM — a Memória de Acesso Aleató- 





gramas BASIC. Podemos usar P! 
para examinar e POKE para armazenar 
os valores ali contidos. 

o: você exa- 


Este programa 
mine AS le memória 
OM ou RAM pi 


ES-cas 


10 INPUT “ENDERECO...”;A 
20 LET N=PEEK(A) 

30 PRINT "CONTEUDO.. 
40 Goto 10 


«"N 


Entre com o número que desejar, de 
0 a 65535, e você verá o que existe na 
posição indicada, Pode ocorrer, porém, 
que ao usar PEEK para examinar deter- 
minadas áreas da memória, você rece- 
ba como resultado um valor fictício e 
não o valor real lá existente. Os conteú- 
dos da RAM dependerão sempre do que 
você estiver fazendo com o computador; 
apenas os conteúdos da ROM são fixos. 
Repare que os números são sempre 
valores inteiros entre O e 255 e, em he- 
xadecimal, de O a FF. Isso significa que 
todos constituem bytes simples (um byte 
contém um número hexadecimal de dois 
dígitos). Cada posição de memória con- 
tém um byte, não sendo possível guar- 
dar qualquer número maior em uma po- 
sição de memória. Se você somar 1 a FF, 
em hexadecimal, obterá 0100. Como es- 
te resultado inclui dois bytes, será pre- 
ciso armazená-lo em duas posições de 
memória: 01 em uma posição e 00 em 
outra. 
O programa que apresentamos a se- 
Ri que se empregue o coman- 
do POKE para guardar números na me- 
mória do E Epaadort Neste estágio, 


mazene apenas bytes simples, ou seja, 
qualquer número entre O e 255 


Ecs 


"; PEEK (3000 


10 PRINT"CONTEUDO. 
) 


20 INPUT"NUMERO....";N 

30 POKE 30000,N 

40 PRINT"NOVO CONTEUDO” ; PEEK (30 
000) 

45 PRINT 

50 goto 20 


O programa apresenta primeiro o 
conteúdo da posição de memória e, em 
seguida, usa o POKE para armazenar ali 
o número indicado. Depois, mostra uma 
vez mais o conteúdo, para provar que 
o número realmente foi armazenado. 

Podemos trocar a posição de memó- 
ria para qualquer outra posição que de- 


sejarmos. Repare que nada acontece se 
tentarmos usar POKE na ROM e não 
causaremos nenhum dano ao sistema se 
o fizermos. Utilizado em certas áreas da 
RAM, porém, o POKE pode provocar 
algum desarranjo, mas nada fatal — 
simplesmente desligue a máquina por 
um momento, para reiniciar à memória, 

Tente agora utilizar o POKE para ar- 
mazenar um número maior do que 255 
e veja o que acontece. Nos computado- 
res TRS-Color e Spectrum, você obterá 
uma mensagem de erro, já que só há lu- 
gar para um byte em cada posição de 
memória. 





; bx ESCREVA NA TELA COM O POKE 


Examinando os mapas de memória. 
apresentados no artigo da página 174, 
você verificará que uma porção da me- 
mória é dedicada à exibição em tela, Se 
usar o POKE para armazenar certos nú- 
meros nesta área, os caracteres realmen- 
te aparecerão na tela. Para ver determi- 
nado caractere, armazene códigos AS- 
CII, empregando o POKE, nos compu- 
tadores TRS-80, TRS-Color e TK-2000. 
No Apple, os valores ASCII produzirão 
caracteres piscantes; para obter carac- 
teres normais, some 128 ao código AS- 
CII. Nos micros da linha Sinclair e 
MSX, utiliza-se um método diferente do 
descrito abaixo. No TK-2000, a organi- 
zação da tela não permite tal exibição. 
Tente as seguintes linhas: 





TABELA DE CÓDIGO ASCII 


Cada caractere que o computador uti- 
liza possui um código numérico, e mui- 
tos modelos adotam um código padrão 
denominado Código ASCII — iniciais 
de American Standard Code for Infor- 
mation Interchange (Código Padrão 
Americano para Intercâmbio de In- 
formação). 

Estes códigos são os números usados 
em CHR$ e ASC (ou CODE no Spec- 
trum). CHR$ converte o número em um 
caractere, enquanto ASC ou CODE faz 
o inverso, convertendo um caractere em 
seu código numérico. 

Assim, quando o computador guarda 
uma palavra, O que armazena 
é o código ASCIL do caractere. 


Caractere 
ASCIl 


Número 
de código 


Caractere 
ASCIl 


Número 
de código 


space > 
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e|l 
a 
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POKE 15360,65 





POKE 1024,65 


[é] 


HOME:POKE 1024,193 


A letra A deverá aparecer no canto 
superior esquerdo da tela. 

No TRS-Color, se a tela tiver rolado 
antes de uma tentativa de armazenar ca- 
racteres pelo POKE, eles não aparece- 
rão em lugar nenhum. Assim, primeira- 
mente limpe a tela, digitando CLS e, de- 
pois, <RETURN> ou <ENTER>. 

Você deve estar se perguntando qual 
a vantagem de usar o POKE para colo- 
car caracteres na tela, já que dispomos 
de comandos tão eficientes como o 
PRINT A, PRINT TAB ou PRINTO. 
De fato, o PRINT é normalmente o mé- 
todo mais fácil e conveniente para po- 
sicionar os caracteres. Mas há casos em 
que o emprego do POKE se mostra van- 
tajoso. Por exemplo, se usarmos o 
PRINT para escrever na última posição 
da tela, esta sempre rolará; com o PO- 
KE, ao contrário, não haverá nenhum 
problema. Você pode imaginar o quan- 
to esta característica é útil, sobretudo em 
jogos, quando queremos mover um ca- 
ractere por toda a tela. 


DD RI 


No Spectrum, as coisas são um pou- 
co diferentes, pois não se pode usar o 
POKE para armazenar caracteres sobre 
a tela. Um caractere é feito de pontos 
de uma matriz de oito por oito. E cada 
linha deve ser armazenada pelo POKE 
separadamente, até se completar o ca- 
ractere. 

Felizmente, as formas dos caracteres 
são armazenadas na ROM; assim, pode- 
se usar o PEEK nesta porção da memó- 
ria, a fim de examinar cada linha e, en- 
tão, exibi-la na tela com o POKE. 

O programa que apresentamos a se- 
guir utiliza o comando POKE para exi- 
bir a letra A no canto superior esquer- 
do da tela. 


10 LET dest=16384 
20 FOR a=15880 TO 15887 
30 POKE dest, PEEK a 


40 LET dest=dest+256 
50 NEXT a 


A linha 10 define o endereço da pri- 
meira linha dos caracteres da tela. O 
FOR...NEXT permite o acesso à ROM, 
onde o caractere está armazenado e a li- 
nha 30 imprime a primeira linha deste 
caractere na tela. A linha 40 incremen- 
ta o endereço da tela em 256, dando 
acesso à próxima linha, logo abaixo da 
primeira. 

O método funciona, mas, por ser um 
tanto lento, quase sempre é mais vanta- 
joso usar o PRINT AT ou PRINT TAB 
no Spectrum. 


O USO DO PEEK NA ROM E NA RAM 


Quando executamos o primeiro pro- 
grama que examina a memória do com- 
putador, obtivemos apenas números en- 
tre 0 e 255. Mas muitos desses números 
são, na realidade, códigos de letras em 
ASCII, alguns dos quais formam pala- 
vras ou mesmo sentenças completas. Se 
você não conhece os códigos ASCII, ve- 
ja a tabela da página 263. 

O programa seguinte lê toda a memó- 
ria ROM do computador e converte os 
números em caracteres, antes de impri- 
mi-los na tela: 


10 FOR A=0 TO 16383 

20 LET N=PEEK A 

30 IF N>31 AND N<127 THEN PRINT 
CHRSN; 

40 NEXT A 





10 FOR A=.H8000 TO &HBFF 

20 N=PEEK(A) 

30 IF N>31 AND N<127 THEN PRINT 
CHRS(N) ; 

40 NEXT A 


| 


10 FOR A=AHO TO &HZFFE 

20 N=PEEK (A) 

30 IF N>31 AND N<127 THEN PRINT 
CHR$ (N) ; 

40 NEXT A 


[é] 


10 FORA = 53248 TO 65535 

20 N = PEEK (A) 

30 IF N>31ANDN< 127 THEN 
PRINT CHR$ (N); 

40 NEXT A 


As linhas 10 e 40 determinam a repe- 
tição do processo em toda a memória; 
a linha 20 examina cada posição, usan- 
do o POKE, e a linha 30 converte o nú- 
mero em um caractere e o imprime. Es- 
ta linha ainda limita o intervalo de nú- 
meros que serão convertidos, evitando 
que o computador imprima códigos de 
controle ou símbolos gráficos. 

Para o TRS-80, use o programa do 
TRS-Color com a linha 10 do progra- 
ma do Spectrum. 

Pode-se também imprimir o conteú- 
do da RAM do mesmo modo, bastan- 
do trocar os endereços de memória da 
linha 10. Os endereços dados abaixo im- 
primem parte da área em que os progra- 
mas BASIC estão armazenados, permi- 
tindo que você veja como o seu próprio 
programa está guardado na memória, 
Convém desligar o computador por um 
segundo antes de rodar este programa, 
para evitar que a RAM permaneça car- 
regada com restos de outros programas. 
Aqui está a nova linha 10: 


10 FOR A=23755 TO 65000 


10 FOR A=16510 TO 30000 





10 FOR A=&H1E00 TO &H1F0O 





Use FOR 17385 TO 32767 para sis- 
temas de 16K e os finais 49151 para 32K 
e 65535 para 48K. 


[oé] 


10 FOR A - 2048 TO 32767 


hay 


10 FOR A=8H8000 TO &HF37F 


Experimente examinar outras áreas 
da RAM da mesma maneira. 


PENAS 


Até aqui examinamos a memória do 
computador e usamos POKE para 
exibir caracteres na tela. Isso nos deu 
uma boa noção de como o PEEK e o 
POKE funcionam, mas não do quanto 
são úteis. 


Para as aplicações mais importantes, 
precisaremos examinar posições especi- 
ficas de memória. No Spectrum, a po- 
sição de memória 23609 controla o som 
que o teclado faz quando se pressiona 
uma tecla. Normalmente, ela contém 0, 
que provoca um pequeno clic; mas, com 
um número maior — que pode chegar 
a 255 —, obtém-se um longo bip. PO- 
KE 23609,80 faz um ruído razoável. 

As possibilidades de uso do PEEK e 
do POKE dependem principalmente do 
computador que você tem. 

Retomando o exemplo anterior: os 
teclados dos demais computadores não 
fazem ruído quando uma tecla é pres- 
sionada; não têm posição de memória 
que controle o som do teclado. Assim, 
um efeito que requer cinco ou seis PEEK 
ou POKE em determinado computador 
pode ser obtido com uma palavra-chave 
BASIC em outra máquina. 

O Apple faz um bom uso do PEEK 
e do POKE. O Spectrum,o TRS-80 e'o 
TRS-Color utilizam-no ocasionalmen- 
te. No MSX o uso destes comandos é 
mais raro. 

Aqui estão algumas aplicações para 
o seu computador. 


Já vimos um POKE modificar o som 
do teclado. O POKE seguinte altera o 
espaço de tempo que uma tecla leva pa- 
ra iniciar a auto-repetição — o que é útil 
em jogos de velocidades, nos quais uma 
tecla precisa ser pressionada para mo- 
ver um caractere. Neste caso e nos se- 
guintes, X é uma variável que devemos 
ajustar por meio do comando. 


POKE 23561,X 


Normalmente, quando se liga o com-, 


putador, X é ajustado para 35. Assim, 
use um número menor que 35 para di- 
minuir o intervalo de espera e um nú- 
mero maior para obter um intervalo 
mais longo. 

Pode-se também alterar a repetição 
automática com: 


POKE 23562,X 


Este tempo X é, em geral, igual a 5. 
Assim, use X = 1 para uma auto- 
repetição rápida e X = 25 para uma 
bem lenta. 


CONTROLE DE TEMPO 


O Spectrum não tem acesso ao cro- 
nômetro interno via teclado. Para uti 
zá-lo, precisaremos usar o PEEK na me- 
mória. O tempo é armazenado como 





três bytes em três posições consecutivas 
de memória. 


PRINT (PEEK 23672+256*PEEK 23673 
+65536*PEEK 23674) 


« informará quantos cinquenta avos de 
segundo o seu Spectrum está ligado des- 
de o último NEW. Pressione NEW pa- 
ra reiniciar o cronômetro ou POKE 0 
em cada uma das três posições. 


AREAS? 


Apresentaremos aqui mais duas apli- 
cações do POKE, que serão úteis quan- 
do você quiser escrever programas para 
outra pessoa. A primeira delas assegu- 
ra que todas as letras digitadas apare- 
çam em tipo maiúsculo. 


POKE 23568,8 


Esta instrução é útil quando se pre- 
tende que todos os dados de entrada se- 
jam consistentes. Use POKE 23658,0 
para retornar ao normal. 

Uma outra possibilidade é a altera- 
ção do cursor para qualquer caractere 
do teclado — ou mesmo qualquer pala- 
vra-chave, dependendo do número que 
foi usado no POKE: 


10 FOR X=1 TO 255 
20 POKE 23617,% 
30 INPUT a$ 

40 NEXT X 


A linha 30 faz um INPUT a$ apenas 
para que o cursor apareça na tela. Tão 
logo entre algum dado via INPUT, o 
programa mostrará O cursor seguinte. 
Os mais interessantes são aqueles por 
volta de X = 200 até 230, Por exemplo, 

= 210 exibe <CONTINUE> como 
um cursor, e X = 225 exibe um sinal de 
interrogação. 


O PEEK e o POKE são também uti- 
lizados para a auto-repetição. O TRS- 
Color normalmente não tem teclado au- 
to-repetitivo. Para mover objetos em jo- 
gos, por exemplo, é preciso manter a te- 
cla pressionada, soltá-la muito rapida- 
mente, voltar a pressioná-la e, assim, su- 
cessivamente, Uma maneira de evitar es- 
se cansativo procedimento é usar PEEK 
para verificar que tecla está sendo pres- 
sionada, o que nos permite deixar o de- 
do sobre a tecla pelo tempo que qui- 
sermos. 

Esse método já foi empregado na 
seção de Programação de Jogos. Veja 
como funciona: quando pressionamos 





uma tecla, um código numérico especial 
é colocado em uma das seis posições de 
memória. O PEEK checa, então, estas 
posições, para verificar que tecla está 
sendo pressionada. O emprego deste re- 
curso é muito simples. O programa se- 
guinte, por exemplo, usa teclas de cur- 
sor para desenhar na tela: 


10 PMODE 0,1 

20 PCLS 

30 SCREEN 1,1 

40 X=127:7=95 

PEEK(341)=223 THEN Y=Y-2 
PEEK(342)=223 THEN Y=Y+2 
PEEK(343)=223 THEN X=X-2 


80 IF PEEK(344)=223 THEN X=X+2 
90 IF X<0 OR X>255 THEN X=-255* 
(X<0) 

100 IF Y<O OR Y>191 THEN Y=-191 
*(Y<0) 

110 PSET (X,7,5) 

120 goto 50 


A tabela da página 265 mostra o có- 
digo numérico gerado para cada tecla e 
a posição de memória em que elas são 
armazenadas. Se, por exemplo, pressio- 
nássemos A, PEEK (339) seria igual a 
267. Podemos verificar, assim, de onde 
vieram os números escritos após os 
PEEK nesse último programa. 


E Ro 


O programa seguinte traça linhas de 
diferentes cores na tela. Colocando-as 
perto umas das outras, obteremos no- 
vos matizes. Você pode pressionar qual- 
quer tecla durante a execução do pro- 
grama, se quiser interromper o desenho 
e examinar o número para determina- 
do matiz. 


10 PMODE 3,1:SCREEN 1,0:PCLS3 
20 FOR K=0 TO 255 

30 POKE 178,kK 

40 LINE(78,46)-(178,146),PSET,B 


50 IF INKEYS<>"" THEN 80 
60 NEXT 

70 GOTO 70 

80 CLS:PRINT K 


A posição de memória 178 controla 
acor do primeiro plano. Esta varia, em 
geral, de O a 3 (4 cores), mas, se usar- 
mos o POKE para armazenar um valor 
maior que K=3, obteremos novas lis- 
tras coloridas. 

Utilizamos PSET na linha 40 porque 
estamos manipulando cores de primeiro 
plano. Para trabalhar as cores de plano 
de fundo, troque PSET por PRESET e 
substitua o valor 178 na linha 30 por 179. 

Parando o programa, poderemos 
examinar o valor de K para determinado 
matiz e, assim, usar esta cor em outros 
programas gráficos. 








[ooo RR Rad ma 


A possibilidade de acelerar o compu- 
tador é interessante, Rurandos para jo- 
gos — você pode fazê-los andar mais de- 
pressa se, por exemplo, o jogador atin- 
gir um determinado número de pontos. 

Utilize o primeiro POKE para acele- 
rar e o segundo para voltar ao normal. 


POKE 65495,1 
POKE 65494,1 


Pode-se usar qualquer número em lu- 
gar do 1, pois o efeito será o mesmo. 

Existe apenas um problema com es- 
tes POKE — como eles não funcionam 
em qualquer processador, corre-se o ris- 
co de que o programa prejudique o 
tema. Mas não custa nada experimentá- 
los uma vez em seu computador. 

E, agora, se você considera determi- 
nado jogo muito rápido, aqui está uma 
maneira de desacelerar a saída na tela. 


POKE 359,60 


Para voltar ao normal, use POKE 
359,67, mas não no CP-400 Color, pois 
ele desativa o retorno automático ao 
modo texto. 





No Apple é possível controlar a por- 
ção da tela que iremos utilizar. O ende- 
reço 32 contém a margem esquerda; 33, 
a largura máxima da linha; 34, o núme- 
ro de linhas da margem superior e 35, 
da margem inferior. Modificando os va- 
lores desses endereços com POKE, 
pode-se programar a janela de textos. É 
o que faz o programa seguinte. 

5. HOME : VTAB 5: HTAB 11 


Bo POKE 32,10: POKE 33,20 
Bio POKE 34,4; POKE 35,20 


30 PRINT "JANELA "; 
40 coro 30 

Outra utilidade destes comandos é 
possibilitar uma “'varredura do tecla- 
do”, verificando o valor contido na po- 
sição — 16384 — sendo maior que 127, 
sabe-se que alguma tecla foi pressiona- 
da, Na realidade, esta posição de memó- 
ria contém o código ASCII do caracte- 
re da tecla pressionada mais 128. 

Sempre que fizermos esse tipo de 
“varredura”, devemos colocar o valor 
O na posição — 16368, para que'uma no- 
va verificação seja possível. O desrespei- 
to a esta regra pode prejudicar seus pro- 
gramas. O programa que se segue exem- 
plifica a utilização desse recurso. 


10 HOME 

20 A = PEEK ( - 16384): POKE 
- 16368,0 

30 IF A > 127 THEN PRINT CHR 
S (A - 128); 

40 Goto 20 


O programa funciona como uma má- 
quina de escrever. Os caracteres corres- 
pondentes às teclas pressionadas são 
mostrados no vídeo. 

O uso do PEEK também possibilita 
a produção de sons. Toda vez que veri- 
ficamos o conteúdo do endereço 
—16336, um clic é produzido. Faça uma 
experiência, adicionando as linhas abai- 
xo ao programa anterior. 


30 IF A > 127 THEN PRINT CHR 
S (A - 128);: FOR I = 1 TO 10:X 
- PEEK ( - 16336): NEXT 


A 


O Apple pode mostrar texto e gráfi- 
cos de baixa e alta resolução em duas 
“páginas diferentes”. Alguns POKE 
são capazes de modificar rapidamente 
as características da tela. 





POKE -16304,0 

Troca a tela de textos pela tela gráfi- 
ca, sem limpar esta última. 
POKE -16303,0 

Troca a tela gráfica de qualquer tipo 
pela tela de textos, sem redefinição da 
janela de textos. 
POKE -16302,0 

Permite a exibição de gráficos em tela 
cheia, ou seja, impede o aparecimento 
de texto nas quatro linhas inferiores da 
tela gráfica. 
POKE -16301,0 


Troca a tela cheia por gráfico mais 
texto, ou seja, faz reaparecer as quatro 
linhas de texto na parte inferior da tela 
POKE -16300,0 

Passa da página 2 para a página 1. 
Não limpa a tela nem move o cursor 
POKE -16299,0 

Passa da página 1 para a página 2, 
da mesma maneira. 
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PEEK e POKE de teclado do TRS-Color 


E 





e POKE realmente úteis. 

O modo como este computador or- 
ganiza sua memória de vídeo impede 
que coloquemos caracteres diretamente 
na tela, usando POKE. Para isto, exis- 
te no BASIC do MSX o comando VPO- 
KE, bem como o correspondente 
VPEEK. Os 16 kbytes da memória de 
vídeo só podem ser acessados por meio 
desses dois comandos. 

O computador utiliza essa memória 
não só para mostrar caracteres e gráfi- 
cos; parte dela armazena informações 
para o vídeo, tal como o padrão das le- 
tras do conjunto de caracteres. 

O modo como isso é feito — ou se- 
ja, a organização da memória de ima- 
gem — varia conforme o tipo de tela es- 
colhida pelo comando SCREEN. 

Para que não tenhamos que decorar 
uma grande quantidade de endereços de 
memória, o MSX usa variáveis do sis- 
tema para guardar os endereços. 

Vamos tentar entender esta organi- 
zação. No modo texto de 40 colunas 
(SCREEN 0), a variável BASE (0) con- 
tém o endereço inicial de uma porção da 
memória denominada tabela de nomes. 
Qualquer valor colocado em uma das 
960 posições, a partir deste endereço, fa- 
rá surgir na tela o caractere de código 
ASCII correspondente. Assim, O pro- 
grama seguinte enche a tela com o ca- 
ractere A, cujo código é 65. 


10 SCREEN O 

20 FOR 1=0 TO 959 

30 VPOKE BASE (0)+1,65 
40 NEXT 


Note que, para colocarmos o carac- 
tere A na i-ésima posição da tela, deve- 
mos usar VPOKE BASE (0) + 1,65. 

No modo texto de 32 colunas, BA- 
SE (5) contém a tabela de nomes e exis- 
tem 768 posições na tela. Assim, temos 
um programa análogo. 


10 SCREEN 1 

20 FOR I=0 TO 767 

30 VPOKE BASE(5)+1,65 
40 NEXT 


O modo gráfico de alta resolução 
também possui uma tabela de nomes, 
cujo endereço inicial fica em BASE (10), 
com 768 posições. O computador mul- 
tiplica por 8 o número ali colocado por 
VPOKE. Em seguida usa o resultado 
dessa operação para obter o padrão e as 
cores daquela posição. O padrão dos 
pontos é armazenado em outra-parte da 
memória de vídeo, cujo endereço inicial 
está em BASE (12). Outra posição de 
memória é reservada para as cores dos 
pontos e seu início está em BASE (11). 
Para entender melhor o processo, digi- 
te o seguinte programa: 


10 SCREEN 2 

20 FOR I=0 TO 767 

30 VPOKE BASE(10)+I,0 

40 NEXT 

50 FOR I=0 TO 7 

60 VPOKE BASE (11)+I,RND(1)*256 
70 VPOKE BASE (12)+I,RND(1)*256 
80 NEXT 

90 coTo 50 


As linhas de 20 a 40 enchem a tabela 
de nomes com o número 0. Este núme- 
ro é multiplicado por 8, dando 0. Isso 
significa que o computador irá aos oito 
primeiros endereços a partir da posição 
O na tabela de padrões, para obter o pa- 
drão; e aos oito primeiros endereços a 
partir da posição O da tabela de cores, 
para obter a combinação de cores des- 
tas posições. Como ainda não há nada 
nas duas tabelas, nenhum desenho é fei- 
to a princípio. 

As linhas de 50 a 80 preenchem as oi- 
to primeiras posições, a partir do ende- 
reço 0, da tabela de padrões com núme- 
ros aleatórios. Fazem o mesmo com os 
endereços da tabela de cores. Estes são 
justamente os locais onde o computador 
vai buscar a cor e o padrão de posições 
da tabela de nomes que tenham o nú- 
mero 0. Como a tabela de nomes está 
cheia de zeros, todas as posições do ter- 
ço superior da tela assumirão a mesma 
cor e padrão simultaneamente. A linha 
90 repete o processo. 

Você deve estar se perguntando por 
que o efeito só foi obtido no terço su- 
perior da tela. A explicação está no fa- 
to de que 255 é o maior valor que um 
endereço pode conter. Assim, o compu- 
tador procurará o padrão e a cor de um 
determinado endereço da tabela de no- 
mes da seguinte forma: o terço superior 
da tela tem suas cores e padrões nos en- 
dereços de O a 2055 das tabelas de cores 
e padrões; o terço médio, dos endereços 
de 2048 a 4096; e o terço inferior, de 
4097 a 6143. Mude as seguintes linhas 
no programa anterior, para ver o mes- 
mo efeito no terço médio da tela: 


60 VPOKE BASE(11)+1+2048,RND(1) 
*256 
70 VPOKE BASE(12)+1+2048,RND(1) 
*256 


No modo gráfico de baixa resolução, 
a tabela de nomes tem endereço inicial 
guardado em BASE (15). O número co- 
locado em uma das 768 posições desta 
tabela é multiplicado por 8, para que ob- 
tenhamos a posição da tabela de cores 
em que estão armazenadas as cores da 
posição. A tabela de cores tem endere- 
ço inicial em BASE (17). Não há tabela 
de padrões. Mude as seguintes linhas no 
programa anterior, para compreender 
melhor o processo: 











10 SCREEN 3 
30 VPOKE BASE(15)+1,0 
60 VPOKE BASE (17)+I,RND(1)*256 


Nas telas de texto, boa parte da me- 
mória é utilizada para armazenar os pa- 
drões das letras — de uma forma seme- 
lhante aos padrões gráficos. Assim, 
quando colocamos na tabela de nomes 
um código ASCII, o computador mul- 
tiplica este valor por 8, para obter a po- 
sição em que a forma de letra está ar- 
mazenada na tabela de padrões. O en- 
dereço inicial desta tabela está em BA- 
SE (2), na tela de 40 colunas. O progra- 
ma a seguir mostra na tela estes padrões, 
depois de lê-los com VPEEK. 


10 SCREEN O 

20 FOR 1=65 TO 191 

30 VPOKE BASE(0)+1,1 

40 FOR J=0 TO 7 

50 A=VPEEK (BASE (2) +8*1+J) 

55 Z$="00000000"+BINS (A) 

60 LOCATE 10,10+J:PRINT RIGHTS( 
z5,8) 

70 NEXT J:FOR K=1 TO 500:NEXT K 
80 NEXT I 


Mude algumas linhas para obter o 
mesmo resultado na tela de 32 colunas, 
onde a tabela de padrões fica em BASE 
(5). 


10 SCREEN 1 | 
30 VPOKE BASE(5)+1,I 
50 A=VPEEK (BASE (7) +8*1+J) 


Na tela de 32 colunas podemos ob- 
ter também caracteres coloridos. Para 
isso, existe uma tabela de cores com ape- 
nas 32 posições. O número reduzido de 
posições significa que cada conjunto de 
oito caracteres terá necessariamente a 
mesma cor, conforme seu código ASCII 
— não conforme sua posição na tela. 

O programa seguinte demonstra isto, 
imprimindo todo o conjunto de carac- 
teres e depois enchendo a tabela de co- 
res — BASE (6) — com cores aleatórias. 


10 SCREEN 1 

20 FOR I=0 TO 255 

30 VPOKE BASE(5S)+I,I 

40 NEXT 1 

50 FOR 1=0 TO 31 

60 VPOKE BASE (6)+I,RND(1)*256 
70 NEXT 

80 coro 50 


NÃO DESANIME 


A organização da memória de vídeo 
do MSX é complicada. Nossa intenção 
foi motivá-lo a conhecer melhor seu 
computador; em outra qportunidade, 
você poderá compreender com mais cla- 
reza a organização desta memória. 








MAIS CÓDIGOS 
DE CONTROLE 


Anteriormente, vimos como utilizar 
códigos de controle dentro de um pro- 
grama em BASIC, por meio da função 
CHRS. Esta retorna o caractere corres- 
pondente a um determinado código nu- 
mérico ASCII. Diversos exemplos fo- 
ram dados para micros da linha TRS-80. 

Agora vamos examinar como micros 
de outras linhas podem trabalhar'com 
códigos de controle. 


[etc] 


Alguns computadores não permitem 
o acesso a todos os códigos de contro- 
le. Os da linha Apple II, por exemplo, 
ao contrário dos da linha TRS-80, têm 
poucos usos para a função CHR$ com 
esta finalidade. 

Nos micros da linha Apple, como ve- 
remos adiante, a entrada dos códigos de 
controle é feita comumente por meio do 
próprio teclado, pois este dispõe de uma 
tecla <CONTROL >, que é pressiona- 
da em combinação com outras. 





Emprega-se muito a função CHRS$ 
para acionar comandos do DOS (siste- 
ma operacional de disquetes), a partir 
de programas em BASIC. O código de 
controle que possibilita o uso de um co- 
mando do DOS em um programa é o 4. 

Um comando do DOS em geral só 
pode ser utilizado de forma direta (sem 
ser precedido de uma linha de progra- 
ma). Se quisermos, por exemplo, exa- 
minar a lista de arquivos em um disque- 
te, digitamos o comando direto: 


CATALOG 
Se usarmos dentro de um programa: 


100 CATALOG 

... O comando não funcionará quando 
o programa for executado. Para que is- 
to ocorra, devemos colocar: 


100 PRINT CHR$(4)+"CATALOG” 


Quando esta linha é executada, o in- 
terpretador BASIC examina o primei- 
ro caractere da mensagem a ser trans- 
mitida para o vídeo, com o comando 
PRINT. Se ele tiver o código ASCII 


igual a 4, a mensagem será enviada ao 
sistema operacional, como se fosse uma 
frase de comando. 


ECONOMIZE MEMÓRIA 


Existem outras maneiras de se colo- 
car o código 4 em uma linha PRINT. O 
seguinte expediente economiza memó- 
ria, quando muitas linhas PRINT com 
CHRS (4) são necessárias ao programa: 


90 LET C4S=CHRS(4) 
100 PRINT C4S;"CATALOG” 
110 PRINT C4$;"RUN PROG2” 


Pode-se também pressionar as teclas 
<CONTROL> e D simultaneamente, 
logo depois das primeiras aspas que se 
seguem ao comando PRINT, e, em se- 
guida, continuar a digitar normalmen- 
te o comando do DOS que se deseja. 

Este método apresenta um inconve- 
niente: o código de controle 4 (que é in- 
serido por <CRTL> <D>) fica “in- 
visivel” na listagem, podendo não ser 
notado posteriormente e nem aparecer 
na listagem da impressora. 

Em geral, o uso da tecla <CON- 
TROL> nos micros Apple dá acesso a 
uma série de funções via teclado. 


Existe uma boa razão para se usar có- 
digos de controle nos micros da linha 
Spectrum (como o TK-90X): economi- 
zar memória. Os códigos podem ser em- 
pregados para substituir as instruções 
PAPER, INK, BRIGHT e FLASH. São 
digitados ao se pressionar as teclas 
<CAPS SHIFT> e <SYMBOL 
SHIFT > e, em seguida, um número (o 
que equivale à tecla <CONTROL > de 
outros micros). O número determinará 
qual instrução está sendo substituída. 

Para PAPER, entre simplesmente o 
número da cor (1 a 7). Por exemplo, 
usamos o 2 para a cor vermelha. 

Para INK, pressione <CAPS 
SHIFT > com o número da cor. 

Para obter BRIGHT, pressione o nú- 
mero 9 e, para desligá-lo, pressione 8. 

Finalmente, para obter FLASH, 
pressione <CAPS SHIFT>, seguido 
do número 9. Para desligá-lo, use o nú- 


Os códigos de controle podem ser 
usados em um programa para acionar 
funções especiais e substituir comandos 
em BASIC. Veja seu emprego 

em micros de diferentes linhas. 


mero 8. Lembre-se de pressionar 
<CAPS SHIFT> e <SYMBOL 
SHIFT> primeiro, de cada vez. Veja 
quanta memória foi economizada em 
uma linha como esta: 


10 PRINT PAPER 2;INK 6;"MENU" 


As palavras-chave PAPER e INK e 
os dois pontos e vírgulas ocupam 1 byte 
de memória cada, enquanto os números 
2 e 6 ocupam seis. Usando os códigos 
de controle, a linha ocupará apenas 1 
byte para o par de teclas SHIFT, mais 
1 byte para o código de controle. Isto 
significa uma economia de seis bytes por 
instrução. Assim, um programa que 
usasse vários comandos de cor ficaria 
bem menor em tamanho. 

Estes comandos precisam ser digita- 
dos dentro de aspas para que funcionem 
corretamente. Portanto, no exemplo an- 
terior, digite primeiro: 


10 PRINT * 


... € em seguida digite os códigos de con- 
trole para PAPER 2 e INK 6, confor- 
me foi explicado acima, seguidos pelo 
restante da linha. Não se esqueça das as- 
pas finais. 

Os códigos não ocupam espaço visí- 
vel na listagem, mas funcionam imedia- 
tamente, produzindo texto colorido não 
só na listagem como na tela. 

Pode-se utilizar este recurso simples- 
mente para enfatizar determinados tre- 
chos de uma listagem de programa na 
tela. Neste caso, coloque os códigos de 
controle fora das aspas, a não ser que 
você queira que as cores também apa- 
reçam na tela. 


O procedimento descrito acima apre- 
senta um inconveniente: os códigos de 
controle ficam “invisíveis” na tela e na 
listagem da impressora, não podendo 
ser notados posteriormente. Se você qui- 
ser mudar alguma cor de frente (INK) 
ou de fundo (PAPER) no mesmo pro- 
grama, precisará apagar a parte inicial 
da linha (ou até ela toda, se não souber 
localizar onde estão os códigos de con- 
trole) e inserir novos códigos pelo mé- 
todo acima. 








COMO MOVIMENTAR 


O AVENTUREIRO 





Você já tou O programa conten- 
do as descrições dos locais que fazem 
parte desta aventura? Então deve estar 
ansioso para fazer com que o jogador 
comece a explorá-los, possibilitando-lhe 
deslocar-se de um local para outro. Pa- 
ra que isso aconteça, você precisará de- 
finir os movimentos possíveis a partir de 
um determinado local; deverá estabele- 
cer critérios que permitam julgar as res- 
postas dadas pelo jogador e, finalmen- 
te, determinar os caminhos que podem 
ser percorridos. 

Apresentaremos, adiante, algumas 
rotinas necessárias ao desenvolvimento 
do programa de aventuras. Estas roti- 
nas serão responsáveis pela correta des- 
crição da localização do jogador e pela 
apresentação das saídas que lhe serão 
permitidas. Você digitará cada opção e 
aprenderá a escrever a seção de progra- 
ma que movimenta o jogador no mun- 
do da aventura, de acordo com a opção 
que escolheu. 


INÍCIO 


É fundamental conhecer a localiza- 
ção exata do jogador, a qualquer mo- 
mento, dentro do jogo. Para isso, o pro- 
grama usa uma variável L, que indica 
Local. O valor dessa variável muda de 
acordo com a localização do jogador, 
a cada movimento realizado. 

Para começar, você deve informar ao 
computador qual a posição do jogador 
no início da aventura. A primeira seção 
de um programa para fazer isso é dada 
em seguida. Carregue a parte do progra- 
ma que você já possui, por meio do co- 
mando LOAD, e adicione estas novas 
linhas: 





CLS : 
LA=0 
REM *X*POSICAO INICIAL** 
LET L-15 
Goto 330 


PULdItS] 


REM **POSICAO INICIAL** 


LET DA=0: LET TA=0: 


LET 
270 
280 


280 L=15 
290 Goto 330 


O número 15 indica a localização da 
porta de entrada da Cidade Oculta. Se 
você desejar que o jogador inicie a aven- 
tura em outro local, bastará mudar o va- 
lor da variável L. Adiante, você verá co- 
mo ajustar o valor de L durante o jogo, 
de modo que passe a indicar localização 
diferente. Por enquanto, devemos pre- 
parar o programa para receber do joga- 
dor informações indicativas do caminho 
que pretende seguir. 















Para descobrir os mais estranhos 
lugares sem sair de casa, basta entrar 
no mundo da aventura. Veja aqui como 
proceder para dar movimento ao 
aventureiro e iniciar as explorações. 


LESS 


Para que o computador possa com- 
preender e agir corretamente de acordo 
com as respostas dadas pelo jogador, 
você deve dar à máquina um conjunto 
de palavras que ela passe a identificar. 

Neste estágio, o computador precisa 
conhecer apenas as quatro direções, o 
que pode ser feito por meio do cordão 
R$. Esse cordão é carregado com as pa- 
lavras indicativas de direção, colocadas 
em uma instrução DATA. 


















































APRESENTAÇÃO E 
DESCRIÇÃO DOS LOCAIS 
DIREÇÕES POSSÍVEIS 

A MOVIMENTAÇÃO 

DO AVENTUREIRO 


110 REM **PREPARACAO DAS MATRI 
ZES DE RESPOSTAS** 

120 DIM R$(19,40): DIM R(19) 
130 FOR K=1 TO 4: READ R$(K),R 
(K): NEXT K 

150 DATA "NORTE”,1,"SUL”,1,"LE 
STE”,1,"OESTE”,1 


Baila] 


110 REM**PREPARAR MATRIZES DAS 
RESPOSTAS** 

120 DIM R$(19),R(19) 

130 FOR K=1 TO 47READ R$S(K),R(K 
J:NEXT 

150 DATA NORTE,1,SUL,1,LESTE,1, 
OESTE,1 


Observe que as matrizes foram di- 
mensionadas na linha 120, podendo 
agora armazenar todas as respostas que 
o jogo requer. Como precisamos, ini- 
cialmente, de quatro direções, apenas os 
quatro primeiros elementos das matri- 
zes R$e R serão utilizados. A instrução 
FOR...NEXT, na linha 130, que lê R$ 
e R por meio do comando READ, va- 
ria, assim, de um a quatro. As direções 
e os valores a ela associados estão colo- 
cados na instrução DATA, na linha 150. 

Essas informações, entretanto, ainda 
não podem ser usadas pelo jogador. An- 
tes, será necessário dotar o programa de 
uma rotina que indique onde ele está lo- 
calizado. 


COMO ENCONTRAR O LOCAI 


Para que o jogador saiba onde se en- 
contra, após efetuar cada movimento, 
é necessário fornecer-lhe uma descrição 
de sua posição. Você já digitou esta des- 






















crição. Ela está nas linhas de comentá- 
rios, que se iniciam com a palavra REM. 
Agora, só nos falta uma rotina que as- 
socie o número contido na variável L, 
que indica a posição, à descrição corres- 
pondente. Neste ponto, os usuários do 
Spectrum devem digitar uma rotina 
extra: 


POKE 23658,8 
FOR M=1 TO 
NEXT M: NEXT 


20 DIM G(11,4): 
30 FOR N=1 TO 
11: READ G(M,N): 


N 
40 DATA 0,0,0,5020,0,0,5050, 
5080,0,5110,0 

50 DATA 5140,0,0,5180,5210, 
5240,5270,5300,0,0,0 

60 DATA 0,5330,0,5360,0,0,0,0 
+0,0,0 

70 DATA 1010,1150,1240,1310, 
1410,1460,1500,1360,1080,1550 
+3110 

300 REM *XACHAR O LOCAL** 

310 CLS 

330 IF LCI1 THEN GOSUB G(L,1) 
: GOTO 400 

340 IF L<21 THEN GOSUB G(L-10 
+2): GOTO 400 

350 IF L<26 THEN GOSUB G(L-20 
.3) 





300 REM *XACHAR LOCAL** 

310 cLs 

330 IF L<11 THEN ON L GOSUB 0,0 
+0,5020,0,0,5050,5080,0,5110:G0 
TO 400 

340 IF L<21 THEN ON L-10 GOSUB 
5140,0,0,5180,5210,5240,5270,53 
00,0,0:GoTO 400 

350 IF L<26 THEN ON L-20 GOSUB 
0,5330,0,5360 






Antes de escrever esse tipo de rotina, 
verifique se o número correspondente a 
cada descrição de localização está cor- 
reto. Começando com a localização 1, 
faça uma lista dos números de linhas 
correspondentes a cada descrição. Se 
não houver descrição para uma deter- 
minada localização, escreva o número 
O. Nesta aventura, já dispomos de des- 
crição para a localização de número 4, 
mas não para as de número 1, 2 e 3. 

De posse do conjunto contendo os 
números de linhas correspondentes à 
descrição de cada localização, você po- 
de começar a escrever a rotina. Em to- 
dos os computadores, exceto o Spec- 
trum, esta rotina é constituída de uma 
segiiência de operações que verifica o 
valor da variável L e usa o comando 
ON...GOSUB. No caso do Spectrum, 

mo que não possui este comando, o núme- 
ro das linhas é obtido de uma matriz. 





Nos outros programas, o conjunto 
contendo os números de linhas está nas 
instruções colocadas nas linhas 330 a 
350. Inicia com a localização | no co- 
meço da linha 330 e termina com a lo- 
calização 24 no final da linha 350. 

No Spectrum, use o valor de L para 
ter acesso a um elemento da matriz cons- 
truído pelas instruções apresentadas nas 
linhas 20 e 30. Note que a matriz está 
superdimensionada em relação à quan- 
tidade de locais existentes na aventura. 
Os números excedentes são todos iguais 
a zero e não têm nenhuma influência no 
desenrolar da aventura. O dimensiona- 
mento extra foi feito porque a matriz se- 
rá utilizada em partes do programa que 
mais tarde apresentaremos. 

Uma observação válida somente pa- 
ra os usuários do Spectrum: o coman- 
do POKE, na linha 20, faz com que o 
computador aceite apenas letras maiús- 





culas. Isto evitará problemas no mo- 
mento de se comparar as respostas da- 
das pelo jogador com as armazenadas 
na variável R$. 





Além da descrição do local onde se 
encontra, o jogador também precisa co- 
nhecer as saídas disponíveis. O progra- 
ma deve verificar, pelas variáveis N, E, 
S, e W, quais são estas saídas. A infor- 
mação é necessária porque nem sempre 
se pode sair em todas as direções, estan- 
do em um determinado local. A próxi- 
ma seção do programa indica as saidas. 


390 REM **APONTAR DIRECOES** 











YOU CAN GO: 
EAST WEST 


A um) 






À pre 

































EE 
400 IF DA<>1 THEN 


E SEGUIR”; 
410 IF N>O 
"NORTE" 
420 IF E>O 
"LESTE" 
430 IF S>0 
"SUL” 

440 IF W>0 
"OESTE" 


THEN 


THEN 


THEN 


THEN 


PRINT '"POD 


PRINT TAB 11; 
PRINT TAB ll; 
PRINT TAB 11; 


PRINT TAB 11; 


390 REM *XINDICAR DIRECOES** 


400 IF L<>11 OR 
=-1) THEN PRINT: 
IR ";ELSE 460 
410 IF N>O THEN 
NORTE” 
420 IF 
LESTE” 
430 IF S>0 THEN 
SUL” 


E>O THEN 





(LA=1 AND OB(6) 
PRINT"PODE SEGU 


PRINT TAB(13);” 
PRINT TAB(13);" 


PRINT TAB(13):" 
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440 IF W>O THEN PRINT TAB(13);" 
OESTE” 





390 REM *XAPONTAR DIRECOES** 
400 IFL< >110R(LA=1AN 
D OB(6) = -— 1 THEN PRINT : PR 
INT "PODE SEGUIR " GoTo 410 
405 GOTO 460 

410 IF N> O THEN PRINT TAB( 
11);"NORTE” 

420 IF E > O THEN PRINT TAB( 
11) ;"LESTE” 

430 IF S> O THEN PRINT TAB( 
11);"SUL” 

440 IF W> O THEN PRINT TAB( 


11); "OESTE" 


A rotina apresentada simplesmente 
verifica os valores das variáveis N, S, E, 
e W que você definiu, baseado em seu 
mapa de localidades. Se o valor da va- 


riável for maior do que zero, a direção 
escolhida é uma direção possivel — ou 
seja, é uma saída. Essa rotina pode ser 
utilizada, sem modificações, em qual- 
quer aventura que empregue um setora- 
mento desse tipo. 





Uí 





IN 


Agora que o jogador conhece as di- 
reções possíveis, podemos perguntar- 
lhe; “PARA ONDE?”. A rotina res- 
ponsável por esta pergunta é apresenta- 
da abaixo. 





450 REM **INSTRUCOES** 

460 INPUT INVERSE 1;"PARA OND 
E "; LINE I$ 

470 GOSUB 3010 

515 GOTO G(I,4) 





450 REM **INSTRUCOES** 
460 PRINT: INPUT”"PARA ONDE” ;I$ 
470 GOSUB 3010 


A resposta dada pelo jogador é arma- 
zenada na variável I$. O programa ve- 
rificará o tipo de resposta e atuará de 
acordo. 

A próxima linha — linha 470 — des- 
via o fluxo do programa para uma sub- 
rotina localizada na linha 3010, Esta 
sub-rotina é responsável pela validação 
da resposta do jogador. 





600 REM **ROTINA INSTR.** 

610 LET IN=0: IF LEN YS>LEN XS 
THEN RETURN 

620 FOR K=1 TO (LEN X$-LEN YS+ 
1) 

630 IF YS=XS(K TO K+LEN Y$-1) 
THEN LET IN=K: GOTO 650 

640 NEXT K 

650 RETURN 

3000 REM **ROTINA VERIFICACAO** 

3010 LET N$="": LET X$=I$: LET 


Y$=" ": GOSUB 600: LET I=IN 
3020 IF 1=0 THEN LET V$=IS: GO 
To 3050 


3030 LET VS=IS( TO 1-1) 

3040 LET N$=IS(I+1 TO ) 

3050 LET I=0 

3060 FOR K=1 TO 19 

3070 IF VS=RS(K, TO LEN VS) THE 
N LET I=R(K): LET I$=VS( TO 1) 
3080 NEXT K 
3090 RETURN 





3000 REM **INSTRUCAO DE CHECAGE 
Mx* 

3010 N$="":I=INSTR(IS," ") 

3020 IF I=0 THEN VS=ISAGOTO 305 
0 

3030 V$=LEFTS(IS,1-1) 

3040 N$=MIDS(IS,T+1) 

3050 1=0 

3060 FOR K=1 TO 19 

3070 IF INSTR(R$(K),V$)=1 THEN 

I=R(K) :IS=LEFTS(VS,1) 

3080 NEXT 

3090 RETURN 


3000 REM 
CAOx* 
3010 N$ = ""; FOR Z = 1 TO LEN 

(18): IF MID$ (18,251) =” * 
THEN I = Z: GOTO 3020 


**ROTINA DE VERIFICA 


3015 NEXT :I = 0 

3020 IF I = O THEN VS = IS: GO 
To 3050 

3030 VS = LEFTS (IS,1 - 1) 
3040 N$ = MIDS (IS,1 + 1) 

3050 1 - 0 

3060 FOR K = 1 TO 19 

3070 IF VS = LEFTS (R$(K), LE 





N (V$)) THEN 
TS (V$,1) 
3080 NEXT 
3090 RETURN 


A rotina verifica se a variável I$ com- 
põe-se de duas palavras. Em caso afir- 
mativo, a primeira palavra é chamada 
de V$ e a segunda de N$. A variável VS 
contém um verbo — como PEGAR, 
MATAR, LEVAR — e todas as pala- 
vras indicativas de direção: NORTE, 
SUL, LESTE e OESTE. A variável N$ 
armazena os nomes dos objetos que fa- 
zem parte da aventura, 

Os computadores TRS-Color e MSX 
usam o comando INSTR, na linha 3010, 
para verificar se há algum espaço ha res- 
posta que foi armazenada em IS, Este 
espaço será indicativo da existência de 
duas palavras: a que pertence a V$ ca 
que pertence a N$, No Spectrum e no 
Apple não existe o comando INSTR. 
Para substituí-lo, usamos uma pequena 
sub-rotina, colocada nas linhas 600 a 
650. 

Se um espaço for encontrado, a ins- 
trução na linha 3030 separa I$ em suas 
componentes V$ e N$. Se não houver es- 
paço, a linha 3020 considera VS igual a 


1 = R(K):I$ = LEF 








vir 


tar 
sid 
un 
tes 













































E 


A parte final da sub-rotina, composta 
pelas linhas 3060 a 3080, compara as res- 
postas dadas com o conteúdo da matriz 
R$. Como sabemos, a matriz R$ con- 
tém as palavras indicativas das direções 
que podem ser seguidas. Depois você ve- 
rá como fazer para expandir o conteú- 
do da matriz R$. Pela instrução da li- 
nha 3070, o programa verifica se há 
igualdade entre os conteúdos R$ e V 
Se houver, a variável I assume o valor 
da variável R. O programa reconhecerá 
a igualdade dos conteúdos verificando 
se o valor de é maior que zero. A últi- 
ma parte da linha 3070 retira a primei- 
ra letra de V$ e armazena-a na variável 
IS. A variável IS será utilizada depois, 
para fazer com que o jogador se mo- 
vimente 

As sub-rotinas apresentadas adap- 
tam-se a qualquer aventura, sem neces- 
sidade de grandes modificações. Apenas 
um detalhe pode precisar de alguns ajus- 
tes: a duração do comando 
FOR...NEXT, na linha 3060 


MALA 


O passo seguinte consiste em adicio- 








" 
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nar uma rotina destinada a manipular 
a variável L, indicativa de localizaçã 
de acordo com o valor assumido pela 
variável IS, Esta rotina é apresentada em 
seguid 








1000 REM **ROTINA MOVIMENTO** 


1010 IF IS="N” AND N>O THEN LE 
T L=L-6: GOTO 310 
1020 IF IS-"L” AND E>O THEN LE 
T LeLtl: GOTO 310 
1030 IF IS="S" AND S>0 THEN LE 
T L=L+6: GOTO 310 
1040 IF 15="0”" AND W>O THEN LE 
T LeL-1: GOTO 310 


1050 REM **SE NAO HA LOCAL POSS 
IVEL NESSA DIRECAO** 








1060 PRINT '"DESCULPE, VOCE NAO 
PODE SEGUIR NESTA DIRECAO.” 
GoTOo 330 

1000 REM **ROTINA DE MOVIMENTO* 
1010 IF 1S="N” AND N>O THEN L=L 
-6:GOTO 310 

1020 IF IS AND E>O THEN L=L 
+1:GoTO 310 


























1030 IF 1$="S” AND S>0 THEN L=L 
+6:GOTO 310 

1040 IF IS 
-1:GOTO 310 

1050 REM **SE NAO HOUVER 
POSSIVEL NESSA DIRECAO** 
1060 PRINT:PRINT"DESCULPE - 
E NAO PODE SEGUIR POR ESTE 
NHO.”:GOTO 330 








” AND W>O THEN L=L 
LOCAL 


voc 
CAMI 


Como você está lembrado, o ponto 
de partida da aventura foi um mapa 
com uma largura de seis posições. Mo- 
ver o jogador por essas posições signi- 
fica alterar o valor da variável L por um 
fator baseado no tamanho do mapa. 
Por exemplo, para fazer com que o jo- 
gador se movimente nas direções Norte 
ou Sul basta adicionar ou subtrair seis 
da variável L. Isso fará com que o jo- 
gador suba ou desça uma linha comple- 
ta no mapa. De modo semelhante, mo- 
ver o jogador nas direções Leste ou Oes- 
te significa adicionar ou subtrair 1 de L. 

As instruções das linhas 1010 a 1040 
verificam o conteúdo da variável IS e 
ajustam o valor de L. As saídas possi- 
veis são definidas nas linhas que seguem 
as descrições dos locais 

Se não há uma saída na direção que 
o jogador escolheu, a linha 1060 apre- 
senta a mensagem: “DESCULPE — 
VOCÊ NAO PODI 3UIR POR 
TE CAMINHO.” 

Dimensionando adequadamente o 
mapa, você poderá utilizar essas rotinas 
em outros programas, bastando alterar 
as instruções das linhas 1010 e 1030. 

Grave o programa, e aguarde a con- 
tinuação da aventura 
























No artigo da página 249 apresenta- 
mos a primeira parte de um programa 
completo para aprender datilografia. 
Tendo já dominado razoavelmente o 
uso das teclas da fileira do meio — ou 
seja, se você datilografa cerca de 15 pa- 
lavras por minuto, sem cometer nenhum 
erro —, é hora de passar para o segun- 
do estágio. 


CERTAS 


Atrescentando as linhas que se se- 
guem ao programa do artigo anterior, 
você poderá treinar também as teclas da 
fileira de cima do teclado: a chamada fi- 





DATILOGRAFIA: 
ALFABETO COMPLETO 
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leira QWERTY (é desta fileira que vem 
o nome dado aos teclados usados em 
computadores). 

Carregue o programa antigo e digite 
as linhas que se seguem conforme o ti- 
po de seu microcomputador. Algumas 
delas substituirão linhas previamente 
existentes — que agora se tornaram des- 
necessárias —, ao passo que outras são 
totalmente novas. 


30 LET SS="QAWSEDRETGYHUJIKOL 
pr 
210 
230 


FOR K-6 TO 24 
LET R$=SS(K-5) 












Se você já dominou o uso das teclas 
centrais, é hora de treinar a 
datilografia com todo o alfabeto. Para 
isso, veja como alterar o programa 
apresentado no artigo anterior. 





320 LET RN=INT (RND*19)+1 
330 PRINT AT 10,RN+5,;"*": 
R$-SS (RN) 

350 PRINT AT 10,RN+5;" ” 
440 LET RN=INT (RND*19)+1 
530 PRINT AT 10,13;” 

": PRINT AT 10,13;T$ 


540 FOR M=1 TO LEN T$: PRINT 
AT 9,11+M;” * » 

610 FOR N=1 TO 4: RESTORE 

LET RN=INT (RND*24)+1; FOR K=1 
TO RN: READ X$: NEXT K 

1010 PRINT AT 12,6;55 

2000 DATA "QUEDA”,"TIRO","TROLE 
”,"POLE”,"GRALHA”,"RISO”, "PORTA 
"+" PATRULHA”, "URSO", “PILHA”, "RU 
A”, "ILHA" 
2010 DATA 


LET 





"TULIPA”,"PIOLHO”, "IO. 
















DO”, "PIADA”,"JAULA”,"FLORESTA”, 
"OLHO”,"PODER”,"RATO”,"TROPA”,” 
b PISTOLA”, "QUADRA” 

10 0B$="QAWSEDRFTGYHUJIKOLP” 
210 AP=1253 

220 FOR K=1 TO 19 

230 AP=AP+1 

320 AP=1253+RND(19) 


430 PS=MIDS (OBS, RND(19),1) 
800 CLS:PS="";FOR K=1 TO 4 
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Ma MERAS DE Em 








m COMO ACRESCENTAR AS E COMO MUDAR 

TECLAS DAS FILEIRAS SUPERIOR AS PALAVRAS PARA 
ns E INFERIOR AO PROGRAMA TREINAMENTO 
n POSIÇÃO DOS DEDOS NAS PRATIQUE COM 





TECLAS DE OUTRAS FILEIRAS 


9000 DATA QUARTO, LADO, FATOS, SER 
IA, GALHO, JATO, HARPA, LOTERIA, POR 
TA, QUILHA, SADIO, RALA, ORLA, ATILA 
9010 DATA EDITAR, TALHER, DIRETO, 
ULISSES, ILHA, FOGO, JULGAR, ASSADO 
+ DERKOTA, HULHA, GASODUTO, LATA, TI 
JOLO 


Ny 


10 0b$="QAWSEDRFTGYHUJIKOLPÇ” :Z 
$=CHRS (219) :S$="L1IO 02 6” 
210 AP=358 


Bo 


220 FOR K=1 TO 20 

230 AP=AP+1 

320 AP=359+INT(RND(1)*20) 

430 PS=MIDS (0BS, INT (RND(1)*20)+ 
1,1) 

810 FOR K=1 TO 4:PS=PS+WS (INT(R 
ND(1)*28)+1)+CHR$ (32) :NEXT 

9000 DATA QUARTO, LADO, FATOS, SER 
IA, GALHO, JATO, HARPA, LOTERIA, POR 
TA, QUILHA, SADIO, RAÇA, ORLA, ATIÇA 


R 

9010 DATA EDITAR, TALHER, DIRETO, 
ULISSES, ILHA, FOGO, JULGAR, JULHO, 
ASSADO, DERROTA, HULHA, GASODUTO, L 
AÇO, TIJOLO 


TODO O ALFABETO 





[éliS] 

10 OBS =- "QAWSEDREFTGY 
HUJIKOLPS? 

210 AP = -1 

220 FORK = 1 TO 20:AP = AP + 
2: GOSUB 1100: NEXT 

320 AP = 1 + INT ( RND (1) * 2 


9 *2 
420 FORK = 1 TO 20:PS = MIDS 
(OB$, INT ( RND (1) * 20) * 2 
+ 1,1) 
610 FORK = 1 TO S:P$ = PS +W 


SC INT ( RND (1) * 28) + 1) + 





CHRS (32): NEXT 
1010 VTAB 12: HTAB 1: 


PRINT OB 


8 

9000 DATA QUARTO, LADO, FATOS, 
SERIA,GALHO, JATO, HARPA, LOTERIA, 
PORTA, QUILHA, SADIO, RALA,ORLA,AT 
ILA 

9010 DATA EDITAR, TALHER, DIRE 
TO, ULISSES, ILHA, FOGO, JULGAR, JUL 
HO, ASSADO, DERROTA, HULHA, GASODUT 
Ne LACO, TIJOLO 


Quando o programa for executado, 
a tela exibirá o menu usual, com cinco 
opções. O nível 1 exibe a segiiência de 
letras QAWSEDRFTGYHUJIKOLP. 
Dependendo de seu computador, O te- 
clado também incluirá um caractere fi- 
nal: ; ou Ç. Da mesma forma que o pro- 
grama anterior, um asterisco imediata- 















































mn 


mente abaixo das letras na tela funcio- 
nará como um sinal de prontidão, ca- 
minhando da esquerda para a direita. 

Os níveis 2 e 3 funcionam exatamen- 
te como o primeiro, levando você a di- 
gitar os caracteres aleatoriamente, mas 
com uma série muito maior de letras. 

Os níveis 4 e 5 são mais difíceis do 
que os anteriores, porque envolvem a di- 
gitação de palavras mais extensas, for- 
madas por letras das duas diferentes fi- 
leiras. 

Para começar a usar o programa, 
sente-se diante do teclado e posicione os 
dedos corretamente na fileira do meio. 
Tente digitar as teclas da linha superior 
movimentando apenas o dedo que for 
necessário para cada uma e não toda a 


mão (veja a ilustração). Utilize o dedo 
mínimo da mão esquerda para acionar 
oQouoA, o dedo anular para o S e 
o W, e assim por diante, até o dedo mí- 
nimo da mão direita, que deve ser usa- 
do para acionar a tecla P. Os dedos in- 
dicadores trabalharão mais que todos — 
o indicador esquerdo será utilizado pa- 
rao F,G, Re T, enquanto o indicador 
direito se encarregará das letras H, J, Y 
eU. Depois de ter pressionado uma te- 
cla da fileira superior, volte com o de- 
do à posição inicial, na tecla de apoio, 


LEU T A 


Quando estiver digitando com preci- 
são e rapidez as teclas da fileira supe- 





qa + 
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rior juntamente com as da fileira cen- 
tral, comece a usar as teclas da fileira 
inferior (Z, X, C, V, B, etc.) 

Nesta parte do curso, você ainda não 
trabalhará com as três fileiras. Antes 
disso, aprenderá a utilizar as teclas das 
fileiras central e inferior do teclado, si- 
multaneamente, com exercícios em cin- 
co níveis de dificuldade. 

Eis aqui as alterações que deverá efe- 
tuar: 


30 LET 
210 FOR 
320 LET 
440 LET 


S$="AZSXDCFVGBHNJMKL” 
K=6 TO 21 

RN=INT (RND*16)+1 
RN=INT (RND*16)+1 


610 FOR N=l TO 5; RESTORE : 
LET RN=INT (RND*24)+1: FOR K=1 
TO RN: READ X$: NEXT K 

1010 PRINT AT 12,6;"58" 

2000 DATA "CASA”,"FACA”,"VAZA”, 
"LAVA", "MACA”, "VACA", " BABACA”, ” 
JACA”, " JAZZ”, " BANDA”, "BALA", “CA 
LCA” 

2010 DATA "SALVA”,"CALA”, "AMA", 
"FALA”,"DA”,"AFAGA”,"ALCANCA”,” 
MANHA” ," CANA”, "LAZANHA”, "SAGA", 
“CHAMA” 


10 0B$="AZSKDCFVGBHNIMKL” 
220 FOR K=1 TO 16 








320 AP=1253+RND(16) 
430 P$=MIDS (0BS,RND(16),1) 

800 CLS:P$="";FOR K=1 TO 5 

9000 DATA FACA, LAVA, LAMA, BALANC 
O, VAGA, NASA, JACA, SAMBA, MACA, AVA 
NCA, VANDA, AJAX , CHAMADA, VALHALA, 
CALHA, CANSADA 

9010 DATA LAMBADA, BANANA, GAMBA, 
BANDA, CANA, ABAFA, CANALHA, MASSA, 
ZAGA, MANHA, CASCA, SALVA 


yu 
10 0B$="AZSXDCFVGBHNJMK,L.Ç”:ZS 
=CHRS (219) :S$="L1IO 02 G” 

220 FOR K=1 TO 19 

320 AP=359+INT(RND(1)*19) 

430 P$=MIDS (OBS, INT (RND(1)*19)+ 
1,1) 

9000 DATA FACA, LAVA, LAMAÇAL, BAL 
ANÇA, VAGA, NASA, JACA, SAMBA, MACA, 
AVANÇA, VANDA, AJAX, CHAMADA, VALHA 
LA, CALHA, CANSADA 

9010 DATA LAMBADA, BANANA, GAMBA, 
BANDA, CANA, ABAFA, CANALHA, MASSA, 
ZAGA, MANHA, CAÇA, BAÇA 


Lá] 


10 0B$ - "AZSXDCFVGBH 
NJMK, Los" 

220 FORK = 1 TO I9:AP = AP + 
2: GOSUB 1100: NEXT 
320 AP = 1 + INT ( RND (1) * 1 


9*2 
420 FORK = 1 TO 20:P$ - MIDS 
(OBS, INT ( RND (1) * 19) * 2 


+ 1,1) 
9000 DATA FACA, LAVA, LAMA, BALA 
NCA, VAGA, NASA, JACA, SAMBA, MACA, À 
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VANCA, VANDA, AJAX, CHAMADA, VALHAL 
A, CALHA, CANSADA 

9010 DATA LAMBADA, BANANA, BAN 
DA, CANA, ABAFA, CANALHA, MASSA, ZAG 
A, MANHA, CALA, BALA, GAMBA 


Com esse programa, você também 
fará exercícios em cinco níveis de difi- 
culdade, mas com palavras que utilizam 
as letras das fileiras central e inferior do 
teclado. 

Mais uma vez, sente-se diante do te- 


feitos | 


om fa 


clado, com os dedos posicionados cor- 
retamente. Agora você movimentará 
seus dedos para baixo, para a fileira in- 
ferior, antes de retornar às teclas de 
apoio. O dedo mínimo da mão esquer- 
da irá pressionar o A e o Z, o anular o 
SeoX e assim por diante. O dedo indi- 
cador da mão esquerda será utilizado 
para as letras F, G, V e B, e o indicador 
da mão direita para H, J, NeM. Os de- 
dos restantes deverão operar as teclas 





Fã] 
so 
[de |: 6 


e] om 


[Ria] 
4 B 


[efe [act 


IR 
ad 


de pontuação situadas na fileira infe- 
rior, em posições que variam de tecla- 
do para teclado. No Spectrum, elas não 
estão disponíveis sem o <SYMBOL 
SHIFT >, cujo emprego será explicado 
futuramente. 

Observe que essas teclas não estão in- 
cluídas nos testes de palavras — você de- 
verá praticar a pontuação com um pro- 
grama adicional, que apresentaremos 
em artigo posterior. 

















O ALFABETO COMPLET 


Depois de dominar o uso conjunto 
das teclas das fileiras superior e inferior 
do teclado, você estará apto a ingressar 
no estágio seguinte do curso. Afinal, vo- 
cê poderá praticar a datilografia utilizan- 
do todo o alfabeto. Apenas as teclas de 
números e de pontuação permanecerão 
temporariamente excluídas do treino. 

Eis aqui as alterações que deverá efe- 
tuar no programa: 


30 LET S$="QAZWSKEDCREVTGBYHN 
UJMIKOLP” 
40 FOR K=2 TO 27 
230 LET R$=SS(K-1) 
320 LET RN=INT (RND*26)+1 
330 PRINT AT 10,RN+1;"*": 
R$-55 (RN) 
350 PRINT AT 10,RN+1;" " 
440 LET RN=INT (RND*26)+1 
530 PRINT AT 10,13;” 
*: PRINT AT 10,13;T$ 
540 FOR M=1 TO LEN T$: PRINT 
AT 9,114M;” * E 
610 FOR N=1 TO 5: RESTORE : 
LET RN=INT (RND*24)+1: FOR K=1 
TO RN: READ XS: NEXT K 
1010 PRINT AT 12,2;S$ 
2000 DATA "QUIETO”,"LONGE”,"ASI 
LO”, "MENTE”,"LOCAL”,"TRADICAO”, 
“RESPOSTA”, "ATRAVES”,"DRIBLE”,” 
RETORNO”, “DESPEDIDA”, “ESCRITA” 
2010 DATA "ESCOLA”,"INFERNO”,"P 
ROFESSOR”,"CHATO","TELEVISAO”,” 
BURRA”, " ESPORTE”, "BOM”,"”COMPUTA 
DOR”, "MELHOR”,”" INPUT”, "PERFEITO 


LET 








10 O0BS="QAZWSXEDCRFVTGBYHNUJMIK 
OLP” 

210 AP=1248 

220 FOR K=1 TO 26 

320 AP=1248+RND(26) 

430 P$=MIDS (0BS,RND(26),1) 

800 CLS:P$="":FOR K=1 TO 4 

1020 PRINT €257,0BS 

9000 DATA MARIA,MULHER, JEITO, CH 
EGAR, QUENTE, COSTUME, LOCAL, BONIT 
A, DECOTE, CONVERSA, UTERO, JAPAO, C 
ORRIDA, AZUL 

9010 DATA BANDEIRA, AVIAO, VAZIO, 
ABERTO, HALITO, XAXADO, ALCALINO,U 
NIDOS, PRESSA, QUERIDA, GUARDIAO, A 
BOBORA, NAVIO, REMORSO 


| 


10 0B$="QAZWSXEDCREFVTGBYHNUJMIK 
+OL.PÇ”:ZS=CHRS (219) :S$="LIO 02 
o” 


210 AP=353 
220 FOR K=1 TO 29 
320 AP=353+INT(RND(1)*29) 


430 PS=MIDS (OBS, INT (RND(1)*29)+ 
1,1) 

1010 LOCATE 0,12:PRINTOBS 

9000 DATA MARIA,MULHER, JEITO, CH 
EGAR, QUENTE, COSTUME, CANÇÃO, BONI 
TA, DECOTE, CONVERSA, UTERO, JAPÃO, 
CORRIDA, AZUL 

9010 DATA BANDEIRA, AVIÃO, VAZIO, 
ABERTO, HALITO, XAXADO, ALCALINO,U 
NIDOS, PRESSA, QUERIDA, GUARDIÃO, A 
BÓBORA, NAVIO, REMORSO 


[él] 


10 OBS = "QAZWSXEDCRFVTGBYHNUJM 
IK,OL.P;” 

210 AP = 0 

220 FORK = 1 TO 29:AP = AP + 
1: GOSUB 1100: NEXT 

320 AP = 1 + INT ( RND (1) * 2 


9) 
420 FORK = 1 TO 20:P$ = MIDS 
(OBS, INT ( RND (1) * 29) + 1, 
1) 


9000 DATA MARIA,MULHER, JEITO, 
CHEGAR, QUENTE, COSTUME, CANCAO, BO 
NITA, DECOTE, CONVERSA, UTERO, JAPA 
O, CORRIDA, AZUL 

9010 DATA BANDEIRA,AVIAO,VAZI 
O, ABERTO, HALITO, XAXADO, ALCALINO 
+ UNIDOS, PRESSA, QUERIDA, GUARDIAO 
+ ABOBORA, NAVIO, REMORSO 


Como acontece com todos os progra- 
mas deste curso, assim que você estiver 
familiarizado com as palavras constan- 
tes nas declarações DATA, poderá tro- 
cá-las por novas palavras. Quase sem- 
pre, Os programas para outras máqui- 
nas incluem palavras diferentes. Se qui- 
ser, aproveite-as em seu computador, 
mas verifique se não está utilizando um 
número de palavras menor que o do 
programa original. Caso isso ocorra, vo- 
cê obterá uma mensagem de erro OUT 
OF DATA. E, se colocar mais palavras 
do que as existentes, elas não serão li- 
das pelo computador, a menos que vo- 
cê modifique o programa. 

Siga as cinco lições, como nos está- 
gios anteriores. Lembre-se sempre de co- 
locar os dedos de volta nas posições cor- 
retas de apoio, na fileira do meio, toda 
vez que pressionar uma tecla das carrei- 
ras inferior ou superior. 


APERFEIÇOAMENTO 


Na medida em que o curso for progre- 
dindo, você terá a oportunidade de se 
aperfeiçoar cada vez mais, adquirindo 
velocidade e precisão na datilografia 
com todas as letras do alfabeto. Em se- 
guida, começará a praticar com as teclas 
de números e de pontuação — essenciais 
para a digitação das listagens de pro- 
gramas. 








Como acentuar textos em portu- 
guês em um microcomputador? 

Depende muito da linha ou da mar- 
ca do micro. O problema não foi tecni- 
camente resolvido de maneira unifor- 
me pelos fabricantes nacionais, pois 
durante muito tempo não houve um pa- 
drão industrial obrigatório. Entre os 
computadores pessoais cobertos por 
INPUT, apenas os micros da linha MSX 
seguem o padrão atual de representa- 
ção dos sinais característicos da língua 
portuguesa — o chamado BRASCII, 
que é a extensão brasileira do código 
ASCII. 

O BRASCII, além de definir os códi- 
gos numéricos para as letras acentua- 
das (á, à, Á, À, ô, etc.), determina ain- 
da a localização padronizada da cedi- 
lha e dos acentos grave, agudo, til e cir- 
cunflexo, no teclado do microcompu- 
tador. Portanto, a maneira de usá-los, 
na datilografia, é idêntica à de uma má- 
quina de escrever. Da mesma forma, o 
comportamento do teclado e do vídeo, 
durante a datilografia das letras acen- 
tuadas, deve ser igual: por exemplo, ao 
se pressionar a tecla com o til, este si- 
nal aparece no vídeo, e o cursor fica pa- 
rado no mesmo lugar; ao se pressionar 
a letra a, ela aparece imediatamente 
abaixo do acento. 

Os micros de outras linhas (Apple Il, 
TRS-80, TRS-Color e Sinclair), por se- 
rem copiados de modelos norte-ame- 
ricanos e ingleses, dão ao problema 
respostas diferentes. As soluções ado- 
tadas variam de um teclado inteiramen- 
te compatível com o de uma máquina 
de escrever (por exemplo, o Microen- 
genho Il, da Spectrum, que pertence à 
linha Apple), até a impossibilidade to- 
tal de acentuação (micros compatíveis 
com as linhas Sinclair ZX-81 e TRS- 
Color). 

Alguns micros brasileiros da linha 
Apple adotaram o padrão do chamado 
teclado inteligente, ou teclado profis- 
sional, em que certas teclas são usa- 
das para digitar a letra já acentuada, 
com uma única pressão. A localização 
destas teclas não coincide, evidente- 
mente, com a de uma máquina de es- 
crever, e seu acionamento depende da 
pressão simultânea de uma ou mais te- 
clas adicionais de controle. Este proce- 
dimento dificulta a datilografia, pois di- 
fere muito da maneira natural de se 
usar uma máquina de escrever e com- 
promete bastante a velocidade da di- 

















Divirta-se com um joguinho de ação 
rápida e aprenda ao mesmo 
tempo a trabalhar com as teclas de 
números, ampliando a sua 
habilidade como datilógrafo. 


Depois de ter estudado as duas pri- 
meiras lições de datilografia, você já está 
provavelmente familiarizado com as te- 
clas de letras e com os sinais de pontua- 
ção das três fileiras inferiores do tecla- 
do. Atéagora, porém, não tocamos nas 
importantes teclas numéricas (muito 
usadas, aliás, na digitação de pro- 
gramas.) 

Da mesma forma, ainda não ensina- 
mos as formas de manipulação das te- 
clas para se obter letras maiúsculas ou 
minúsculas, nem explicamos os sinais de 
pontuação adicionais e demais símbolos 
disponíveis no teclado. 

Esta lição será dedicada às teclas ain- 
da não estudadas. Nela, apresentaremos 
também um pequeno e divertido exer- 
cício, que fará com que você melhore a 
sua velocidade, precisão e ritmo no tra- 
balho com o teclado. 


ACRESCENTANDO OS NÚMEROS 


Para treinarmos a datilografia com 
a fileira do teclado que contém os alga- 
rismos, basta fazer algumas modifica- 
ções no programa apresentado nas lições 
anteriores do curso (páginas 253 e 276). 

Desta forma, carregue o último pro- 
grama utilizado e digite as linhas adício- 
nais, expostas a seguir. Como você ve- 
rá, algumas delas irão apenas substituir 
linhas já existentes, ao passo que outras 
serão adicionadas ao programa: 


30 LET 5$=" 1AZS3D4F5G6H7JBK9L 
o” 

210 FOR K=6 TO 24 

230 LET R$=SS(K-5) 

320 LET RN=INT (RND*19) 1 
330 PRINT AT 10,RN+5;"=": 
R$=SS (RN) 

350 PRINT AT 10,RN+5;" * 


LET 
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440 LET RN=INT (RND*19)+1 
530 PRINT AT 10,13;” 
": PRINT AT 10,13;T5 
540 FOR M=1 TO LEN TS: 
AT 9,11+M;” * 
610 FOR N=1 TO 5: 
LET RN=INT (RND*24)+1: 


PRINT 


RESTORE : 
FOR K=1 
TO RN: READ XS: NEXT K 

1010 PRINT AT 12,6;55 

2000 DATA "MC6809E”,"VALOR”,"UL 
TIMO”,"ZB0A”,"RELAXE”,"6502","A 
37X2"," 1024", "VASTO”,"JUNCO”,"R 
ETORNO”,"67VDG” 

2010 DATA “APENAS”,"AGITADO”,"7 
4L583”, "REDONDO", "LINEAR", "1986 
*, "30123", "CONGELADO", "4MHZ”,"W 
X101","64MB", "VIDEO" 


as 


10 0B$=" 1AZSIDAFSG6H7JBK9LO:—;" 
210 AP=1252 

220 FOR K=1 TO 22 

320 AP=1252+RND(22) 

430 PS=MIDS (OBS, RND(22),1) 

1020 PRINT 8261,0BS 

9000 DATA MC6809E, VALOR, "ULTIMO 
:", Z80A, RELAXE, 6502,A37XZ,-1024 
« VASTO, JUNCO 

9010 DATA RETURN, A847VDG, 145,22 
+ "APENAS," , AGITADO, 74L583,-93.4 
1,REDONDO, LINEAR 

9020 DATA PROCESSO, CONGELADO, TR 
AZ, 1986, DESENHO, SANGUE, 842.52," 
301,123",350KG 


10 0B$ = "1A253D4F5G6H7JBK9LO; : 


210 AP - 8 

220 FORK = 1 TO 22:AP = AP + 
1: GOSUB 1100: NEXT 
320 AP = 9 + INT ( BND (1) * 2 
3) 


420 FORK = 1 TO 20:PS - MIDS 
(OBS, INT ( RND (1) * 22) +11, 
, 


1 

640 P = 1: VTAB 11: HTAB 2: 

NT PS 

660 VTAB 15: HTAB P + 1: PRINT 
MIDS (P$S,P,1) 

1010 VTAB 12: HTAB 9: PRINT OB 

s 

9000 DATA MC6809E,VALOR,"ULTI 

MO:”,Z80A, RELAXE ,6502,A37XZ,-10 

24, VASTO, JUNCO 

9010 DATA RETURN,AB47VDG,145. 

22,"APENAS,",AGITADO,74L583,-93 

-41,REDONDO, LINEAR 

9020 DATA PROCESSO, CONGELADO 


PRI 







ACRESCENTE NÚMEROS 
A TECLA <SHIFT> 
DESENVOLVA UM RITMO 
REGULAR 

VELOCIDADE E PRECISÃO 











+ TRAZ, 1986, DESENHO, SANGUE, 842.5 
2,"301,23",350KG 


hu 

10 0B$="1A253D4F5SG6H7JBK9LOÇ-=" 
:ZS=CHRS (219) :S$="L1O 02 6” 

210 AP=355 

220 FOR K=1 TO 22 

320 AP=356+INT (RND(1)*22) 

430 P$=MIDS (OBS, INT (RND(1)*22)+ 
1,1) 

1010 LOCATE 2,12:PRINTOBS 

9000 DATA MC6809E, VALOR, "ULTIMO 
1”, Z80A, RELAXE, 6502,A37XZ,-1024 
+ VASTO, JUNCO 

9010 DATA RETURN,A847VDG,145.22 
+ "SOMENTE," ,AGITAR,74L883,-93.4 
1, CIRCULO, LINEAR 

9020 DATA PROCESSO, FRIO, TRAZ, 19 
86, DESENHO, SANGUE ,842.52,CAÇA,3 
S0KG 


Quando o programa for rodado, um 
menu contendo os cinco níveis já conhe- 
cidos será apresentado na tela; você de- 
verá então optar por um deles. Como 
das vezes anteriores, existirão muitas 
combinações possíveis, dependendo do 



































número de teclas a serem incluídas nos 
exercícios. Nos níveis mais baixos de di- 
ficuldade, o computador proporá exer- 
cícios em que as teclas numéricas e, al- 
gumas vezes, de pontuação serão com- 
binadas aleatoriamente com as outras 
teclas, que você já conhece das duas pri- 
meiras lições. Essa combinação dificul- 
tará as coisas para você, e o obrigará a 
não se concentrar apenas nas teclas nu- 
méricas. 

Nos níveis mais altos de dificuldade, 
o computador pedirá que você digite 
uma mistura de palavras, grupos de nú- 
meros e combinações de letras e algaris- 
mos. As palavras e números seleciona- 
dos se encontram nas declarações DA- 
TA, quase no final do programa. Eles 
podem ser trocados, caso você queira 
aumentar o desafio depois de se fami- 
liarizar bem com os exercícios originais 
Entretanto, lembre-se de manter o mes- 
mo número de palavras (ou grupo de ca- 
racteres); do contrário, ocorrerá um er- 
ro de execução quando o programa não 
encontrar o número correto de itens em 
DATA. 

Uma vez dominadas as teclas numé- 
ricas, passe para a lição seguinte, cujo 
objetivo é praticar com os caracteres 
acessíveis apenas por intermédio da te- 
cla <SHIFT>., 
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CSLL 


A tecla <SHIFT> corresponde à 
alavanca de maiúsculas de uma máqui- 
na de escrever comum. Em alguns com- 
putadores, essa função também pode ser 
desempenhada pela <CAPS LOCK>. 
Para aprender a usá-las, adicione as li- 
nhas abaixo à última versão do progra- 
ma (novamente, algumas linhas serão 
inteiramente substituídas): 


= 


20 POKE 23658,0: LET ER=0 
30 LET SS="A!asSesDAdFSfGtgHsh 
J'3K(kL) TO” 
210 FOR K=2 TO 29 
230 LET R$=SS(K-1) 
320 LET RN=INT (RND*28)+1 
330 PRINT AT 10,RN+1;"*": 
R$=S$ (RN) 
350 PRINT AT 10,RN+1;” * 
440 LET RN=INT (RND*28)+1 
610 FOR N=1 TO 4: RESTORE 
LET RN=INT (RND*24)+1: FOR K=1 
TO RN: READ X$: NEXT K 
1010 PRINT AT 12,2;855 
2000 DATA "$235.50","PRINT4”,"A 
H1200","23.5%”,"Conta”,"LONDRES 
" ,"Eles”,"156412"," (abaixo)","H 
+9=1D”,"**Obs*X", "Fogo! !” 
2010 DATA ";-;; «"Extra”,“Bei 


LET 














ja-flor”,"Lugar”,"4*4=16”,"Quem 
?","6:10pm”,"Nos”,"S15.40","Dir 
igir”, "ATENCAO", "100/4" 

10 OB$=" |A"+CHR$ (34) +" S4DSFIGAH 
PJ(K)Lre+r 

20 POKE 282,0:CLS 

210 AP=1250 

220 FOR K=i TO 21 

320 AP=1250+RND(21) 

430 PS=MIDS (OBS, RND(21),1) 

999 POKE 282,255:CLS:END 

1020 PRINT €259,0B$ 

9000 DATA PRINT$,Mostre,&H4000, 
Fora!!, (abaixo) ,H+9=1D,$500.10, 
D/100%,Eles,**obs** 

9010 DATA Extra, Carga, DIARIO, Co 
nta,Mes,Resposta,Hoje,Gerente,S 
etor 

9020 DATA LONDRES, Concha, Toque, 
;-1i-;. Sucesso, Beija-flor,Lugar 
«Campo, Direto 





[3 

10 OBS = "!A” + CHR$ (34) + "5 
ADSFIGLH'J(K)LtH=<>7” 

220 FORK = 1 TO Z4:AP = AP + 
1: GOSUB 1100: NEXT 

320 AP = 9 + INT ( BND (1) * 


5) 





mo 


eta 


420 FORK = 1 TO 20:P$ = MIDS 
(OBS, INT ( RND (1) * 24) + 1, 
1) 

9000 DATA PR$,Mostre,SH4000,F 
ora!!, (abaixo) ,H + 9 = 1D,CzS 5 


00.10,D/100%, Eles, **0bs** 

9010 DATA Extra,Carga,Diario, 
Conta,Mes,Hoje,Resposta,Gerente 
«Setor 

9020 DATA LONDRES,Concha, Toqu 
e 1/71, Sucesso, Bei ja-flor,Lug 
ar,Campo, Direto 

Du 

10 0B$=" !AGS4DSFIG"+CHRS (34)+"H 
AJ*K(L)Ç +7>":ZS5=CHR$ (219) :SS=" 
L1IO 02 6" 

220 FOR K=1 TO 24 

320 AP=356+INT (RND(1)*24) 

430 PS$=MIDS (OBS, INT (RND(1)*24)+ 
1,1) 

9000 DATA PRINT4,Mostra,4H4000, 
Fora!!, (abaixo),H + 9 = 1D,Cz$ 
500.10,D/1002%,Eles,** Obs ** 
9010 DATA Extra,Cargo, DIARIO,Co 
nta,Mês,Resposta,Hoje,Gerente,5 
eção 

9020 DATA LONDRES, Concha, Toque, 
Sucesso, Beija-flor, Lugar,C 












A. 


O TRS-Color não imprime letras mi- 
núsculas na tela, Em vez disso, exibe-as 
em vídeo inverso (letras claras sobre 
fundo escuro). 

Nos micros da linha Apple que dis- 
põem de minúsculas, mude a tecla sele- 
tora para minúsculas ao digitar as linhas 
DATA. Infelizmente, os micros da linha 
Apple Il+ padrão, que não contam 
com letras minúsculas, não conseguirão 
rodar o programa a seguir. Nos micros 
da linha MSX, certifique-se de que a te- 





= 
- 
- 
- 
ma 
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cla <CAPS> está desativada. 

Os níveis mais baixos de dificuldade 
do programa apresentam agora os ca- 
racteres que só estão disponíveis quan- 
do as teclas são pressionadas simulta- 
neamente com o comando <SHIFT >: 
pontuação, símbolos matemáticos, etc... 
Eles estão misturados com as letras da 
fileira central do teclado, o que signifi- 
ca que você deve retornar a eles toda vez 
que pressioná-los. 

Nos níveis mais altos são apresenta- 
dos palavras e grupos de caracteres de 
uma lista interna, tal como antes; ago- 
ra, porém, você encontrará as letras 
maiúsculas e outros simbolos que só po- 
dem ser obtidos com o < SHIFT >, mis- 
turados com as letras minúsculas. 

Conhecidos esses exemplos particu- 
lares de teste, substitua as declarações 
DATA por um novo conjunto de dados 
(lembre-se de manter o mesmo número 
total de palavras). 

Passe para a próxima seção apenas 

















<z 


quando estiver encontrando — sem he- 
sitação e sem olhar para o teclado — to- 
dos os caracteres com que treinou, 


ea a 


Um dos modos mais eficazes de se 
melhorar a precisão e a velocidade de 


datilografia consiste em pressionar as te- 
clas ao compasso de um metrônomo 
(instrumento que serve para regular os 
andamentos musicais). Este deve ser 
acelerado à medida que o movimento de 
seus dedos se tornar mais rápido e 
preciso, 

Mas por que dar-se ao trabalho de 
utilizar um metrônomo, quando o seu 
computador possui um relógio embuti- 
do? O próximo programa é um novo e 
completo exercício de digitação, plane- 
jado como um jogo, onde a contagem 
depende do seu desempenho no teclado. 
Ele é composto por duas partes. A pri- 
meira, exibe uma linha de caracteres se- 
lecionada aleatoriamente — você tem 
que digitar, em sequência, os caracteres 
à medida que forem aparecendo. A se- 
gunda parte é mais difícil — agora, os 
caracteres são lançados aleatoriamente 
na tela, um por um; deste modo, você 
não tem idéia do que virá a seguir. 






DIGITE AS PALAVRAS 


Hoje Mes Setor 





E WE > 


Antes de iniciar o teste, selecione o 
seu próprio nível de dificuldade. Isso de- 
ve ser feito dizendo-se ao computador 
com que velocidade você quer que as le- 
tras sejam exibidas — em outras pala- 
vras, quantos caracteres por minuto vo- 
cê quer digitar. Então, o computador es- 
tabelecerá um tempo limitado, dentro 
do qual você deve digitar cada caracte- 
re; do contrário, será emitida uma 
tagem de erros. No primeiro nível 
é feito por intermédio de um indicador 
móvel que mostra qual letra deveria es- 
tar sendo digitada; no segundo nível, o 
caractere é iluminado por algum tempo. 

Ao começar O primeiro teste, você 
pode escolher se quer o teclado normal 
(com letras, apenas) ou teclado comple- 
to (com todos os símbolos). E antes de 
passar para o segundo nível (o teste dos 
caracteres) você deve decidir quanto 
tempo é capaz de sustentá-lo. O compu- 
tador perguntará quantos caracteres, no 








total, você quer que façam parte do 
teste. 

Imediatamente depois de ter exibido 
todos os caracteres, o computador pa- 
rará e fornecerá uma contagem basea- 
da nos seus erros. 

Não é apenas a velocidade total de di- 
gitação no computador que conta nesse 
teste de desafio: você precisará também 
desenvolver um ritmo constante. Para 
ajudá-lo a adquirir esse ritmo, o com- 
putador dará um sinal sonoro assim co- 
mo um sinal visual de prontidão para ca- 
da letra. 

Agora digite o programa propria- 
mente dito, e teste a sua habilidade co- 
mo datilógrafo: 


10 BORDER 7: PAPER 7: INK O: 
cLs 

20 LET a$="ABCDEFGHIJKLMNOPQR 
STUVWXYZ” 

30 LET a$-aS+"abcdefghi jkImno 


parstuvwxyz” 

40 LET a$=a$+"12345678901 645% 
sor 

50 LET- a$=aS+CHR$S (34)+"<>;-+ 
BET R go 


so PRINT INVERSE 1;AT 6,7;” 
TESTE 1 OU 2?" 
70 IF INKEY$="" THEN GOTO 70 


80 LET iS$=INKEYS: IF i$="2" 
THEN GOTO 400 

90 IF i$<>"1” THEN GOTO 70 
100 CLS INPUT "Quantos carac 
teres por minuto? ";cpm 

110 LET t=3000/cpm 

120 LET s$="" 

130 FOR n=1 TO 30 

140 LET s$=sSt+aS (INT (RND*84)+ 
1) 

150 NEXT n 

160 PRINT BRIGHT 1; 
200 GOSUB 800: LET er=0 
-1 TO 30 

210 POKE 23672,0: POKE 23673,0 
220 PRINT AT 10,r-1;" x" 

230 SOUND .02,20 

240 IF PEEK 23672+256*PEEK 
23673>=t THEN LET ermertl: 




























soro 300 
250 LET iS=INKEYS: IF iS="" 
THEN GOTO 240 

260 IF iS=s$(r) THEN PRINT AT 
12,r;"-": GOTO 280 

270 LET er=er+l 

280 IF PEEK 23672+256*PEEK 
23673<t THEN GOTO 280 

300 NEXT r 

310 PRINT AT 16,3;"VOCE ERROU 
"jer;” DAS 30" 

320 FOR f=1 TO 200: NEXT f£ 
330 GoTo 20 

400 CLS : INPUT "Numero de tec 
las por minuto? ";cpm 

410 INPUT "Numero de caractere 
s?";r 

420 INPUT ”(N)ormal ou (E)sten 
dido? ”; LINE m$ 

430 IF m$="N" OR m$="n” THEN 
LET a$=a$( TO 52): GOTO 450 
440 IF mS<>"E” AND m$<>"e” 
THEN GOTO 420 
450 LET t=3000/cpm 











460 GOSUB 800 

470 LET er=0 

480 FOR n=1 TO r 

490 POKE 23672,0: POKE 23673,0 
500 LET r$=aS(INT (RND*LEN a$S) 
+1) 

510 PRINT INVERSE 1;AT 10,15; 
r$; INVERSE O;AT 11,15;”" * 

520 SOUND .02,20 

530 IF PEEK 23672+256*PEEK 
23673>=t THEN LET er=ertl: 
goto 580 

540 LET 1S-INKEYS: 
THEN GOTO 530 
550 IF iS$=rS THEN PRINT AT 11 
+15;""": GOTO 570 

560 LET er=er+l 

570 IF PEEK 23672+256*PEEK 
23673<t THEN GOTO 570 

580 NEXT n 

590 PRINT AT 16,3;"VOCE ERROU 
"jer;” DAS ";n-1 


IF áge”” 


FOR f=1 TO 200: NEXT £ 
Goro 20 

LET c8="5,.4.,3.52..1,,0” 
FOR n=1 TO 16 

PRINT AT 2,5+n;cS(n) 
PAUSE 10 

NEXT n 

SOUND .2,10 

PRINT AT 2,0;TAB 31;" * 
RETURN 


10 CLS 
20 PRINT €70, "QUAL TESTE (1 OU 
227" 


30 PRINT €102,"DIGITE (0) PARA 
SAIR” 

40 AS=INKEYS:IF AS<"0" OR AS>"2 
” THEN 40 

50 ON VAL (AS)+1 GOSUB 1000,600 
«200 

60 POKE 282,255 

70 ER=0:W$="":B$="" 

80 coTo 20 

200 CLS: INPUT"DIGITE QUANTAS TE 
CLAS PRESSIONADAS POR MINUTO” ;K 
P 

210 IF KP<l THEN 200 

220 INPUT "DIGITE O NUMERO DE €C 
ARACTERES ";NC 

230 IF NC<1 THEN 220 

240 NM=NC 


250 PRINT:PRINT"NORMAL OU ESTEN 
DIDO (N/E)?” 
260 AS=INKEYS: 
<>" E” THEN 260 
270 RN=90:ST=32:IF AS="N” THEN 
RN=58:ST=64 

280 POKE 282,0 

290 TM=3000/KP 

300 CLSO:PRINT” PRESSIONE A TEC 
LA DEPOIS DO BIP " 

310 PRINT 6238,” ";: PRINT 627 
0.” : PRINT 6302,” em 

320 WS$=CHRS (RND (RN) +ST) 

330 IF WS$>"Z” AND WS<"a” THEN 3 
20 

340 PRINT €271,WS; 

350 TIMER=0 

360 AS=INKEYS:IF AS="" THEN 380 
370 BS=AS:IF BS=WS THEN SCREEN 
0,1 

380 IF TIMER <TM THEN 360 

390 SOUND 150,1:IF B$="" THEN 3 
50 

400 WS$=CHRS (RND (RN) +ST) 

410 IF WS>"Z” AND WS<"a” THEN 4 
oo 

420 PRINT €271,WS; 


F AS<>"N” AND AS 


430 TIMER=0 

440 AS=INKEYS:IF A$="" THEN 460 
450 BS=AS:IF B$=WS$ THEN SCREEN 
0,1 

460 IF TIMER<TM THEN 440 

470 SOUND 150,1 

480 IF BS<>WS THEN ER=ER+I:GOTO 
490 

490 POKE 1295,128 

500 NC=NC-1:IF NC>O THEN 400 
510 CLS:PRINT €448,"COM";KP;"TE 
CLAS PRESSIONADAS POR MINUTO” 
520 PRINT "VOCE ERROU” ;ER;"DAS” 
; NM 

530 RETURN 


600 CLS: INPUT"DIGITE QUANTAS TE 
CLAS PRESSIONADAS POR MINUTO” ;K 
P 


610 IF KP<1 THEN 600 

620 PRINT:PRINT"NORMAL OU ESTEN 
DIDO (N/E)?” 

630 AS=INKEYS:IF AS<>"N” AND AS 
<>"E” THEN 630 

640 RN=91:ST=31:IF AS="N” THEN 
RN=58:5ST=-64 

650 TM=3000/kKP 

660 CLS:POKE 282,0 

670 FOR K=1 TO 32 

680 CR=RND(RN)+ST 

690 IF CR>90 AND CR<97 THEN CR= 
32 

700 WS=WS+CHRS (CR) 

710 NEXT 

720 AP=1248 

730 POKE AP,106 

740 PRINT €256,WS 

750 TIMER=0 

760 AS=INKEYS:IF A$="" THEN 780 
770 BS=AS 

780 IF TIMER<TM THEN 760 

790 SOUND 150,1:IF BS="" THEN 7 
50 

800 TIMER=O 

810 AS=INKEYS:IF AS="" THEN 830 
820 BS=AS 

830 IF TIMER<STM THEN 810 

840 SOUND 150,1 

850 IF BS<>MIDS (W$,AP-1247,1) T 
HEN ER=ER+1:GOTO 860 

855 POKE AP+64,94 

860 POKE AP,96 

870 AP=AP+1 



























880 IF AP=1280 THEN 910 

890 POKE AP,106 

900 B$="":GOTO 800 

910 CLS:PRINT €481,"COM";KP;"TE 
CLAS POR MINUTO” 

920 PRINT"VOCE ERROU” ;ER;"DAS 3 
2"; : RETURN 

1000 cLS 


sy 


10 CLS:Z$=CHRS (219) :R=RND(-TIME 


) 

20 LOCATE 5,3:PRINT"QUAL TESTE? 
(1-2)" 

30 LOCATE 5,4:PRINT"DIGITE <0> 
PARA TERMINAR” 

40 AS=INKEYS: IFAS<"0"ORAS>"2"TH 
EN4O0 

50 ON VAL(AS)+I GOSUB 1000,600, 
200 

60 ER=0:WS="":B$= 
70 coTo2zo 

200 CLS: INPUT"TOQUES POR MINUTO 
";KP 
210 
220 
;NC 
230 IFNC<ITHEN220 

240 NM=NC 

250 PRINT:PRINT”TECLADO: 
OU TOTAL (L/T)?" 

260 AS=INKEYS: IFAS<>"L"ANDAS<>" 
“"THEN260 

70 RN=90:ST=33:IFAS="L"THENRN= 


p 





IFKP<ITHENZ00 
INPUT"NUMERO DE CARACTERES” 


LETRAS 


58:ST=65 

280 TM=3600/KP 

300 CLS: PRINT"PRESSIONE A TECLA 
APÓS O BIP” 

310 LOCATE1S,10:PRINTSTRINGS (4, 
219) 

320 LOCATEIS: PRINTZS 
330 LOCATEIS: PRINTZS;" s 
340 LOCATEI5S: PRINTSTRINGS (4,219 
) 

350 W$=CHR$ (RND (1) *RN+ST) 

360 IF W$<"Z"ANDW$>"a"THEN350 
370 LOCATEL7,12:PRINTWS;:TIME=0 
380 AS=INKEYS: IFAS=""THEN390ELS 
EB$-A$: IFB$=WS$THENCOLORIS, 6 

390 IFTIMECTMTHENIBOELSEBEEP: IF 
B$=""THEN370 

400 IFBS<>WSTHENER=ER+1 

410 COLOR 15,4,4 

420 NC=NC-1:TENC>OTHEN3SO 

430 CLS:LOCATE2,12:PRINT"A";KP; 
"toques por minuto, você errou” 
; ER; "em" ;NM 

440 RETURN 

600 CLS: INPUT"TOQUES 
";KP 

610 IFKP<ITHEN600 
620 PRINT:PRINT"TECLADO: 
OU TOTAL? (L/T)* 

630 AS=INKEYS: IFAS<>"L"ANDAS<>" 
HEN630 

640 RN=91:ST=32; IFAS="L"THENRN= 
58:ST=65 

650 TM=3600/KP 

660 CLS; FORK=1T032 

670 CR=INT(RND(1)*RN)+ST 





Zzs 









POR MINUTO 


LETRAS 





z 








COMO AUMENTAR A VELOCIDADE 
DE DIGITAÇÃO 

Convém começar a execução do 
programa de jogo de velocidade com o 
teclado normal e a uma velocidade bai- 
xa (por exemplo, de cerca de trinta a 
cinquenta caracteres por minuto). Ao 
mesmo tempo, procure não alterar o rit- 
mo de trabalho, digitando com a mes- 
ma velocidade tanto os caracteres co- 
nhecidos como os que lhe são menos 
familiares (esse conselho vale principal- 
mente para quando você estiver com 
o teclado completo) 

Se o seu ritmo se mantiver constan- 
te, você poderá selecionar o teclado 
completo e aumentar, gradativamente, 
a velocidade de digitação. 

Outra coisa muito importante para 
quem está aprendendo a datilografar é 
fazer todos os exercícios propostos | 
sem olhar para o teclado do com- | 
putador. 

Mantenha os seus olhos fixos todo 
o tempo na tela à sua frente, e repou- 
se as mãos sobre o teclado, distribuin- 
do os dedos pelas teclas de apoio da 
fileira central, conforme ensinamos na 
primeira lição. 











680 IFCR>90ANDCR<97THENCR=32 
690 W$=W$+CHRS (CR) 

700 NEXT 

710 AP=564 

720 VPOKEBASE (0) +AP, 205 

730 LOCATE3,15:PRINTWS 

740 TIME=0 

750 AS=INKEY$:IFAS=""THEN760ELS 
EB$S=AS 

760 IFTIMECTMTHEN750 

770 BEEP:IFB$=""THEN740 

780 IFBS<>MIDS (W$,AP-563,1) THEN 
ER=ER+LELSEVPOKEBASE (0) +AP+80,1 
790 VPOKEBASE (0) +AP,0:AP=AP+1:I 
FAP=596THEN81O 

800 VPOKEBASE (0) +AP, 205:GOTO740 
810 CLS:LOCATE2,15:PRINT"A”;KP; 
"toques por minuto, você errou” 
;ER;"de 32” 

820 RETURN 

1000 CLS 


FAÇA TODOS OS EXERCÍCIO. 


Para adquirir um conhecimento pro- 
fundo de todas as teclas de caracteres 
pratique todos os exercícios apresenta- 
dos até agora. Esta parte do curso é in- 
dependente. Entretanto, em um artigo 
posterior, você terá oportunidade de 
praticar suas habilidades com algumas 
frases e sentenças. 








JOYSTICKS 


Embora estejam ficando cada vez 
mais sofisticados, os computadores do- 
mésticos ainda não conseguem dar ins- 
truções a si mesmos. Por enquanto (e es- 
peramos que para sempre...), a respon- 
sabilidade disso recai inteiramente sobre 
o programador ou o usuário. Aprender 
a programar é, portanto, aprender a se 
comunicar com o computador. 

O principal meio de comunicação do 
usuário com o computador? continua 
sendo o teclado. Mas existem muitas ra- 
zões para considerar esse meio como 
longe do ideal: a principal delas é que 
o teclado torna a comunicação compa- 
rativamente lenta em relação a outros 
métodos. Além disso, o uso eficiente do 
teclado exige que o usuário aprenda a 
digitar com rapidez e precisão. 

Costuma-se classificar as entradas 
efetuadas por intermédio do teclado em 
dois tipos principais. Destes, o mais co- 
mum é a entrada de um nome ou núme- 
ro em que o programa solicita ao usuá- 
rio que entre algo como ''nome e data 
de nascimento”* e espera uma resposta 
tal como “João da Silva, 9.7.53”. 








Sistema de controle dos mais versáteis 
e baratos, o joystick é um 

periférico que serve tanto para 
aplicações “sérias” como para 

tornar os jogos mais interessantes. 


O segundo tipo de entrada, por sua 
vez, transmite um tipo inteiramente di- 
verso de informação. Nela, a pressão a 
uma tecla — em vez de provocar a en- 
trada do caractere ao qual ela é normal- 
mente ligada — aciona uma outra fun- 
ção bem diferente, determinada pelo 
programa. Por exemplo, se a tecla X for 
pressionada, o cursor da tela será mo- 
vido para a direita; se for Z a tecla pres- 
sionada, o cursor será deslocado para a 
esquerda. Diversos capítulos do curso de 
BASIC e de Programação de jogos fo- 
ram destinados a ensinar a programar 
esse tipo de entrada. 

Obviamente, o primeiro tipo de en- 
trada depende do teclado de modo di- 
reto. No segundo tipo, porém, essa li- 
gação não aparece de forma tão eviden- 
te. É difícil imaginar, por exemplo, que 
um usuário pouco familiarizado com o 
teclado consiga se lembrar de que pre- 
cisa pressionar o P para movimentar 
uma nave espacial para cima e, ao mes- 
mo tempo, apertar o F para disparar 
uma arma. 


COMUNIQUE-SE COM O 

COMPUTADOR 
E COMO UTILIZAR UM JOYSTICK 
TIPOS DE JOYSTICKS 
m ESCOLHA O JOYSTICK CERTO 








Felizmente, existe uma alternativa: o 
joystick, um periférico barato e acessi- 
vel para microcomputadores. Talvez in- 
justamente associado apenas aos jogos, 
esse periférico cumpre diversas outras 
funções. 

O joystick é uma espécie de alavan- 
ca que pode ser movida em várias dire- 
ções pelo usuário. A cada movimenta- 
ção, ele envia ao computador um sinal 
que indica a sua nova posição. A maio- 
ria dos joysticks tem um ou mais botões 
pulsantes (chamados de botões de dis- 
paro) que, ao serem pressionados, ge- 
ram sinais diferentes para o computa- 
dor (joystick é um termo derivado do ae- 
romodelismo e não tem tradução ade- 
quada para o português; a mais aproxi- 
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mada seria manche). 

Com uma programação apropriada, 
mesmo nos jogos de ação mais modes- 
tos, Os joysticks podem assumir várias 
das funções reservadas tradicionalmen- 
te para o teclado; assim, eles encontram 
muitas aplicações interessantes, úteis so- 
bretudo para usuários que não querem 
ou têm dificuldades em usar o teclado. 

Por exemplo, em um programa de 
gráficos, é perfeitamente possível utili- 
zar um joystick ou um controle seme- 
lhante para guiar o cursor que desenha- 
rá na tela (na página 164 apresentamos 
um programa que faz isso por meio do 
teclado), ou para selecionar uma cor em 
uma “'paleta”' exibida na tela, Um joys- 
tick também pode ser usado para for- 
necer respostas alfabéticas ou numéri- 
cas. Alguns jogos de fliperama, por 
exemplo, possuem uma “lista de cam- 
peões”, na qual são exibidos os nomes 
dos jogadores e seus recordes de pontos. 
Neste caso, uma entrada alfabética curta 
(por exemplo, as iniciais do jogador) é 
realizada, usando-se o joystick para mo- 
ver o cursor até a posição onde está a 
letra desejada e, em seguida, o botão de 
disparo para selecioná-la. Com um pou- 
co de imaginação, é fácil incorporar es- 
se truque na digitação de nomes e nú- 
meros maiores ou, mais comumente, pa- 

a efetuar uma escolha entre um menu 
de opções de programa, por exemplo 

Em um artigo futuro, você verá co- 
mo programar o seu computador para 
operar sob o controle de um joystick, de 
modo a tornar um programa mais 
atraente ou um videogame mais diver- 
tido. Antes disso, porém, é necessário 
entender quais são os diferentes tipos de 
joysticks existentes para computadores, 
e como podem ser utilizados. 


UR AS 


Nem todos os joysticks são adequa- 
dos aos vários tipos de computadores 
pessoais. Antes de adquiri-los, convém 
certificar-se de que eles são compatíveis 
com a sua máquina, Existe ainda uma 
outra restrição: ao se comprar um pro- 
grama de jogos (ou outro qualquer) que 
utilize joysticks, é necessário verificar 
cuidadosamente se ele foi escrito para 
o tipo de joystick que você possui. Den- 
tro dessas limitações básicas podem exis- 
tir, contudo, diversas opções de compra. 

O tipo mais simples de joystick con- 
siste em uma caixa rasa com uma ala- 
vanca, que pode ser movimentada em 
oito direções diferentes: para a esquer- 
da, para a direita, para cima, para bai- 
xo e para as quatro posições intermediá- 
rias, em diagonal. Além disso, ele con- 























ta com um botão de disparo que, ape- 
sar do nome, pode ser utilizado para ta- 
refas como selecionar uma letra ou as- 
sinalar uma opção. Esse gênero de joys- 
tick é muito usado em videogames; por 
isso, é comumente chamado de “tipo 
Atari” ou digital. 

Alguns desses joysticks possuem dois 
ou mais botões de disparo que podem 
ser úteis para jogadores canhotos, por 
exemplo, ou para aumentar a velocida- 
de ou o grau de conforto na manipula- 
ção de jogos difíceis. Esses botões se lo- 
calizam normalmente na base, mas po- 
dem situar-se também na ponta da ala- 
vanca de controle, Dependendo do pro- 
grama, um botão pode, por exemplo, 
ser usado para disparar um canhão, en- 
quanto o outro aciona um dispositivo 
que deixa cair uma bomba; um botão 
pode apagar uma linha de texto, en- 
quanto o outro a edita, e assim por dian- 
te. Alguns modelos são especialmente 
planejados para se amoldarem à mão. 
Outros são modelados no formato de 
um cabo de pistola, complementado, em 


alguns casos, com um gatilho 

Joysticks mais modernos incluem dis- 
positivos extremamente sofisticados, co- 
mo ponteiros munidos de indicadores 
ultra-sensíveis de gravidade. Esses indi- 
cadores servem para detectar pequenos 
movimentos ou inclinações da mão do 
usuário (por exemplo, quando este 
aponta para alguma locação na tela) 
Eles utilizam interruptores de mercúrio: 
sempre que a alavanca é inclinada, o 
mercúrio em seu interior se desloca pa 
ra uma das extremidades, fechando ou 
abrindo um contato elétrico. Tais dis- 
positivos são tão sensíveis que não de- 
vem ser usados em jogos, a menos que 
o programa tenha sido escrito especial- 
mente para eles. 

Outro elemento da família dos joys- 
ticks é a “raquete eletrônica” (paddle), 
que nada mais é do que um botão gira- 
tório, tipo potenciômetro. Neste caso, a 
posição angular do potenciômetro é de- 
tectada pelo computador, que pode usar 
a informação para mover um cursor na 
tela, geralmente no sentido horizontal. 
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Alguns tipos de joysticks resultam de 
uma combinação de dois paddles, um na 
posição horizontal e outro na vertical. 

Uma outra variante do joystick é 
a “'trackerball” (esfera de comando). 
Originalmente desenvolvida para apli- 
cações militares e ““aviônicas”, a esfera 
de comando foi logo adaptada para 
máquinas comerciais de jogos de flipe- 
rama e estão entrando agora no merca- 
do dos computadores domésticos. Nes- 
se periférico, o controle é feito por meio 
de uma bola que se projeta acima da su- 
perfície da caixa e que pode ser rolada 
em qualquer direção, com as pontas dos 
dedos 

Os modelos mais sofisticados desses 
dispositivos de controle são emprega- 
dos também em computadores de apli- 
cação comercial e profissional, Um dos 
mais recentes é o chamado “*camun- 
dongo” (mouse), que se parece com 
uma trackerball de cabeça para baixo, 
embora existam também versões que 
funcionam de acordo com outros siste- 
mas. O camundongo entra em ação 


emo 


quando se rola o dispositivo sobre a su- 
perfície de uma mesa, Seus movimentos 
são detectados por um programa espe- 
cial, provocando deslocamentos corres- 
pondentes de um cursor gráfico ou de 
texto na tela, Assim, o camundongo po- 
de substituir as teclas de controle do cur- 
sor. Ele permite movimentos rápidos so- 
bre a tela para alterar dados ou para so- 
lucionar itens de um menu. As seleções 
são feitas por meio de um ou dois bo- 
tões no alto da caixa. Ao contrário dos 
joysticks normais, o camundongo é uti- 
lizado para desenhar na tela, mas qua- 
se nunca para controlar movimentos em 
jogos. 

Existem muitos outros tipos de dis- 
positivos que servem para controlar 
o cursor na tela, mas cujo funciona- 
mento é bem diferente do dos joysticks 
e de seus “parentes”. Um deles é o ta- 
blete gráfico, que consiste em uma m 
sa retangular, sobre a qual se pode “'es- 
crever”” com uma caneta especial, ou 
mesmo com o dedo (touchpad). Senso- 
res localizados na superfície do table- 








te ou na pena transmitem ao computa- 
dor as coordenadas X e Y da ponta da 
caneta. 

As canetas ópticas são outro “paren- 
te” dos joysticks, que permitem o des: 
nho direto sobre a tela, a escolha de op- 
ções, etc., e estão se tornando cada vez 
mais populares entre os usuários de 
computadores domésticos 


Ci RT 


Embora pareçam diferentes à primei- 
ra vista, na verdade todos esses disposi- 
tivos funcionam de maneira semelhan- 
te. Em todos eles, o movimento é trans- 
formado em uma série de sinais elétri- 
cos que são “lidos” pelo computador. 

Assim. como qualquer dispositivo 
eletrônico, os joysticks podem ser tan- 
to digitais quanto analógicos. Normal- 
mente, uma linha de computadores ac: 
ta apenas um dos tipos e mais raramen- 
te os dois. No joystick digital existem di- 
versos comutadores eletrônicos que são 
abertos ou fechados conforme o ângu- 
lo de movimentação da alavanca: assim, 
um padrão único de bits é gerado para 
cada posição. Os paddles e joysticks de 
tipo analógico, por sua vez, funcionam 
de forma diferente: eles são construídos 
com um ou dois potenciômetros (resis- 
tores variáveis), cujo ângulo de rotação 
é proporcional ao deslocamento da ala- 
vanca nos sentidos horizontal e vertical. 
As variações de resistência obtidas com 
essas rotações são transmitidas ao com- 
putador na forma de duas voltagens 
proporcionais, de modo a fornecer uma 
única combinação para cada posição de 
controle. 

Do ponto de vista visual, os dois ti- 
pos de joystick são também bastante d 
ferentes. No tipo analogico, os poten- 
ciômetros são montados em ângulos re- 
tos e operados por um enlace mecâni- 
co. A alavanca, em consegiência, não 
fica balanceada ao centro, ou seja, per- 
manece na posição em que o usuário a 
deixar. Os tipos digitais, ao contrário, 
são normalmente balanceados ao centro 
e, quando liberados, voltam automati- 
camente para a posição central ou neu- 
tra. No entanto, alguns modelos analó- 
gicos são balanceados ao centro. 

Por outro lado, uma nítida diferen- 
ça no comportamento mecânico separa 
os dois sistemas. Os joysticks digitais 
(balanceados ao centro) são mais duros 
e normalmente só se movimentam por 
uma pequena distância. Assim, um es- 
forço maior feito pelo jogador é contra- 
balançado por uma maior resistência 
mecânica. 

Na verdade, o efeito que ambos os ti- 























pos provocam no computador é contro- 
lado mais pelo programa do que pelo 
próprio joystick. Geralmente, um pro- 
grama bem escrito torna o joystick mais 
sensível e fácil de controlar. Por exem- 
plo, um programa pode determinar que 
um leve movimento da alavanca seja su- 
ficiente para dar início a mudanças de 
direção de um objeto na tela, sem que 
haja necessidade de se pressionar conti- 
nuamente a alavanca. 

Já os tabletes digitalizadores que fun- 
cionam por toque (touchpads) consistem 
em um sanduíche de duas folhas de plás- 
tico, separadas por uma pequena dis- 
tância. Uma fina grade de resistores 
ou fios condutores é construída sobre 
uma das faces dessas folhas, orientadas 
de modo a formar ângulos retos entre 
si. Ao menor contato de um dedo ou de 
um lápis com o tablete, os condutores 
situados nas duas folhas se tocam e ge- 
ram um padrão de voltagens, que é var- 
rido pelo computador. Os touchpads, 
entretanto, podem apresentar proble- 
mas, devido à dificuldade de se conse- 
guir uma superfície uniformemente sen- 
sível. Uma desvantagem em utilizá-los 
é que, se a superfície se sujar — por 
marcas de dedos, por exemplo —, os 
movimentos tenderão a se tornar errá- 
ticos devido ao deslizamento do dedo 
pela superfície. 

Extremamente leves, as trackerballs 
podem ser operadas com facilidade, pois 
a bola não tem conexão mecânica dire- 
ta com o sistema sensor. Ela é sustenta- 
da sobre rolamentos que giram livre- 
mente em duas direções, em ângulo re- 
to uma em relação à outra. Quando a 
bola sofre uma rotação, ela faz rodar 
um ou ambos os rolamentos. Estes, por 
sua vez, estão conectados a potenciôme- 
tros ou a um sensor digital — um siste- 
ma formado por um disco rotatório pa- 
ra interromper um raio de luz prove- 
niente de um diodo LED (foto-emissor), 
que cai sobre um fototransistor (foto- 
sensor). Com a contagem de impulsos 
de interrupção, o computador fica “'sa- 
bendo” de quanto girou o rolamento. 
Mais uma vez, qualquer que seja o sis- 
tema utilizado, o computador é capaz 
de interpretar os sinais elétricos em ter- 
mos de um padrão determinado de mo- 
vimentação na tela. 


[Lais Re o Ro LO 


Os comandos GETS$ ou INKEYS$ do 
BASIC são os mais utilizados para pro- 
gramar a execução de funções de movi- 
mentação do cursor de vídeo, sob con- 
trole de determinadas teclas do teclado. 
Eles efetuam uma “*varredura” do te- 





clado, de modo a assinalar ao progra- 
ma se alguma tecla foi pressionada. Se 
isso acontecer, o programa poderá efe- 
tuar alguma operação específica — tal 
como a movimentação de uma base de 
mísseis para a direita, se a tecla X, por 
exemplo, for pressionada. 

A operação do joystick digital não di- 
fere essencialmente disso. Mas enquan- 
to o teclado é parte integrante do com- 
putador, o joystick é um elemento ex- 
terno acoplado a ele. Assim, o joystick 
deve primeiro ser conectado ao compu- 
tador através de uma porta adequada 
(um conector especial); é por essa porta 
que o micro normalmente se comunica 
com o mundo exterior. Em seguida, é 
necessário colocar na memória RAM do 
micro um programa adequado para 
“varrer” periodicamente a porta de en- 
trada, de modo a procurar por um si- 
nal específico, que signifique que o joys- 
tick está sendo movimentado. 

Alguns problemas de compatibilida- 
de podem surgir entre esses periféricos 
e o computador. Em primeiro lugar, o 
joystick precisa ser conectável à porta 
de entrada do micro, seja diretamente, 
seja através de algum tipo de interface. 
Além disso é necessário que o progra- 
mador conheça os sinais gerados pelo 
joystick; caso contrário, não será pos- 
sível programar o computador para pro- 
curá-los. 

Essas exigências dão lugar, às vezes, 
a tremendas confusões. Felizmente, j 
existem padrões de mercado seguidos 
em maior ou menor grau por diferentes 
fabricantes. No Brasil, cada linha de mi- 
crocomputadores apresenta um conjun- 
to bem definido de convenções. O pa- 
drão mais comum, que se tornou vir- 
tualmente universal, é o do joystick ti- 
po Atari (digital e centro-balanceado). 
Existem diversos fabricantes de joysticks 
desse tipo, e alguns computadores são 
projetados de modo a aceitá-los direta- 
mente. 

É o caso, por exemplo, da linha Sin- 
clair (ZX-81 e Spectrum), cujos com- 
patíveis nacionais (TK-85,.TK-90X, etc.) 
incluem um conector para joysticks ti- 
po Atari. Os modelos da linha MSX 
têm, por sua vez, entrada para dois joys- 
ticks tipo Atari. Os compatíveis com o 
TRS-Color (por exemplo, o Prológica 
CP-400) utilizam joysticks analógicos. 
Já os micros da linha TRS-80 normal- 
mente não contam com nenhum tipo de 
entrada para joystick. 

Além disso, podem existir, às vezes, 
diferenças importantes entre diversos 
modelos de máquinas da mesma linha, 
como no caso do Apple, que tem pro- 
tótipos nacionais que aceitam joysticks 
digitais tipo Atari (é o caso do TK-2000), 





ou analógicos (paddles). 

Uma das diferenças mais importan- 
tes entre micros diz respeito ao interfa- 
ceamento. 
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Como qualquer periférico de compu- 
tador, os joysticks precisam ser conec- 
tados à UCP por intermédio de uma in- 
terface adequada. A interface pode es- 
tar integrada à configuração básica da 
UCP do computador, ou pode ser um 
dispositivo separado. 

Muitos fabricantes incorporam aos 
seus micros um conector e uma interfa- 
ce do tipo Atari, de modo a fazê-los 
aceitar qualquer joystick que seja de 
um modelo compatível com esse padrão. 

Outra saída seria dispor de umasou 
mais portas analógicas, que aceitam 
paddles ou joysticks do tipo potenciô- 
metro. No entanto, são raros os micros 
que já incluem essas portas em sua con- 
figuração básica, pois isto significa que 
devem ser construídos dois conversores 
analógico-digitais para cada joystick a 
ser utilizado. 


Os micros da linha Sinclair Spectrum 
não vêm acompanhados de joysticks. 
Assim, para ajustar a eles um desses pe- 
riféricos, é necessário uma interface 
apropriada ao conector de borda exis- 
tente atrás do console. 

A interface é alojada em uma caixa 
separada que se situa na parte posterior 
da máquina, em contato direto com os 
terminais do conector de borda, na en- 
trada do usuário. Existe, porém, um ti- 
po de interface (disponível apenas no 
Exterior) construída dentro da caixa do 
próprio joystick, com um conector se- 
parado para o cabo de ligação. 

O joystick mais adequado para o 
Spectrum é compatível com o tipo Atari. 
No Exterior, entretanto, existem muitos 
outros tipos de joysticks, que são incom- 
patíveis entre si no que se refere aos si- 
nais que geram no conector de expansão. 

Por isso, o usuário do Spectrum de- 
ve tomar muito cuidado quando com- 
prar ou copiar programas provenientes 
do Exterior que utilizem joysticks, pois 
eles nem sempre funcionam com o joys- 
tick disponível no Brasil. Assim, é con- 
veniente verificar a documentação do 
software antes de adquiri-lo. Alguns 
programas mais sofisticados incluem um 
menu de opções que permitem ao usuá- 
rio selecionar o tipo de joystick a ser 
usado para acionar O jogo. 

Outro problema para os proprietários 





do Spectrum é que as interfaces mais co- 
muns desse micro só possibilitam a co- 
nexão de um joystick. Entretanto, algu- 
mas interfaces mais sofisticadas permi- 
tem a conexão de dois joysticks ao mes- 
mo tempo. Infelizmente, porém, são ra- 
ros os softwares compatíveis com tais in- 
terfaces. 

O interpretador BASIC do Spectrum 
não tem nenhum comando específico 
para programação com joysticks. As- 
sim, o mais comum é usar o comando 
INKEYS. 


O ZX-81 está longe de ser uma má- 
quina ideal para jogos. Entretanto, as» 
sim como o Spectrum, é possível conec- 
tá-lo a um joystick do tipo Atari por in- 
termédio de um conector Phillips, situa- 
do na lateral ou na traseira do console. 
Portanto, a operação com esse micro é 
parecida com as descritas acima. 

O BASIC do ZX-81 não tem nenhum 
comando específico para a programação 
de joysticks, como é o caso dos micros 
da linha MSX, Apple e TRS-Color, mas 
o comando INKEY$ pode ser usado da 
mesma forma que com o teclado, pois 
os joysticks para o ZX-81 geram sinais 
correspondentes às teclas de controle de 
cursor (6, 7, 8 e 9, combinadas com 
<SHIFT>). 

Isto é uma vantagem adicional, pois 
um jogo que utilize tais teclas operará 
igualmente bem, com ou sem joystick 
(só que ficará mais divertido com o joys- 
tick, como é o caso de um popular pro- 
grama de simulação de vôo de uma ae- 
ronave). 








Os microcomputadores da linha 
TRS-Color incluem duas entradas para 
joysticks analógicos, do tipo potenció- 
metro de centro não-balanceado. Esses 
joysticks têm botões de disparo, e po- 
dem ser facilmente programados por co- 
mandos específicos do interpretador 
BASIC. A tela de alta resolução gráfi- 
ca, quando associada por programação 
ao uso desses joysticks, permite efeitos 
sensacionais de animação gráfica, em 
jogos ou no desenho livre. 





Os micros da linha TRS-80 não in- 
cluem nenhuma previsão ou porta espe- 
cial para joysticks. 

Entretanto, esses computadores po- 
dem ser conectados tanto a joysticks di- 
gitais do tipo Atari, quanto a joysticks 
e paddles analógicos; para isso, existem 


produtos comercialmente disponíveis no 
mercado. 

No primeiro caso, é necessário efe- 
tuar uma modificação no hardware, 
conectando fios em paralelo com a in- 
terface do teclado. Em seguida, deve-se 
ligar a máquina ao joystick. Uma vez 
em operação, este gera sinais semelhan- 
tes aos provocados pela pressão das te- 
clas de controle do cursor, que podem 
ser detectadas por meio do comando 
INKEYS$, do BASIC. Há um dispositi- 
vo fabricado no Brasil — “joypad”, um 
pequeno teclado paralelo apenas com as 
teclas de controle de cursor (joypad) — 
cuja função consiste em facilitar o de- 
sempenho em jogos. 

Para conectar dispositivos analógi- 
cos, é necessário adquirir uma interfa- 
ce especial de conversão analógico-digi- 
tal, que é ligada à porta de expansão, 
na parte de trás da UCP. 

No TRS-80 não existem comandos 
específicos do BASIC para os dois tipos 
de joysticks. 


a 


Os microcomputadores da linha 
MSX incluem portas de entrada para 
joysticks do tipo digital centro-balancea- 
do, com dois ou mais botões de dispa- 
ro. No Brasil, cada fabricante oferece 
o seu modelo próprio de joystick, mas 
o padrão de conexão e geração de sinais 
segue o do Atari. 

Da mesma forma que o TRS-Color, 
o interpretador BASIC dessas máquinas 
contém comandos bastante poderosos. 


[é] 


A maioria dos micros da linha Ap- 
ple apresenta no console duas portas pa- 
ra dois paddles analógicos, ou para um 
joystick de dois eixos (não centro-balan- 
ceado). O interpretador BASIC incor- 
pora comandos para leitura da posição 
dos potenciômetros e da pressão ao bo- 
tão de disparo. 

Existem ainda no mercado joysticks 
do tipo digital, que podem ser conecta- 
dos via porta serial ou paralela. 


[6] 


O Microdigital TK-2000 inclui, na 
versão padrão, um conector especifico 
para joystick digital do tipo Atari, que 
opera paralelamente ao teclado normal 
(ou seja, gera sinais correspondentes às 
teclas de controle do cursor e às teclas 
FIRE dos dois lados do teclado). Assim, 
a utilização do joystick pode ser progra- 
mada por meio de comandos GETS$ ou 
PEEK do teclado existentes no BASIC 








Como funciona um conversor ana- 
lógico-digital? 

Necessário para converter em nú- 
meros binários as voltagens contínuas 
geradas pelos paddles e joysticks ana- 
lógicos, o conversor A/D realiza uma 





tarefa de dis 
de entrada. 

Suponhamos que uma rotação de 
118 graus num dos potenciômetros do 
joystick gera uma voltagem proporcio- 
nal entre O e 5 volts. O conversor A/D 
tem um comparador interno que gera 
voltagens sucessivas, divididas em um 
certo número de intervalos (por exem- 
plo, 256 intervalos de 0.0195 volts ca- 
da, se for um conversor de oito bits). 
A cada nivel interno de voltagem, o cir- 
cuito compara-o com o nível externo de 
voltagem (gerado pelo joystick) e de- 
cide se esses valores são aproximada- 
mente iguais ou não. Ao mesmo tem- 
po, outro circuito digital vai contando 
quantos desses níveis foram testados. 
Assim que o comparador informar que 
a igualdade foi atingida, o conversor 
A/D enviará ao computador, através da 
interface paralela, o byte contendo o 
número de contagens. Por exemplo, se 
a voltagem gerada pelo joystick for 
1.95 volts, o número enviado para o 
computador será 100! 


italização do sinal elétrico 











do TK-2000. Não existem joysticks ou 
paddles do tipo analógico para esse 
computador. 





UI 





PORN AGUAS 


Ao comprar um joystick, verifique 
primeiro se o modelo escolhido é com- 
patível com o seu computador e, no ca- 
so do Spectrum, com o seu software 
também. 

Em seguida, pense em quanto você 
está disposto a gastar; se você é proprie- 
tário de um Spectrum, tenha em men- 
te que a interface poderá custar tanto 
quanto o joystick, ou até mais. Os tipos 
mais simples de joysticks custam o mes- 
mo que um programa de jogo, enquan- 
to os mais elaborados podem ser duas 
ou três vezes mais dispendiosos. 





Uma vez elaborado o projeto geral de 
um programa e escritos os módulos in- 
dividuais, pode-se começar a pensar em 
testar os módulos. Em seguida, é neces- 
sário planejar a forma de colocá-los to- 
dos juntos, 

As sub-rotinas ou módulos precisam 
ser colocados de alguma forma dentro 
do contexto do programa. Normalmen- 
te, a ligação é feita por meio de variá- 
veis. Algumas destas — conhecidas co- 
mo parâmetros de entrada — são espe- 
cificadas no início, e passadas à rotina, 
Outras variáveis retornam ao programa 
por intermédio da rotina; estas são os 
parâmetros de saída. É muito importan- 
te que as variáveis sejam especificadas 
de um modo preciso para não serem 
confundidas umas com as outras. 

Ao se começar a escrever um progra- 
ma deve-se fazer uma lista de todas as 

BR variáveis necessárias, juntamente com 





uma descrição dos seus usos e possíveis 
valores iniciais, caso sejam conhecidos. 
Do contrário, mesmo que se saiba no 
início o que significam todas as letras, 
corre-se o risco de esquecer de retornar 
ao programa mais tarde. Um recurso 
bastante prático, caso o computador 
permita ou o espaço de memória não se- 
Ja muito pequeno, consiste em adotar 
nomes longos para as variáveis (veja na 
página 99 uma tabela do que é permiti- 
do para cada linha de microcompu- 
tadores). 





Como se deve especificar as variáveis 
para uma rotina de ordenação tipo bo- 
Tha? O exemplo a seguir apresenta uma 
porção específica de matriz ordenada al- 
fabeticamente, 


Variáveis de entrada: 

AS(N) — conjunto unidimensional a 
ser classificado (tamanho de N> =1) 
N1 — primeiro item em conjunto a ser 
classificado (|< =NI< =N2) 

N2 — último item em conjunto a ser 
classificado (NI< =N2< = o tamanho 
de A) 





Variáveis de saída: 
AS(N) — conjunto ordenado. 


Variáveis temporárias: 
Z, 28,1. 


Uma providência muito útil para evi- 
tar conflitos entre módulos ou com o. 
resto do programa consiste em listar as 
variáveis temporárias utilizadas em uma 
sub-rotina. Também é útil reservar al- 
gumas letras, especialmente para variá-. 
veis temporárias: por exemplo, as variá- 
veis de Z0 a Z9. Esse tipo de recurso evi- 
ta desperdícios de espaço das variáveis. 

Alguns erros ou defeitos de progra: 
ma são causados às vezes por variáveis. 


viciadas — isto é, com valores mudados. 
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estruturada, aprendendo a 

Pero a CATA ua Ce e e ET 
pelo método de bolhas, e 

coloque em ordem o que quiser. 


Esses problemas, contudo, podem ser 
evitados com a aplicação do método ex- 
posto acima 

Uma listagem de variáveis também é 
útil para 0 caso de o programa vir a ser 
modificado mais tarde. Essa medida as 
segura maior rapidez na alteração das 
variáveis, impedindo ao mesmo tempo 
o aparecimento de erros extras no pro: 
grama. Tais erros são normalmente pro 
vocados por variáveis viciadas, utiliza 
das para outros propósitos. Lembre-se 
ainda de anotar as modificações, junta 
mente com as datas em que foram feitas 

Eis aqui o programa para uma rot 
na de ordenação por bolhas (seu funcio: 
namento será explicado mais adiante, na 
lição número 23 de Programação 
BASIC) 


1000 REM ORDENAÇÃO TIPO BOLHA ( 
AS(N),NL.N2) 

1010 LET 2-0 

1020 FOR I=Ni TO N2-1 





1030 IF AS(I)<=AS(I+1) THEN 
o 1080 

1040 LET ZS=AS(I) 

1050 LET AS(I)=AS(I+1) 

1060 LET AS(I+1)=ZS 

1070 LET Z=1 

1080 NEXT 1 

1090 IF Z=1 THEN GOTO 1010 
1100 RETURN 








Como toda sub-rotina, esta d Ser 
chamada a partir do programa princi 
pal. Por exemplo, para ordenar os itens 
de 5 a 20, a rotina pode ser chamada 
assim 








100 LET N1=5:LET N2=20:GOSUB 
1000: REM ORDENACAO TIPO BOLHA 


É preciso também que exista uma se 
ção do programa que lhe permita entrar 
os itens a serem ordenados, e outra que 
imprima a lista ordenada. Neste estágio 
você deve decidir como quer que a exi 
bição apareça na tela 

Se você trabalha com um MSX, po: 
de tirar proveito do poderoso BASIC 
desse micro, Mude a linha 1040 para 
SWAP AS(1), 1+1) e elimine as hi 
nhas 1050 e 1060. Seu computador tro 
cará o conteúdo das duas variáveis de 
uma só vez, dispensando o uso da va 


riável Z$. 





[er oC o Ee 





Cada módulo do projeto original po- 
de se tornar uma sub-rotina no seu pro 
grama. Esse método de dividir o progra: 
ma é muito útil durante o estágio de tes- 
te, pois os módulos podem ser postos à 
prova ou depurados individualmente 
Volte agora à sub-rotina da ordenação 
tipo bolha, testando-a assim: 








DEFINA AS VARIÁVEIS 
RSS ENA 
REED) 


EE | COMO TESTAR OS MÓDULOS 
[| COLOQUE TUDO JUNTO 














8 INPUT "Número de ftens 

LOL N) 

12 Entrada dos Itens da 
atriz:” 

14-FOR TO N: INPUT AS(I 
RT I 


16 INPUT 
ado ";N 
18 GOSUB 1000 
20 PRINT"Lista 
22 FOR I=1 TO N 
ns 
24 GOTO 16 

O programa acima também funcio 
nará no TRS-Color e TRS-80, desde que 
se adicione a linha a seguir, cujo objeti 


vo é reservar um espaço suficiente de 
memória 


“Intervalo a ser orden 






ordenada 
PRINT AS 





Y:NEX 








6 AR 1000 

No ZX-81 eno Spectrum, modifique 
a linha 10 do programa acima para; 
LO DIM AS(N,10) 


No ZX-81, fracione as linhas com de- 
clarações múltiplas, mude tudo para 
maiúsculas, e altere a linha 8 para: 














2% 


8 PRINT "NUMERO DE ITENS” 
9 INPUT N 

Entretanto, a tarefa de testar cada ca- 
so de entrada e de saída pode se revelar 
impossível em programas complexos, 
exigindo um tempo excessivamente 
grande. Apesar disso, os-casos limítro- 
fes podem ser checados. Por exemplo, 
a rotina seguinte pode ser verificada pa- 
ra entrar valores de 1,99:€ 100, 
1010 PRINT “ENTRE UM NUMERO 
11-99) "5 
INPUT N 
IF N<1 OR N>99 THEN GOTO 
1010 
1030 RETURN 

Outra providência aconselhável é 
certificar-se de que cada linha do pro- 
grama foi rodada pelo menos uma vez 
durante o estágio de depuração. Assim, 
todos os desvios condicionais, tal como 
a declaração IF, poderão ser chocados 
com ambas as condições de verdadeiro 
ou falso. 


COLOQUE TUDO JUNTO 


Finalmente, todos os módulos pode- 
rão ser encadeados e o programa testa- 
do como um todo. Isso é conhecido co- 
mo integração do programa. Se ocorre- 
ram problemas, qualquer módulo sus- 
peito poderá ser checado novamente e 
modificado em caso de necessidade. 

Cumpridas todas essas exigências, 


1015 
1020 






você terá um programa perfeitamente 
estruturado que fará exatamente o que 
for determinado. 

As regras para se escrever um progra- 
ma estruturado são, resumidamente, as 
seguintes: 








1. Escreva uma descrição geral do 
» Programa. 

2, Divida-a em tantos módulos quantos 

forem os níveis necessários. 

3, Desenhe um fluxogran a cada 
módulo e defina as variáveis de en- 
trada e de saída e de quaisquer ou- 
tros efeitos, tais como a exibição na 
tela. 

4. Escreva os programas para cada mó- 
dulo que utilizar as estruturas descri- 
tas na parte 1. 

S. Teste os módulos, fornecendo as en- 
tradas e checando os resultados e as 
saídas. 

6. Combine todos os módulos e teste o 
conjunto do programa. 

A finalidade de todo esse trabalho é 
aumentar a legibilidade de um progra- 
ma, assim como sua capacidade, sega- 
rançae transportabilidade, Além disso, 
ele facilita a tarefa de testar e modifi- 
car o programa. 


COMO FUNCIONA O MÉTODO DAS BOLHAS 


O programa de ordenação pelo mé- 
todo das bolhas foi utilizado aqui para 








mostrar como um módulo pode ser 
construído e depois testado, antes de ser 
encadeado ao programa principal, As 
rotinas de ordenação são muito úteis pa- 
ra todos os tipos de programas. A que 
apresentamos agora classifica palavras 
em ordem alfabética, mas poderia ser- 
vir também para classificar números em 
ordem crescente. Basta modificar as va- 
riáveis Z$ para Z, co conjunto AS( ) pa- 
ra A(). 

O computador percorre a lista, com- 
parando pares de itens, um de cada vez. 
Se eles estiverem em ordem correta não 
serão mudados, Se estiverem em ordem 
incorreta serão intercambiados. O pro- 
grama continua através da lista, efe- 
tuando mais trocas até que todos os 
itens estejam em ordem correta. 

Para avaliar o funcionamento do 
programa em detalhes é conveniente 
compará-lo com o fluxograma. A pri- 
meira parte do programa (que não está 
no diagrama) define o número de itens 
da lista — N — e estabelece um conjun- 
to chamado AS$( ) com espaço suficiente 
para N itens. As linhas 12 e 14 pedem 
ao usuário as palavras que serão arma- 
zenadas no conjunto e a linha 16 per- 
gunta quais delas serão ordenadas. Se 
você quiser ordenar a lista inteira, digi- 
te | seguido de uma vírgula, mais 0 va- 
lor de N. A sub-rotina é chamada na li- 
nha 18. 

A rotina começa estabelecendo Z 
igual a O, Z é conhecido como um sina- 





e. 





lizador e registra se alguma troca de po- 
sições foi realizada, 

A linha 1020 cria um laço para per: 
correr a lista, Os números certificam de 
que cada par foi comparado pelo menos 
uma vez. A linha 1030 compara as pri- 
meiras duas palavras; se estas estiverem 
em ordem correta, o programa pulará 
a rotina de trocas e se dirigirá para o par 
seguinte 

As linhas 1040 a 1070 somente serão 
atingidas se as palavras estiverem em or- 
dem incorreta. A primeira palavra é co- 
locada em uma variável temporária Z$ 
A segunda é movimentada para alguma 
posição, e então a primeira palavra é 
deslocada uma posição abaixo, dentro 
do conjunto. Z é então igualado a 1 pa- 
ra mostrar que foi efetuada uma troca. 
A linha 1080 manda o computador de 
volta para comparar o par de palavras 
seguinte. 

Uma vez que todos os pares tenham 
sido comparados, o programa atingirá 
alinha 1090. Se Z =, isso significa que 
pelo menos uma troca foi efetuada; des- 
sa forma, ele percorrerá a lista nova: 
mente. Se nenhuma troca foi efetuada, 
então a lista está na ordem correta, à 
sub-rotina termina € as linhas 20 e 22 im 
primirão a lista ordenada 

A denominação de método das bo- 
lhas tem, assim, sua razão de ser: o mo- 
vimento das palavras lembra globos de 
ar em ascensão no interior de um 
líquido. 
















































A ordenação pelo método de bolhas provoca 
um efeito semelhante ao da ação de 

bolhas de ar no interior de um líquido, 
trocando palavras e números em 

ordem incorreta e deslocando-os para cinta. 
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ASSEMBLER PARA 
O TRS-COLOR 





Bem mais rápido do que o programa para 
o Spectrum, o Assembler para os 
micros da linha TRS-Color proporciona 
igual eficiência, Economize 

tempo, aprendendo a trabalhar com ele. 








Nesta lição, apresentamos um As- 
sembler para o TRS-Color. Mais longo 
do que o programa para o Sinclair ZX 
Spectrum objeto da lição anterior, ele 
conta com a participação de um editor. 

O microprocessador utilizado pelo 
TRS-Color é o Motorola 6809 de oito 
bits, cujo conjunto de instruções é bem 
menor que o do Z80, empregado pelo 
Spectrum. Entretanto, o Assembler do 
TRS-Color tem que passar por até três 
“etapas” para traduzir um comando de 
dezesseis bits, enquanto o programa do 
Spectrum deve passar por no máximo 
duas. Apesar dessa etapa adicional, o 
programa do TRS-Color é quase três ve- 
zes mais rápido que o do Spectrum: seu 
grande recurso para procurar os mne- 
mônicos — a função INSTR — não 
existe no BASIC do Spectrum. 





A linha 10 pode provocar um erro FC 
quando o programa é rodado pela pri- 
meira vez. Não se importe com a men- 
sagem de erro e rode o programa nova- 
mente, que ele funcionará. 


PES 


10 PMODE O:PCLEAR 1:CLEAR 3000: 
CLS:PRINT €233,"INICIALIZANDO" : 
R$=CHRS$ (13) :POKE 146,1 

20 DIM SK$(1),K1(94),K2(94), TS( 
200) ,RR(100),Z$(100) 

30 FOR CC=1 TO 94:READ K$,KI(CC 
),KZ(CC) :C=CC/49:SKS(C) =SK$(C) + 
RIGHTS (STR$ (CC), 2) +KS:NEXT 

40 DATA ADCA,185,1,ADDA,187,1,A 
DDD,243,2,ASL,120,3,CLR,127,3,C 
MPA,177,1,CMPD,4275,2,CMPY,4284 
+2,BCC,36,4,BCS,37,4,BEQ,39,4 
50 DATA BHS,36,4,BLO,37,4,BMI,4 
3,4,BNE,38,4,BPL,42,4,BRA,32,4, 
LBRA,22,5,BSR,141,4,LBSR,23,5,C 
MPX, 188,2,CMPU,4531,2,CMPS,4540 
+2,DEC,122,3 

60 DATA INC,124,3,JSR,189,3,LDA 
+182,1,LDB,246,1,LDD,252,2,LDS, 
4350,3,LDU,254,3,LDX,190,3,LDY, 
4286,3,LSL,120,3,LSR,116,3 

70 DATA PSHS,52,1,PSHU,54,1,PUL 
S,53,1,PULU,55,1,ROL,121,3,ROR, 
118,3,RTS,57,,STA,183,3,STB,247 
+3,STD,253,3,878,4351,3,STU,255 
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80 DATA STX,191,3,STY,4287,3,SU 
BA,176,1,SUBD,179,1,ANDA,180,1, 
ABX,58,, ANDCC,76,1,ASR,119,3,RT 
1,59,,SBCA,178,1,NOP,18,,NEG,11 
2,3 

90 DATA BITA,181,1,BGE,44,4,BGT 
+46,4,BHI,34,4,BLE,47,4,BLS,35, 
4,BLT,45,4,BRN,33,4,BVC,40,4,BV 
8,41,4,EXG,30,1,TFR,31,1 

100 DATA COM,115,3,CWAI,108,1,D 
AA,25,, EORA,184,1,TST,125,3,LEA 
S,66,3,LEAU,67,3,LEAX,64,3,LEAY 
+65,3,MUL,61,,0RA,138,1,0RB,202 


1 

110 DATA ORCC,74,1,5EX,29,,SWI, 
63,,SWI2,4159,,9WI3,4415,,SYNC, 
19,,EQU,-1,2,FCB,-2,1,FDB,-3,2, 
RMB,-4,, JMP,126,3 

120 DIM X$(13),V(14),KK(13),Y5( 
13) 

130 FOR C=0 TO 12:READ X$(C),V( 
C) ,KK(C) , YS(C) :NEXT 

140 DATA PCR,253,7,,PC,253,8,D, 
--,243,1,X,-,242,1,7,X,159,,U,Y 
+191,,8,U,223,,PC 

150 DATA 8,255,,,++,241,1,,+,24 
0,1,A,4,246,1,B,B,245,1,CC,D,25 
1,1,DP 

160 FOR J=0 TO 9:READ PUS(J),PU 
(J) NEXT 

170 DATA PC,128,U,64,5,64,Y,32, 
X,16,DP,8,D,6,B,4,A,2,CC,1 

180 CLS:PRINT 643," ASSEMBLER"RS 
RSTAB(8)"G=LER DO GRAVADOR"RSSS 
TAB(8)"S=SALVAR NO GRAVADOR"RSR 
STAB (8) "A=MONTAR” 

190 PRINT €296,"E=EDITAR LINHA” 
RSRSTAB (8) "D=APAGAR LINHA"RSRST 
AB(B)"L=LISTAR NA TELA” 

200 AS=INKEYS:IF A$="" THEN 200 
210 JJ=INSTR("GSEDLA”,AS) 

220 IF JJ=0 THEN PRINT "<"AS">I 
NVALIDO":FOR J=1 TO 1000:NEXT:G 
oTo 180 

230 CLS:ON JJ GOSUB 1420,1450,1 
490,1710,1760,280 

240 PRINT €0,"PRESSIONE <ENTER> 
PARA CONTINUARQUALQUER OUTRA T 
ECLA PARA MENU PRINCIPAL” 

250 AS=INKEYS:IF A$="" THEN 250 
260 IF AS<>R$S THEN 180 

270 ON JJ GOSUB 1420,1450,1700, 
1710,1850,290:GoTo 240 

280 K=0:K9=0:P0=0 

290 PS=0 

300 PS=PS+1:IF PS<4 THEN K=K0:P 
=PO:PRINT €1," INICIO DA ETAPA”P 
S:GoTo 330 

310 PO=P:RETURN 

320 IF PS=3 THEN PRINT ” ERRO D 
E POSBYTE” 











330 GOSUB 1320 
340 GOSUB 1260:0PS=CS:IF LEFTS( 
OP$,1)="*" AND PS=3 THEN PRINT 


LEFTS (OP$,1)="*" THEN 33 


OP$="END” AND PS=3 THEN 
RINT” FIM.ULTIMO ENDE 
=] 

370 IF OP$="END”" THEN 300 

380 IF OPS<>"ORG" THEN 420 

390 GOSUB1260:S=0:IF LEFTS(CS,1 
)J="*" THEN S=P:C$=MIDS(CS,2) 
400 P=VAL(CS)+S:IF PS=3 THEN PR 
INT: PRINT” ORG" ;P 

410 GoTo 330 

420 IF P=0 AND PS=3 THEN PRINT” 
FALTA ORG” :P=35000 

430 CC=0:DF=0 

440 C=INSTR(SKS(CC),OP$):IF C<> 
O THEN GOSUB 530:GOTO 570 

450 C=INSTR(SK$ (CC), LEFTS(OP$S,3 
)J):IF C<>0 AND RIGHTS (OPS,1)<"C 
” AND MIDS(SK$S(CC),C+3,1)<"A” T 
HEN GOSUB 530:GOTO 540 

460 IF C<>0 AND RIGHTS (OP$S,1)=" 
B” GOSUB 530:GOTO 560 

470 C=INSTR(SKS (CC), RIGHTS (OPS, 
3)):IF C<>0 AND LEFTS(OPS,1)="L 
” GOSUB 530:GOTO 550 

480 CC=CC+1:IF CC<2 THEN 440 
490 IF PS=3 THEN PRINT OP$ 

500 GOSUB 1350:03=02:RR(Q2)=P:I 
F C$="" THEN 340 

510 IF PS=3 THEN PRINT ” LINHA 
NAO RECONHECIDA” 

520 GOTO 330 

530 C=VAL (MIDS (SK$ (CC) ,C-2,2)): 
RETURN 

540 OP=K1 (C)-32+16* (RIGHTS (OPS, 
1)="A”) :K2=0:GOTO 580 

550 OP=K1 (C) +4096:K2=5:GOTO 580 
560 OP=K1(C)+64:K2=1:GOTO 580 
570 OP=KI(C) :K2=K2(C) 

580 IF PS=3 THEN BY=P/256:GOSUB 
1240:BY=P-32768:GOSUB 1240:PRI 
NT” "OPS; 

590 IF OP>-1 THEN 740 

600 GOSUB 1260:ADS=CS:IF PS=3 T 
HEN PRINT " ” LEFTS(ADS,10; 

610 ON -OP GOTO 620,630,660,730 
620 GOSUB 1860:IF NU=0 THEN RR( 
Q3)=R:GOTO 330 ELSE 1050 

630 IF PS=3 THEN PRINT TAB(20); 
640 GOSUB 690:BY=255ANDR:GOSUB 
1230 

650 IF BS=ADS THEN 330 ELSE 640 
660 IF PS=3 THEN PRINT TAB(20); 
670 GOSUB 690:BY=INT(R/256) :Gos 
UB 1230:BY=R-256*BY:GOSUB 1230 
680 IF B$=ADS THEN 330 ELSE 670 
690 NN=INSTR(ADS,”,"):IF NN=0 T 

















HEN B$=AD$:GOTO 710 

700 BS=LEFTS (ADS, NN-1) :ADS=MIDS 
(ADS, NN+1) 

710 IF LEFTS$(B$,1)="S" THEN R=V 
AL("LH"+MIDS (BS,2))ELSE R=VAL(B 
8) 

720 RETURN 

730 GOSUB 1860:IF NU=0 THEN P=P 
+R:GOTO 330 ELSE 1050 

740 B=239:TF K2=0 THEN 1140 

750 GOSUB 1260:AD$=C$:IF PS=3 T 
HEN PRINT ” ” LEFTS(ADS,9; 

760 IF K2>3 THEN 1040 

770 IF(KZ2<>3 OR (LEFTS(OP$,2)=" 
LD")) AND LEFTS(AD$S,1)="4" THEN 
ADS=MIDS (ADS, 2) :DF=1:0P=0P-48: 
soro 1040 

780 IF RIGHTS(AD$S,1)="]” THEN A 
D$=MIDS (ADS, 2, LEN(ADS)-2) :B=B+1 
6 


790 IF OP<52 OR OP>55 THEN 870 

800 K2=1:R=0:AAS=ADS 

B1O NN=INSTR(AAS,”,"):IF NN=0 T 

HEN US=AAS:GOTO 830 

820 US=LEFTS (AAS,NN-1) :AAS=MIDS 
(AAS,NN+1) 

830 IF US=RIGHTS (OPS, 1) THEN 320 

840 NN=-1:FOR J=0 TO 9:IF US=PU 

S(J) THEN NN=J 

850 NEXT:IF NN<O THEN 320 

860 R=R ORPU(NN):IF US=AAS THEN 
1140 ELSE 810 

870 K2=3:C=INSTR(ADS,","):IF C= 
O THEN 1040 

880 IF OP<>30 AND OP<>31 THEN 9 
so 

890 NN=INSTR(ADS,”,”):US=LEFTS( 

ADS ,NN-1) :GOSUB 930:N1=H-1:IF H 
=0 THEN 320 

900 US=MIDS (ADS, NN+1) :GOSUB 930 
:N2=H-1:1IF H=0 THEN 320 

910 IF(SANDN1)<>(8ANDNZ) THEN 3 
20 

920 R=16*NI+N2:K2=1:GOTO 1140 
930 FOR J=1 TO 12:IF YS(J)=US T 
HEN H=J 

940 NEXT:RETURN 

950 C2=C+1:FOR J=0 TO 12:L=LEN( 
X$(J)):IF MIDS(ADS,C2,L)<>X$(J) 
THEN 980 

960 IF (B ORV(J)) AND 239<239 T 
HEN 320 

970 C2=C2+L:B=B AND V(J):IF KK( 
J) THEN K2=KK(J)-1 

980 IF J=9 THEN J2=C2:C2=C2+(C2 
-1)*(K2<6) 

990 NEXT 

1000 IF(15 AND B)=15 THEN B=B-6 
1010 IF PS=3 AND J2<=LEN(ADS)AN 
D K2<>7 THEN PRINT "ERRO DE IND 
EXACAO” :GOTO 330 

1020 IF(K2=0 AND C>2) OR (MIDS( 
ADS+",",J2,1)<>",") AND PS=3 TH 
EN PRINT "ERRO DE ENDERECAMENTO 
":GoTO 330 

1030 ADS=LEFT$ (ADS,C-1):IF J2=C 
TEEN R=0:GOTO 1060 

1040 GOSUB 1860:IF NU=0 THEN 10 
so 

1050 IF PS=3 THEN PRINT” ENDERE 
CAMENTO NAO ENTENDIDO” 

1060 IF K2=7 THEN K2=3:GOTO 108 
º 


1070 IF K2>3 THEN R=R-P-2+(0P>2 
55)+(B<>239)+(K2>4) :R=R-((K2=6) 
AND (R>-129) AND (R<128)) :K2=K2-3 
1080 IF B=239 AND K2=3 THEN K2= 
2:IF R<256 AND DF=0 THEN K2=1:0 
P=0P-32:IF(240 AND OP)=80 THEN 
OoP=0P-80 





1090 IF PS=3 AND((OP>31 AND OP< 
48)0R OP=141)AND(R<-128 OR R>12 
7)THEN PRINT ” DESVIO FORA DE F 
AIXA”;:GOTO 330 

1100 IF B=255 THEN B=159:K2=2 
1110 IF B<>239 THEN OP=0P-16:IF 
K2=3 THEN K2=2:IF ABS(R+.5)<12 
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8 THEN K2=1:B=B-1:R=255 AND R 
1120 IF(15 AND B)=8 AND R=0 THE 
N B=B-4:K2=0 

1130 IF(31 AND B)=8 AND (R<16 O 
R R>239) THEN B=(B-136)0R(31 AN 
D R):K2=0 

1140 IF PS=3 THEN PRINT TAB(20) 


1150 IF OP=>0 THEN BY=0P/256:G0 
SUB 1220:BY=O0P:GOSUB 1230 

1160 IF B<>239 THEN BY=B:GOSUB 
1230 

1170 IF K2=0 THEN 330 

1180 GOSUB 1200:IF K2=2 THEN BY 
=R/256:GOSUB 1230 

1190 BY=R-256*INT (R/256) :GOSUB 
1230:GoTo 330 

1200 IF PS=3 THEN PRINT " "; 
1210 RETURN 

1220 IF INT(BY)=O0 THEN RETURN 
1230 P=P+1:IF PS=3 THEN POKE P- 
1,255 AND BY 

1240 By=255 AND BY:IF PS=3 THEN 
PRINT RIGHTS ("0"+HEXS (BY) ,2); 
1250 RETURN 

1260 IF K>N THEN C$=" END”: RETUR 
N 
1270 
THEN 
RN 
1280 K9=K1l:IF MIDS(TS(K),K1,1)= 
" " THEN 1270 

1290 IF K9>LEN(TS(K)) THEN C$=MI 
DS(TS(K),K1,K9-K1) : RETURN 
1300 IF MIDS(TS(K),K9,1)<>" 
HEN K9=K9+1:GOTO 1290 

1310 C$=MIDS(TS(K),K1,K9-K1) :RE 
TURN 

1320 IF K9<=LEN(TS(K) )AND PS=3 
THEN PRINT RIGHTS(TS(K), LEN(TS( 
K))-K9+1) ; 

1330 K=K+1:K9=0:IF PS=3 THEN PR 
INT 
1340 
1350 
1360 
1380 
1370 XS=XS+LEFTS(CS,1):CS=MIDS( 
C5,2):GOTO 1360 

1380 IF C$<>"” THEN RETURN 
1390 FOR Q2=1 TO VV:IF XS=Z5(Q2 
) THEN 1410 

1400 NEXT:VV=VV+1:ZS (VV) =XS:Q2= 
VV: RR (VV) =23000 

1410 RETURN 

1420 CLS:MOTORON: PRINT 6161,"PO 
SICIONE O GRAVADOR, PRESSIONE Q 
UALQUER TECLA E APERTE <PLAY>.” 
1430 US=INKEYS:IF US="" THEN 14 
30 

1440 OPEN"I”,4-1,"ASM":PRINT” C 
ARREGANDO PROGRAMA” : INPUT $&-1,N 
:FOR J=1 TO N: INPUT 4-1, TS(J):N 
EXT:CLOSE 4-1:RETURN 

1450 CLS:MOTORON: PRINT €161,"PO 
SICIONE O GRAVADOR , APERTE < 
RECORD> E PRESSIONE QUALQUER 
TECLA." 

1460 US=INKEY$S:IF U$="" THEN 14 
s0 


K1=K9+1:IF K9>=LEN(TS (K)) 
C$=" FALTA MNEMONICO" : RETU 


EE 


RETURN 
mma 


IF CS<"A” OR C$>="[" THEN 


1470 OPEN"O”,4-1,"ASM":PRINT” G 
RAVANDO PROGRAMA”: PRINT 4-1,N:F 
OR J=1 TO N:PRINT 4-1, TS(J) :NEX 
T:CLOSE &-1:RETURN 

1480 PRINT 4-1,N:FOR J=1 TO N:P 
RINT4-1, TS (J) :NEXT:CLOSE&-1:RET 
URN 

1490 PRINT ” INTRODUZA O NUMERO 
DA LINHA (LI NHAS NUMERADAS DE 
DEZ EM DEZ)” 


1500 INPUT K:CLS 

1510 K2=K/10:IF K2>N THEN K2=N+ 
1:N=N+1:TS(K2)="": PRINT 8480,"" 
1520 IF K2<.1 THEN K2=.1 

1530 IF K2=INT(KZ) THEN 1550 
1540 K2=INT(K2)+1:FOR K3=N TO K 
2-1 STEP -1:TS(K3+1)=TS(K3) :NEX 
T:N=N+1:TS(K2)="" 

1550 P1l=1478:P0=P1 

1560 PRINT €448,K;TAB(6) TS (K2): 
P9=PO+LEN(TS (K2)) 

1570 IF PI<PO THEN P1l=PO 

1580 IF P1>P9 THEN Pl=Pl-1 

1590 PB=PEEK(P1):POKE P1,63 AND 
p8 

1600 P7=0:AS=INKEYS:IF A$="" TH 
EN 1600 

1610 IF AS=R$ THEN POKE P1,PB:R 
ETURN 

1620 IF A$=CHR$(9) THEN POKE P1 
. PB:Pl=P1+1:GOTO 1580 

1630 IF AS=CHR$(8) THEN POKE Pl 
+ PB:Pl=P1-1:GOTO 1570 

1640 IF AS=CHR$(10) THEN AS="": 
GoTo 1670 

1650 IF AS=CHRS(94) THEN AS=" " 
+MIDS (TS (K2) ,P1-PO+1,1):P7=-1:G 
oTO 1670 

1660 IF AS<” ” THEN 1600 

1670 IF P1-PO+1DLEN(TS(K2)) THE 
N TS(K2) =LEFTS(TS(K2)  PI-PO)+AS 
:GOTO 1690 

1680 TS (K2)=LEFTS (TS (K2), P1-PO 
+AS+RIGHTS (TS (K2) , LEN(TS (K2))-P 
1+P0-1) 

1690 Pl=P1-(LEN(AS)>0) +P7:GOTO 
1560 
1700 
510 
1710 IF N=0 THEN CLS:PRINT” NAD 

A à APAGAR" :FOR C=1 TO 1000:NEX 

T:RETURN 

1720 CLS:PRINT"INTRODUZA NO DA 
LINHA (LINHAS NUMERAD 

AS DE DEZ EM DEZ)” 

1730 INPUT K:K2=K/10 

1740 IF K2>N OR K2<1 OR K2<>INT 
(K2) THEN PRINT” ESTA LINHA NAO 
EXISTE” : RETURN 

1750 K-K2:FOR K3-K2 TO N:TS(K3) 
=T$ (K3+1) :NEXT:N=N-1:PRINT 695, 
K*10;” 8 (K) : RETURN 

1760 IF N=0 THEN PRINT ” NADA À 
LISTAR":FOR C=1 TO 1000:NEXT:R 
ETURN 

1770 PRINT” INTRODUZA O NO DA 
PRIMEIRA E DA ULTIMA LINHA (L 
INHAS NUMERA-DAS EM — MULTIPLOS 
DE 10)" 

1780 INPUT K,K2:K=INT(K):K2=INT 
(K2) :K1=K/10:K2=K2/10 

1790 IF K2>N THEN K2=N 

1800 IF K1<1 THEN Kl=1 

1810 IF K2<K1 AND K2=N THEN RET 

URN 

1820 IF K2<K1 THEN CLS:PRINT ” 

CONJUNTO DE LINHAS INVALIDO” :GO 

TO 1770 

1830 CLS:PRINT €96,;:FOR K3=K1 

TO K2:PRINT K3*10" "TS(K3) :NEXT 

1840 RETURN 

1850 K=K2-K1:K1=K2+1:K2=K1+K:IF 
N=0 THEN 1760 ELSE 1790 


PRINT €32,"":K=K+10:GOTO 1 



































1860 NU=0:R=0 

1870 S=1 

1880 IF AD$="" THEN RETURN 

1890 XS=LEFTS (ADS, 1) :BD$=MIDS(A 
D$,2):IF XS="*" THEN R=R+P*S:AD 
$=BDS:GOTO 1870 
1900 IF XS="+" 
o 1880 

1910 IF X$="-" THEN ADS=BD$:S=— 
S:GoTo 1880 

1920 Q=0:IF XS<>"2%” THEN 1950 
1930 IF BD$>="0" AND BDS<"2”" TH 
EN Q=0*2+ASC (BDS) -48:BD$=MIDS(B 
D$,2):GOTO 1930 

1940 R=R+Q*S:ADS=BD$:GOTO 1870 
1950 IF X5<>"$” OR BD$<"0” OR B 
DS>"F” THEN 1980 

1960 Q2=VAL ("&H"+LEFTS (BDS,1)): 
BD$=MIDS (BDS, 2) :Q=0*16+02:XS=LE 
FTS(BDS,1) 

1970 IF(XS>"/” AND X$<":”) OR ( 
X8>"e” AND X5<"G”) THEN 1960 EL 
SE R=R+0*S:ADS=BD$:GOTO 1870 
1980 IF XS<"A” OR XS>"Z” THEN 2 
010 

1990 CS=ADS:GOSUB 1350:IF CS<>" 
” GOSUB 1390 

2000 R=R+RR(Q2) *S:AD$=CS:GOTO 1 
870 

2010 IF XS<"0” OR'X$>"9” THEN R 
=0:NU=1: RETURN 

2020 IF AD$>"/”" AND ADS<":” THE 
N Q=Q*10+ASC (ADS) -48:ADS=MIDS (A 
D$,2):GoTO 2020 

2030 R=R+S*Q:GOTO 1870 


COMO F IONA O PROGRAMA 


Não se esqueça de reservar um espa- 
ço suficiente de memória para seu pro- 
grama, usando CLEAR antes de 
rodá-lo. 

Para introduzir o seu programa pres- 
sione a tecla E. Ele pedirá então um nú- 
mero de linha. Neste programa cada ins- 
trução em mnemônico deve ser introdu- 
zida em uma linha de BASIC. É preci- 
so também que os números de linha se- 
jam múltiplos de 10 e cada linha conte- 
nha apenas um comando Assembly com 
seus respectivos operandos. 

A primeira linha deve abrigar o en- 
dereço inicial da porção da memória on- 
de será colocada a rotina em código. E 
necessário que esse endereço esteja na 
área reservada por CLEAR. Para espe- 
cificar sua origem, usamos o comando 
ORG seguido do endereço inicial. 

Se um endereço inicial não for espe- 
cificado, o programa tentará posicionar 
o Assembler a partir do endereço 35000, 
que pertence à memória ROM. O resul- 
tado não será satisfatório, uma vez que 
não se pode colocar códigos na ROM. 
O programa procede assim para evitar 
que o Assembler seja colocado em uma 
área prejudicial ao funcionamento da 
máquina. Quando o endereço acima é 


THEN AD$=BD$:GOT 


usado, o programa comunica: “origem 
não encontrada”, 

Normalmente, são utilizados os mne- 
mônicos padrão do 6809. Números he- 
xadecimais devem ser precedidos de $ 
(cifrão), números binários, de % (por- 
cento). Algarismos sem prefixo são con- 
siderados decimais. 

Alguns Assembler para o TRS-Color 
reconhecem códigos ASCII, se estes fo- 
rem precedidos de * (apóstrofo) ou ! 
(ponto de exclamação). Não é o caso de 
nosso programa. Assim, o comando 
FCC, que manipula caracteres ASCII, 
não pode ser usado. 

Para editar linhas, empregue as teclas 
do cursor. As setas “direita” e “esquer- 
da” movimentam o cursor ao longo da 
linha; a seta “para cima” insere e a se- 
ta “para baixo” apaga. 

A última linha do programa deve ser 
END; o Assembler criará uma linha des- 
se tipo, caso esqueçamos de fazê-lo. 

Se, depois de digitarmos uma linha, 
pressionarmos outra tecla que não EN- 
TER, o programa voltará ao menu. Se 
então pressionarmos L, os mnemônicos 
serão listados para uma conferência. 

Caso haja algum erro, retorne ao me- 
nu e pressione E. Especifique então o 
número da linha a ser corrigida. 

Se quisermos inserir uma nova linha 
entre duas já existentes, devemos entr: 
no modo de edição e dar a ela um nú- 
mero intermediário. Uma nova listagem 
mostrará a nova linha no lugar correto, 
sendo que todas as linhas terão números 
múltiplos de 10. Apenas uma linha de ca- 
da vez pode ser inserida dessa maneira. 

Para apagar uma linha, retorne ao 
menu e pressione D. Especifique então 
o número da linha a ser apagada. Quan- 
do não houver mais modificações a fa- 
zer, retorne ao menu e pressione A. O 
programa em Assembly será então “mon- 
tado” na memória. Quando o processo 
terminar, o endereço final do programa 
em código será mostrado na tela, 

A opção de gravação — tecla S — 
grava apenas o programa em Assembly 
ou programa fonte. Para gravar o As- 
sembler, use o caminho normal, Para 
gravar o programa em código — ou pro- 
grama objeto — é necessário sair do As- 
sembler usando a tela BREAK: 


CSAVEM "NOME", INICIO, FIM, 
DEFEXEC 














NOME é a denominação do progra- 
ma; INÍCIO é o endereço inicial defi- 
nido por ORG; e FIM, o endereço final 
fornecido pelo programa após a 
montagem. 

O último número, DEFEXEC, diz ao 
TRS-Color por onde começar a execu- 
tar a rotina em código. Geralmente, ele 





COMO ENCONTRAR ERROS EM 
PROGRAMAS LONGOS 

Mesmo o programador mais expe- 
riente terá problemas em digitar progra- 
mas longos como esse Assembler. Não 
importa a destreza de seus dedos: fa- 
talmente, em algum lugar, um erro se- 
rá cometido, 

Muitos desses erros são encontra 
dos quando se confere a listagem. As 
mensagens de erro do micro ajudarão 
também, se procurarmos saber o que 
significam. 

Tais mensagens, contudo, podem 
não ser suficientes para detectar o lo- 
cal de um erro em um programa muito 
longo. Nesses programas, uma linha 
pode ser executada sem problemas 
muitas vezes, só vindo a provocar um 
erro quando uma variável assumir um 
valor incompatível devido a um erro de 
digitação cometido em outra parte do 
programa. 

Felizmente, o TRS-Color conta com 
uma função de rastreamento — trace 
—, que facilita a localização de erros. 

Tal função é ativada pelo comando 
TRON, que deve ser usado no modo 
imediato, sem número de linha. Quan- 
do rodamos o programa, ela nos mos 
tra o número da linha que está sendo 
executada. 

Para desativar a função de rastrea- 
mento, use o comando TROFF. 











é igual ao endereço inicial. Agora pode- 
mos montar qualquer programa a par- 
tir de sua listagem em Assembly. 


RISS 


Para testar o Assembler, digite o pro- 
grama de deslocamento da tela para a 
direita apresentado na página 219. Esse 
programa resultará nos seguintes 
códigos: 


BE 06 00 E6 82 34 04 C6 1F A6 
82 A7 01 SA 26 F9 35 04 E7 84 
BC 04 00 ZE EA 39 


Em algumas das máquinas compati- 
veis com o TRS-Color é possível aumen- 
tar a velocidade do programa acrescen- 
tando POKE 65495,0 no início da linha 
180. Se isto for feito, devemos modifi- 
car outras linhas a fim de que a alta ve- 
locidade não prejudique a gravação em 
fita. Assim, adicione POKE 65494,0 ao 
início das linhas 1420 e 1450. 


